Создание 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):
Рис. 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):
Рис. 4
Работа в MicrosoftExcel
УП№4
Задание №5
Задание№1
На листе 1 Excel создать таблицу, как приведено на рис. 1, шрифт Calibri, размер 11 пт. Заполните данными столбцы 1-5, кроме строкИтого/кг и Итого/руб. Подсчитайте данные в столбцах 6, 7 и строках Итого/кг и Итого/руб.
Постройте объемную гистограмму, отражающую выплату каждому заготовителю. Подпишите все данные гистограммы. Сохраните файл с именем ПР_5_1.
- Запускаем Excel
- Выбираем область главного заголовка, объединяем ее и записываем заголовок сомой таблицы.
- Задаем заголовки для строк и столбцов.
- Задаем цвета таблицы.
- Записываем данные в таблицу и делаем нужные расчеты.
- Выделяем нужную область и по данным в выделенной области строим гистограмму.
- Настраиваем гистограмму (если нужно).
Результат:
Рис. 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
- Выбираем область главного заголовка, объединяем ее и записываем заголовок сомой таблицы.
- Выбираем и задаем область подзаголовка таблицы
- Задаем заголовки для строк и столбцов.
- Задаем цвета таблицы.
- Записываем данные в таблицу и делаем нужные расчеты вписывая формулы.
- Выделяем нужные данныеи строим по ним диаграмму.
Результат: 
Рис 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
Результаты:
Рис. 7
Рис. 8
УП №6
Задание №1
В лист Excel 1 с клавиатуры записать три фамилии с ячейки В5 по В7 и вывести текст на листExcel 2 с ячейки D9 и продолжить в строку. Создать кнопку запуска макроса.
- Запускаем Excel.
- На листе 1 в ручную (с клавиатуры) набираем текст (фамилии) в ячейки с B5 поB7 (Рис 2).
Рис 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
Результат:
Рис 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
Результат:
Рис 4
Рис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
Результат:
Рис 6
Рис 7