Навигация:

Главная Случайная страница Обратная связь ТОП Интересно знать Избранные Новые материалы

Топ:

Генеалогическое древо Султанов Османской империи: Османские правители, вначале, будучи еще бейлербеями Анатолии, женились на дочерях византийских императоров...

Оснащения врачебно-сестринской бригады.

История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...

Интересное:

Национальное богатство страны и его составляющие: для оценки элементов национального богатства используются...

Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...

Как мы говорим и как мы слушаем: общение можно сравнить с огромным зонтиком, под которым скрыто все...

Дисциплины:

Автоматизация Антропология Археология Архитектура Аудит Биология Бухгалтерия Военная наука Генетика География Геология Демография Журналистика Зоология Иностранные языки Информатика Искусство История Кинематография Компьютеризация Кораблестроение Кулинария Культура Лексикология Лингвистика Литература Логика Маркетинг Математика Машиностроение Медицина Менеджмент Металлургия Метрология Механика Музыкология Науковедение Образование Охрана Труда Педагогика Политология Правоотношение Предпринимательство Приборостроение Программирование Производство Промышленность Психология Радиосвязь Религия Риторика Социология Спорт Стандартизация Статистика Строительство Теология Технологии Торговля Транспорт Фармакология Физика Физиология Философия Финансы Химия Хозяйство Черчение Экология Экономика Электроника Энергетика Юриспруденция

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

2018-01-14

111

0.00 из 5.00 0 оценок

Заказать работу

⇐ ПредыдущаяСтр 3 из 5Следующая ⇒

УП №3

Задание 3

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

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

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

<html>

<head>

</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>

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

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

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

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

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

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

<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>

</head>

<styletype=text/css>

<!--

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

-->

</style>

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

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

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

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

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

<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

⇐ Предыдущая 1 234 5 Следующая ⇒

Поделиться с друзьями:

Индивидуальные очистные сооружения: К классу индивидуальных очистных сооружений относят сооружения, пропускная способность которых...

Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...

Эмиссия газов от очистных сооружений канализации: В последние годы внимание мирового сообщества сосредоточено на экологических проблемах...

Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...