Создание Web-страницы с помощью HTML.

Работа в MicrosoftWord.

УП №1

Средствами текстового процессора оформите текст из файла Text.docx в виде газетной статьи.

Описание выполнение задания:

- Открываем текстовой редактор MicrosoftWord и набираем в нем заданный текст, или копируем уже имеющий файл с нужным текстом на рабочий стол.

- Сохраняем созданный или скопированный файл на рабочий стол или в свою личную папку под новым именем.

- Настраиваем ориентацию первой страницы на альбомную, второй – на книжную.

- Текст размещаем на первой странице в три колонки. Выравниваем текст – по ширине.

- Автора текста выделяем курсивом.

- Настраиваем заголовок по центру страницы,размер заголовка больше на 2 пт основного текста, начертание полужирное.

- Настраиваем подзаголовок по левому краю, размер на 1 пт больше основного текста, начертание полужирное.

- Вставляем три иллюстрации в тест из папки image. Настраиваем обтекание текстом и стиль изображений. Вставляемавтоподпись под каждым изображением с именем «Иллюстрация № ».

- Выделенный в задании объект (например, перечень преимуществ хосписа, перечисленных Ольгой Ермаковой и отмеченный желтым цветом) оформляем как объект SmartArt. Изменяем цвет и стиль объекта.

- Настраиваем, чтобы первый абзац после заголовка и подзаголовка начинался с буквицы. Изменяем параметры буквицы, заданные по умолчанию (2 строки, шрифт TimesNewRoman 28 пт, полужирный, курсив).

- В верхний колонтитул документа набираем название документа, номер задания и дату выполнения работы.

- Добавляем подложку в виде цветного текста «Зачетное задание».

- На второй странице вставляем список иллюстраций и строку подписи в созданный документ.

- Оформляем шрифт и цвет (произвольные), главное чтобы работа произвела эстетическое впечатление.

Создание Web-страницы с помощью HTML.

УП №2

Средствами текстового редактора оформить текст из файла Text.docx в виде газетной статьи на web-странице. Сохранить его под именем, например, УП-03.01-02.html, где УП-03.01- наименование практики, 02 - номер задания, html - расширение файла web-страницы.

Требования к оформлению:

1. Первая страница, содержит краткий анонс статьи и перечень иллюстраций, с краткими комментариями по содержанию статьи. Первая и вторая иллюстрации работают как карта изображения (1 – круг, 2 - квадрат), третья иллюстрация работает – как гиперссылка. При нажатии на карту изображения или на рисунок гиперссылка переходит на следующую страницу с текстом статьи.

2. Вторая страница, на которую пользователь переходит с первой по гиперссылке содержит текст статьи с иллюстрациями, обязательно наличие таблицы.

3. На второй странице иллюстрации подписать.

4. Шрифт для оформления удобочитаемый, адекватный размер.

5. Задать фон на web-страницах по теме статьи (должен выглядеть как подложка, бледненько).

6. На обеих страницах добавить гиперссылки «Вверх», «Вниз», «Вперед», «Назад».

7. Обе страницы должны иметь эстетический вид.

- Запускаем блокнот.

- Набираем коддля страницы 1:

<html>

<head>

<title></title>

</head>

<body background="14.jpg" link=#C0C0C0 vlink=#FFD700 alink=#F08080>

<h2><palign=center><b>Государственный хоспис для детей</b></p></h2>

<p>Текст: <i>Екатерина Дементьева</i></p>

<p><b>Российская газета - Федеральный выпуск №7437 (271)</b></p>

<hrcolor=#800080>

<p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p>

<imgsrc="1.png" align=left usemap="#map">

<map name="map"><area shape="square" coords=320, 182, 320, 182 alr="1.png" href="1.html" traget="_sels">

<p>-Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде.

<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.</p>

</map>

<br><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer">

<p>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет.</p>

<br><imgsrc="3.png" align=left usemap=#"computer">

<p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов.</p>

<br><hr color=#800080>

<br><a href="УП-03.01-02_str2.html"><p align=center><b><i>Далее</i></b></p></a>

</body>

</html>

Результат (Рис 1):

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 1

- Набираемкоддлястраницы 2:

<html>

<head>

<title></title>

</head>

<body background="12.jpg" link=#9400D3 vlink=#FFD700 alink=#F08080>

<a href=#2><p align=center><i><b>Вниз</a>

<a href="\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика\УП-03.01-02"><p align=center>Главная</i></b></p></a>

<br><hrcolor=#7B68EE>

<a name=1><p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p></a>

<table background="13.jpg" border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>

<tr><tdcolspan=2><p align=center><b><i>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</i></b></p></td></tr>

<tr><td><imgsrc="1.png" align=left usemap=#"computer"></td>

<td><p align=justify>То, что детский хоспис необходим, было очевидно давно. К сожалению, врачи не боги и не всегда могут вернуть здоровье детям. И тогда нужно помочь и малышу, и его семье сохранить максимально возможное качество жизни, даже если жизни осталось не так много. Без боли, без страданий, с папой и мамой рядом.

<br>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коекдля пациентов от 1 года до 18 лет. До сих пор их принимало только детское паллиативное отделение в Новосибирской районной больнице N 1, рассчитанное на пять мест.</p></td>

</tr>

</table>

<imgsrc="2.png" align=right width="450" height="211" usemap=#"computer">

<p>- Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде, - рассказывает главный врач ОГБУЗ "Иркутский областной хоспис" Ольга Ермакова.

Здесь есть палаты для пребывания детей с родителями, есть палаты, где находятся только дети - хоспис работает в том числе с сиротами и воспитанниками приютов. В здании также располагаются медицинские кабинеты, зал отдыха с игровыми модулями, кабинет психологической разгрузки, здесь стремятся оказывать не только медицинскую, но и психологическую помощь маленьким пациентам и их семьям. Над входом в хоспис висит яркая вывеска с девизом: "Вместе мы можем больше". И это действительно так.

<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.

Сейчас в стационаре на паллиативной помощи находятся 10 ребятишек. Некоторые с родителями. Понятно, что таких детей гораздо больше. Кто-то лежит в больнице, но многих выписывают домой.</p>

<hr color=#7B68EE>

<imgsrc="3.png" align=left usemap=#"computer">

<a name=2><p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов. Специалисты патронажа ведут мониторинг состояния здоровья детей с неизлечимыми заболеваниями, помогают родителям, дают рекомендации, что делать. За время работы детского хосписа выездная бригада посетила уже семь семей, - отметила Ольга Ермакова.

<br>В новом медучреждении работают семь врачей, 14 медсестер, девять младших медсестер. Как подчеркнул министр здравоохранения Иркутской области Олег Ярошенко, врачи, педагоги и редний медицинский персонал прошли обучение особенностям паллиативной помощи в Москве и Санкт-Петербурге.</p></a>

<br><hr color=#7B68EE>

<a href=#1><p align=center><b><i>Вверх</i></b></p></a>

</body>

</html>

Результат (см. ниже):

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 2

УП №3

Задание 3.

Модифицировать оформление web-страницы задания 2, задав стиль web-страниц с помощью CSS, поместить стиль в этом же файле.

- Запускаем блокнот.

- Набираем код для страницы 1:

<html>

<head>

<title></title>

</head>

<styletype=text/css>

<!--

.h1{font-family:Aria; font-size:20pt; font-weight:bolder; text-align:center;}

.h2{font-size:15pt; text-align:left;text-decoration:underline;}

.p{font-size:14pt; text-indent:15pt;}

-->

</style>

<body background="14.jpg" link=#0000CD vlink=#9400D3 alink=#FFD700>

<divclass="h1"><b>Государственный хоспис для детей</b></div>

<divclass="h2">Текст: <i>Екатерина Дементьева</i></div>

<table border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>

<tr><tdcolspan=2><divclaas="p"><p align=center><b><i>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p></div></td></tr>

<tr><td><imgsrc="1.png" align=left"></div></td>

<td><divclaas="p"> -Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде

В областномминздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.</div></td></tr>

<tr><td><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer"></div></td>

<td><divclass="p">В Приангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет.</div></td></tr>

<tr><td><imgsrc="3.png" align=left usemap=#"computer"></td>

<td><divclass="p">-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов.</div></td></tr>

</table><a href="УП-03.01-03_str2.html"><p align=center><b><i>Далее</i></b></p></a>

</body>

</html>

Результат (Рис 3):

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 3

- Запускаем блокнот.

- Набираем коддля страницы 2:

<html>

<head>

<title></title>

</head>

<styletype=text/css>

<!--

.p{font-size:14pt; text-indent:15pt;}

-->

</style>

<body background="13.jpg" link=#9400D3 vlink=#FFD700 alink=#F08080>

<a href=#2><p align=center><i><b>Вниз</a>

<a href="\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика\УП-03.01-03"><p align=center>Главная</i></b></p></a>

<table background="12.jpg" border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>

<tr><td><a name=1><imgsrc="1.png" align=left"></a></div></td>

<td><divclaas="p">То, что детский хоспис необходим, было очевидно давно. К сожалению, врачи не боги и не всегда могут вернуть здоровье детям. И тогда нужно помочь и малышу, и его семье сохранить максимально возможное качество жизни, даже если жизни осталось не так много. Без боли, без страданий, с папой и мамой рядом.

В Приангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет. До сих пор их принимало только детское паллиативное отделение в Новосибирской районной больнице N 1, рассчитанное на пять мест.</div></td></tr>

<tr><td><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer"></div></td>

<td><divclass="p"> - Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде, - рассказывает главный врач ОГБУЗ "Иркутский областной хоспис" Ольга Ермакова. Здесь есть палаты для пребывания детей с родителями, есть палаты, где находятся только дети - хоспис работает в том числе с сиротами и воспитанниками приютов. В здании также располагаются медицинские кабинеты, зал отдыха с игровыми модулями, кабинет психологической разгрузки, здесь стремятся оказывать не только медицинскую, но и психологическую помощь маленьким пациентам и их семьям. Над входом в хоспис висит яркая вывеска с девизом: "Вместе мы можем больше". И это действительно так.

В областномминздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров. Сейчас в стационаре на паллиативной помощи находятся 10 ребятишек. Некоторые с родителями. Понятно, что таких детей гораздо больше. Кто-то лежит в больнице, но многих выписывают домой.</div></td></tr>

<tr><td><imgsrc="3.png" align=left usemap=#"computer"></td>

<td><divclass="p"><a name=2>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов. Специалисты патронажа ведут мониторинг состояния здоровья детей с неизлечимыми заболеваниями, помогают родителям, дают рекомендации, что делать. За время работы детского хосписа выездная бригада посетила уже семь семей, - отметила Ольга Ермакова.

В новом медучреждении работают семь врачей, 14 медсестер, девять младших медсестер. Как подчеркнул министр здравоохранения Иркутской области Олег Ярошенко, врачи, педагоги и средний медицинский персонал прошли обучение особенностям паллиативной помощи в Москве и Санкт-Петербурге.</a></div></td></tr>

</tabel>

<a href=#1><p align=center><b><i>Вверх</i></b></p></a>

</body>

</html>

Результат (Рис 4):

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 4

Работа в MicrosoftExcel.

УП№4

Задание №5

Задание№1:

На листе 1 Excel создать таблицу, как приведено на рис. 1, шрифт Calibri, размер 11 пт. Заполните данными столбцы 1-5, кроме строкИтого/кг и Итого/руб. Подсчитайте данные в столбцах 6, 7 и строках Итого/кг и Итого/руб.

Постройте объемную гистограмму, отражающую выплату каждому заготовителю. Подпишите все данные гистограммы. Сохраните файл с именем ПР_5_1.

- Запускаем Excel

- Выбираем область главного заголовка, объединяем ее и записываем заголовок сомой таблицы.

- Задаем заголовки для строк и столбцов.

- Задаем цвета таблицы.

- Записываем данные в таблицу и делаем нужные расчеты.

- Выделяем нужную область и по данным в выделенной области строим гистограмму.

- Настраиваем гистограмму (если нужно).

Результат:

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 5

УП №4-1

Выполнить примеры из тетради.

- Запускаем Word.

- В разработчике запускаем VBA.

- Записываем в VBA программный код:

Option Explicit

SubЗамена_слов()

Documents.Open ("\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика-03.01\Зачем нужны макросы.docx")

With ActiveDocument.Content.Find

.ClearFormatting

.Text = "документ"

.Font.ColorIndex = wdRed

End With

.Execute Replace:=wdReplaceAll

End With

Documents("Зачемнужнымакросы.docx").Close (wdPromptToSaveChenges)

EndSub

- Второй:

SubОткрытие_И_Редактирование()

Documents.Open ("\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика-03.01\Вопросы к экзамену по Информатике.docx")

ActiveDocument.Paragraphs(1).Range.Italic = True

Documents.Open ("\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика-03.01\Вопросы к экзамену по Информатике.docx")

With ActiveDocument.Sections(1).Range

.Sentences(1).Bold = True

.Sentences(1).Font.ColorIndex = wdBlue

.Sentences(1).Font.ColorIndex = wdRed

End With

With ActiveDocument.Sections(2).Range

.Sort SortOrder:=wdSortOrderAcending

.Sections(2).Bold = True

End With

Documents("ВопросыкэкзаменупоИнформатике.docx").Close (wdPromptToSaveChenges)

EndSub

УП №5

Задание №1-2

Задание 1.

На листе 1 Excel создать таблицу и отформатировать, как приведено на рис. 1, шрифт Calibri, размер 12 пт. Заполните данными столбцы 1-6, 8, 10, кроме строкиИтого.

1) Произведите расчет Итого отработанных дней как сумму отработанных дней за март, апрель, май;

2) Произведите расчет Среднего дневного заработка по формуле:

Средний дневной заработок = Итого начислено/3/25,25 при условии, что Итого отработанных дней = норма за 3 месяца. В противном случае Средний дневной заработок = Итого начислено/ Итого отработанных дней.

3) Произведите расчет Сумма отпускных по формуле:

Сумма отпускных = Средний дневной заработок ´ Кол-во дней отпуска.

4) Произведите расчет Итого как сумму соответствующих строк.

Сохраните файл задания 1 с именем ПР_6_1.

Задание 2.

Запишите макрос построения круговой диаграммы по образцу (рис. 2). Создайте кнопку для запуска макроса.

- Запускаем Excel

- Выбираем область главного заголовка, объединяем ее и записываем заголовок сомой таблицы.

- Выбираем и задаем область подзаголовка таблицы

- Задаем заголовки для строк и столбцов.

- Задаем цвета таблицы.

- Записываем данные в таблицу и делаем нужные расчеты вписывая формулы.

- Выделяем нужную область и по данным в выделенной области строим диаграмму.

- Настраиваем диаграмму (если нужно)

Результат: Создание Web-страницы с помощью HTML. - student2.ru

Рис 1


Задание №4

Сохраните файл задания 3 с именем ПР_6_4. Программно задайте фон ячеек - светло серый, шрифт – курсив, размер 14 пт.

Создайте кнопку на листе 1 Excel для запуска макроса.

- Запускаем Excel

- Открываем нужную таблицу (см. выше).

- В разработчике открываем VisualBasic (VBA)

- Там же в разработчике через вставку создаем две кнопки «Изменить» и «Назад» (для изменения таблицы и возврата в ее изначальную форму)

- В VBA записываем программный код для первой кнопки, которая должна изменить цвета, начертание и размер шрифта:

Sub z4()

Range("A3:K15").Interior.Color = RGB(178, 178, 178)

Range("A1:K15").Font.Size = 14

Range("A1:K15").Font.Italic = True

EndSub

- В VBA записываем программный код для второй кнопки, которая должна вернуть все как было:

Sub z4_2()

Range("A3").Interior.Color = RGB(0, 176, 240)

Range("B3").Interior.Color = RGB(197, 217, 241)

Range("C3").Interior.Color = RGB(230, 186, 183)

Range("D3:J3").Interior.Color = RGB(197, 217, 241)

Range("K3").Interior.Color = RGB(252, 213, 180)

Range("A4:K4").Interior.Color = RGB(255, 255, 0)

Range("A5:A15").Interior.Color = RGB(0, 176, 240)

Range("B5:B14").Interior.Color = RGB(196, 215, 155)

Range("C5:C15").Interior.Color = RGB(230, 186, 183)

Range("B15:K15").Interior.Color = RGB(230, 186, 183)

Range("D5:J14").Interior.Color = RGB(196, 215, 155)

Range("K5:K14").Interior.Color = RGB(252, 213, 180)

Range("A1:K15").Font.Size = 12

Range("A1:K15").Font.Italic = False

EndSub

Результаты:

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 7

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 8

УП №6

Задание №1

В лист Excel 1 с клавиатуры записать три фамилии с ячейки В5 по В7 и вывести текст на листExcel 2 с ячейки D9 и продолжить в строку. Создать кнопку запуска макроса.

- Запускаем Excel.

- На листе 1 в ручную (с клавиатуры) набираем текст (фамилии) в ячейки с B5 поB7.

Создание Web-страницы с помощью HTML. - student2.ru

Рис 2

- В разработчике открываем VisualBasic (VBA)

- Там же в разработчике через вставку создаем кнопку (для удобства)

- Записываем в VBA программный код:

OptionExplicit

Sub z1_pr7()

Dim A(8)

Dim i As Integer

Dim j As Integer

For j = 3 To 6

A(j) = Sheets(1).Cells(j + 1, 2)

Sheets(2).Cells(9, j) = A(j)

Sheets(2).Cells(9, j + 1).Font.Color = vbRed

Sheets(2).Cells(9, j + 1).Font.Bold = True

Next j

End Sub

Результат:

Создание Web-страницы с помощью HTML. - student2.ru

Рис 3

Задание №2

Через диалоговое окно записать 7 фамилии и вывести текст на листExcel 1 с ячейки J9 и продолжить в столбец. Создать кнопку запуска макроса.

- Запускаем Excel.

- В разработчике открываем VisualBasic (VBA)

- Там же в разработчике через вставку создаем кнопку (для удобства)

- Записываем в VBA программный код:

Sub pr7_z2()

Dim B(24)

Dim i As Integer

Dim j As Integer

For i = 9 To 15

B(i) = InputBox("Введитефамилию")

Sheets(1).Cells(i, 10) = B(i)

Sheets(1).Cells(i + 1, 10).Font.Color = RGB(255, 255, 0)

Sheets(1).Cells(i + 1, 10).Font.Italic = True

Next i

End Sub

Результат:

Создание Web-страницы с помощью HTML. - student2.ru

Рис 4

Создание Web-страницы с помощью HTML. - student2.ru

Рис5

УП №7

Задание №3

В лист Excel 1 с клавиатуры записать 8 чисел с ячейки В5 в строку и вывести на листExcel 2 с ячейки В5 и продолжить в строку. Создать кнопку запуска макроса.

- Запускаем Excel.

- В разработчике открываем VisualBasic (VBA)

- Там же в разработчике через вставку создаем кнопку (для удобства)

- Записываем в VBA программный код:

Sub pr7_z3()

Dim C(17)

Dim i As Integer

Dim j As Integer

For i = 1 To 12

C(i) = Sheets(2).Cells(5, i + 1)

Sheets(2).Cells(i + 4, 2) = C(i)

Sheets(2).Cells(i + 4, 2).Font.Color = vbYellow

Sheets(2).Cells(i + 4, 2).Font.Italic = True

Next i

End Sub

Результат:

Создание Web-страницы с помощью HTML. - student2.ru

Рис 6

Создание Web-страницы с помощью HTML. - student2.ru

Рис 7

Электронное тестирование

Задание№14.

Использование в программах строковых переменных, использование основных функций для работы со строками.

Задание 2.

1) В тексте: "Вся информация в лифлете носит ознакомительный характер" программой определить и вывести на UserForm: число букв в тексте; число слов в тексте; слово с наибольшей и наименьшей длиной. Создать кнопку для запуска макроса.

Для выполнения задания:

- Запускаем Excel.

- В разработчике открываем VisualBasic (VBA)

- Там же в разработчике через вставку создаем кнопку (для удобства) (Рис 13, Рис 14)

- Записываем в VBA программный код:

Private Sub CommandButton1_Click() – Кнопказапускамакросаформы 1.

ПодсчетСимволов.Show

End Sub

OptionExplicit

DimaAsString – задаемосновную переменную, с которой начинается работа.

PrivateSubCommandButton1_Click() – программирование кнопки вывода информации(Рис 15).

Dimb, i, k, z, kol, kolsim, mina, maxa – переменные для программы.

a = Label2

z = Split(a)

kolsim = UBound(z) + 1

Label7 = "" &kolsim

For i = LBound(z) To UBound(z)

z(i) = Trim(z(i))

kol = kol + Len(z(i))

Next i

Label8 = "" &kol

mina = Len(z(0))

For i = 1 To UBound(z)

If Len(z(i)) < mina Or Len(z(i)) = mina Then

mina = Len(z(i))

b = b &z(i) & "; "

End If

Next i

Label9 = "" & b

maxa = Len(z(0))

For i = 5 To UBound(z)

If Len(z(i)) >maxa Or Len(z(i)) = maxa Then

mina = Len(z(i))

k = k &z(i) & "; "

End If

Next i

Label10 = "" & k

Label11 = "Спасибо за внимание!"

EndSub

PrivateSubCommandButton2_Click() – программированиекнопкиочисткии последующего закрытия.

Label7 = ""

Label8 = ""

Label9 = ""

Label10 = ""

Label11 = ""

ПодсчетСимволов.Hide

EndSub

Создание Web-страницы с помощью HTML. - student2.ru

Рис 14

Создание Web-страницы с помощью HTML. - student2.ru

Рис 15

Создание Web-страницы с помощью HTML. - student2.ru

Рис 16

2) В текстовое поле на UserForm вводится любое предложение. Программой заменить второе и четвертое слово, написав их заглавными буквами, определить и вывести на UserForm: число букв в тексте; число слов в тексте; слово с наибольшей и наименьшей длиной.

Для выполнения задания:

- Запускаем Excel.

- В разработчике открываем VisualBasic (VBA)

- Там же в разработчике через вставку создаем кнопку (для удобства) (Рис 17)

Private Sub CommandButton2_Click() – кнопказапускамакросаформы 2

ИзменениеТекстаИПодсчетСимволов.Show

End Sub

OptionExplicit

DimaAsString - задаемосновную переменную, с которой начинается работа.

PrivateSubCommandButton1_Click()– выводаинформации (Рис 19).

Dim b, i, k, z, kol, kolsim, mina, maxa

a = TextBox1

Label7 = UCase(TextBox1.Text)

z = Split(a)

kolsim = UBound(z) + 1

Label9 = "" &kolsim

For i = LBound(z) To UBound(z)

z(i) = Trim(z(i))

kol = kol + Len(z(i))

Next i

Label8 = "" &kol

mina = Len(z(0))

For i = 1 To UBound(z)

If Len(z(i)) < mina Or Len(z(i)) = mina Then

mina = Len(z(i))

b = b &z(i) & "; "

End If

Next i

Label10 = "" & b

maxa = Len(z(0))

For i = 3 To UBound(z)

If Len(z(i)) >maxa Or Len(z(i)) = maxa Then

mina = Len(z(i))

k = k &z(i) & "; "

End If

Next i

Label11 = "" & k

End Sub

PrivateSubCommandButton2_Click()– программированиекнопкиочистки.

TextBox1 = ""

Label7 = ""

Label8 = ""

Label9 = ""

Label10 = ""

Label11 = ""

End Sub

PrivateSubCommandButton3_Click()– программированиекнопкизакрытия.

TextBox1 = ""

Label7 = ""

Label8 = ""

Label9 = ""

Label10 = ""

Label11 = ""

ИзменениеТекстаИПодсчетСимволов.Hide

EndSub

Результат:

Создание Web-страницы с помощью HTML. - student2.ru

Рис 17

Создание Web-страницы с помощью HTML. - student2.ru

Рис 18

Создание Web-страницы с помощью HTML. - student2.ru

Рис 19

Задание№15.

Работа в MicrosoftWord.

УП №1

Средствами текстового процессора оформите текст из файла Text.docx в виде газетной статьи.

Описание выполнение задания:

- Открываем текстовой редактор MicrosoftWord и набираем в нем заданный текст, или копируем уже имеющий файл с нужным текстом на рабочий стол.

- Сохраняем созданный или скопированный файл на рабочий стол или в свою личную папку под новым именем.

- Настраиваем ориентацию первой страницы на альбомную, второй – на книжную.

- Текст размещаем на первой странице в три колонки. Выравниваем текст – по ширине.

- Автора текста выделяем курсивом.

- Настраиваем заголовок по центру страницы,размер заголовка больше на 2 пт основного текста, начертание полужирное.

- Настраиваем подзаголовок по левому краю, размер на 1 пт больше основного текста, начертание полужирное.

- Вставляем три иллюстрации в тест из папки image. Настраиваем обтекание текстом и стиль изображений. Вставляемавтоподпись под каждым изображением с именем «Иллюстрация № ».

- Выделенный в задании объект (например, перечень преимуществ хосписа, перечисленных Ольгой Ермаковой и отмеченный желтым цветом) оформляем как объект SmartArt. Изменяем цвет и стиль объекта.

- Настраиваем, чтобы первый абзац после заголовка и подзаголовка начинался с буквицы. Изменяем параметры буквицы, заданные по умолчанию (2 строки, шрифт TimesNewRoman 28 пт, полужирный, курсив).

- В верхний колонтитул документа набираем название документа, номер задания и дату выполнения работы.

- Добавляем подложку в виде цветного текста «Зачетное задание».

- На второй странице вставляем список иллюстраций и строку подписи в созданный документ.

- Оформляем шрифт и цвет (произвольные), главное чтобы работа произвела эстетическое впечатление.

Создание Web-страницы с помощью HTML.

УП №2

Средствами текстового редактора оформить текст из файла Text.docx в виде газетной статьи на web-странице. Сохранить его под именем, например, УП-03.01-02.html, где УП-03.01- наименование практики, 02 - номер задания, html - расширение файла web-страницы.

Требования к оформлению:

1. Первая страница, содержит краткий анонс статьи и перечень иллюстраций, с краткими комментариями по содержанию статьи. Первая и вторая иллюстрации работают как карта изображения (1 – круг, 2 - квадрат), третья иллюстрация работает – как гиперссылка. При нажатии на карту изображения или на рисунок гиперссылка переходит на следующую страницу с текстом статьи.

2. Вторая страница, на которую пользователь переходит с первой по гиперссылке содержит текст статьи с иллюстрациями, обязательно наличие таблицы.

3. На второй странице иллюстрации подписать.

4. Шрифт для оформления удобочитаемый, адекватный размер.

5. Задать фон на web-страницах по теме статьи (должен выглядеть как подложка, бледненько).

6. На обеих страницах добавить гиперссылки «Вверх», «Вниз», «Вперед», «Назад».

7. Обе страницы должны иметь эстетический вид.

- Запускаем блокнот.

- Набираем коддля страницы 1:

<html>

<head>

<title></title>

</head>

<body background="14.jpg" link=#C0C0C0 vlink=#FFD700 alink=#F08080>

<h2><palign=center><b>Государственный хоспис для детей</b></p></h2>

<p>Текст: <i>Екатерина Дементьева</i></p>

<p><b>Российская газета - Федеральный выпуск №7437 (271)</b></p>

<hrcolor=#800080>

<p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p>

<imgsrc="1.png" align=left usemap="#map">

<map name="map"><area shape="square" coords=320, 182, 320, 182 alr="1.png" href="1.html" traget="_sels">

<p>-Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде.

<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.</p>

</map>

<br><imgsrc="2.png" align=left width="350" height="200" usemap=#"computer">

<p>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коек для пациентов от 1 года до 18 лет.</p>

<br><imgsrc="3.png" align=left usemap=#"computer">

<p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов.</p>

<br><hr color=#800080>

<br><a href="УП-03.01-02_str2.html"><p align=center><b><i>Далее</i></b></p></a>

</body>

</html>

Результат (Рис 1):

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 1

- Набираемкоддлястраницы 2:

<html>

<head>

<title></title>

</head>

<body background="12.jpg" link=#9400D3 vlink=#FFD700 alink=#F08080>

<a href=#2><p align=center><i><b>Вниз</a>

<a href="\\Fileserver\студенты\И-16-1\Клочихина_АМ\Учебная_практика\УП-03.01-02"><p align=center>Главная</i></b></p></a>

<br><hrcolor=#7B68EE>

<a name=1><p>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</p></a>

<table background="13.jpg" border=3 bordercolor=purple cellpadding=5 cellspacing=4 align=center width= 1100 height = 200>

<tr><tdcolspan=2><p align=center><b><i>В новом медучреждении маленьких пациентов, нуждающихся в паллиативной помощи, обслуживают лучшие специалисты.</i></b></p></td></tr>

<tr><td><imgsrc="1.png" align=left usemap=#"computer"></td>

<td><p align=justify>То, что детский хоспис необходим, было очевидно давно. К сожалению, врачи не боги и не всегда могут вернуть здоровье детям. И тогда нужно помочь и малышу, и его семье сохранить максимально возможное качество жизни, даже если жизни осталось не так много. Без боли, без страданий, с папой и мамой рядом.

<br>ВПриангарье сделали очевидное вероятным. Оказалось, это вполне посильные расходы - 7,6 миллиона рублей из регионального бюджета. Из них 3 миллиона направлено на приобретение медтехники и мебели. В результате получилась не больница даже, а, скорее, интернат с медуслугами на 25 коекдля пациентов от 1 года до 18 лет. До сих пор их принимало только детское паллиативное отделение в Новосибирской районной больнице N 1, рассчитанное на пять мест.</p></td>

</tr>

</table>

<imgsrc="2.png" align=right width="450" height="211" usemap=#"computer">

<p>- Мы постарались максимально приблизить обстановку к домашней. Весь персонал будет работать в яркой одежде, - рассказывает главный врач ОГБУЗ "Иркутский областной хоспис" Ольга Ермакова.

Здесь есть палаты для пребывания детей с родителями, есть палаты, где находятся только дети - хоспис работает в том числе с сиротами и воспитанниками приютов. В здании также располагаются медицинские кабинеты, зал отдыха с игровыми модулями, кабинет психологической разгрузки, здесь стремятся оказывать не только медицинскую, но и психологическую помощь маленьким пациентам и их семьям. Над входом в хоспис висит яркая вывеска с девизом: "Вместе мы можем больше". И это действительно так.

<br>В областном минздраве подчеркивают: услуги хосписа бесплатны. Попадают сюда по направлениям из детских поликлиник и стационаров.

Сейчас в стационаре на паллиативной помощи находятся 10 ребятишек. Некоторые с родителями. Понятно, что таких детей гораздо больше. Кто-то лежит в больнице, но многих выписывают домой.</p>

<hr color=#7B68EE>

<imgsrc="3.png" align=left usemap=#"computer">

<a name=2><p>-Поэтому с ноября у нас начала функционировать выездная служба. В ее составе - врачи-педиатры, невролог, медсестры, психолог и социальный работник. Бригада медиков выезжает в Иркутский и Шелеховский районы, включая сами Иркутск и Шелехов. Специалисты патронажа ведут мониторинг состояния здоровья детей с неизлечимыми заболеваниями, помогают родителям, дают рекомендации, что делать. За время работы детского хосписа выездная бригада посетила уже семь семей, - отметила Ольга Ермакова.

<br>В новом медучреждении работают семь врачей, 14 медсестер, девять младших медсестер. Как подчеркнул министр здравоохранения Иркутской области Олег Ярошенко, врачи, педагоги и редний медицинский персонал прошли обучение особенностям паллиативной помощи в Москве и Санкт-Петербурге.</p></a>

<br><hr color=#7B68EE>

<a href=#1><p align=center><b><i>Вверх</i></b></p></a>

</body>

</html>

Результат (см. ниже):

Создание Web-страницы с помощью HTML. - student2.ru

Рис. 2


Наши рекомендации