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

УП №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><ahref="УП-03.01-03_str2.html"><palign=center><b><i>Далее</i></b></p></a>

</body>

</html>

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

Создание Web-страницы с помощью CSSHTML. - 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-страницы с помощью CSSHTML. - student2.ru

Рис. 4

Работа в MicrosoftExcel

УП№4

Задание №5

Задание№1

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

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

- Запускаем Excel

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

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

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

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

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

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

Результат:

Создание Web-страницы с помощью CSSHTML. - 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-страницы с помощью CSSHTML. - 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-страницы с помощью CSSHTML. - student2.ru

Рис. 7

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

Рис. 8

УП №6

Задание №1

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

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

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

Создание Web-страницы с помощью CSSHTML. - 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-страницы с помощью CSSHTML. - 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-страницы с помощью CSSHTML. - student2.ru

Рис 4

Создание Web-страницы с помощью CSSHTML. - 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-страницы с помощью CSSHTML. - student2.ru

Рис 6

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

Рис 7


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