ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 11.05.2021
Просмотров: 1343
Скачиваний: 3
№22
Управляющие
структуры: Управляющая структура
For-Next. Пример исп-я этой структуры в
процедуре определения определения
размера линейных массивов ProdCode
и UnitPrice
и заполнения в цикле For-Next
этих массивов данными, расположенными
с 4 строки столбцов А и В рабочего листа
Exel.
Управляющая
структура For-Next
позволяет выполнять несколько команд
заданное число раз.
Sub
LookUpPrice()Dim
ProdCode() As String, UnitPrice() As Currency, ReguestedPrice As
Currency, Nproducts As Integer, i As Integer, Found As Boolean,
ReguestedCode As StringWith
ActiveWorkbook.Worksheets("Коды
товаров”).Range("A3")Nproducts
= Range(.Offset(1, 0), .End(xlDown)).Rows.CountReDim
ProdCode(Nproducts)ReDim
UnitPrice(Nproducts)For
i = 1 To NproductsProdCode(i)
= .Offset(i, 0)UnitPrice(i)
= .Offset(i, 1)Next
iEnd
WithReguestedCode
= InputBox("Введите
код
товара
(большая
латинская
буква
и
4 цифры)")Found
= FalseFor
i = 1 To NproductsIf
ProdCode(i) = ReguestedCode ThenFound
= TrueReguestedPrice
= UnitPrice(i)Exit
ForEnd
IfNext
iIf
Found ThenMsgBox
"Товар
с
кодом"
& ReguestedCode & " стоит
" & Format(ReguestedPrice, "0,00р."),
vbInformation, "Товар
не
найден"ElseMsgBox
"Товара
с
кодом
" & ReguestedCode & " нет
в
списке
", vbInformation, "Товар
не
найден” End
IfEnd
Sub
№23
Управляющие структуры: управляющая
структура While-Wend Пример исп-я этой
структуры для выделения определённого
значения из последовательности случайных
чисел.
Действие
ее подобно действию For-Next, но группа
операторов выполняется не заданное
число раз, а до соблюдения определенного
условия. В программе Proc34 инструкция
While-Wend использована для выделения
определенного значения из последовательности
случайных чисел.
Sub
Proc34_WhileWend ( )Dim
LotteryEntry As IntegerLotteryEntry
= 0While
LotteryEntry <> 7 LotteryEntry
= Int (10*Rnd ( ))BeepWendMsgBox
“Ваше
число
равно
“& LotteryEntry &”. Вы
выиграли!!”
End
Sub
Программа
Proc34 гарантирует, что в информационном
окне всегда отображается заданное
число. Цикл While-Wend выполняется, пока
значе-ние переменной LotteryEntry не станет
равным 7 (в условии использован оператор
неравенства <>). При каждом выполнении
цикла этой перемен-ной присваивается
случайное значение от 1 до 9, а затем с
помощью функ-ции VBA Beep, подается звуковой
сигнал через внутренний динамик
ком-пьютера. При запуске этой программы
несколько раз, можно услышать разное
количество сигналов, в зависимости от
того, на каком шаге генера-тор случайных
чисел вернет число 7.
Рассмотрим
структуру цикла While-Wend подробнее.
While
Ключевое слово, начало структуры
While-Wend
LotteryEntry
<> 7 Условие,
определяющее, будет или нет вы-полнен
цикл. Если оно соблюдено, цикл вы-полняется,
если нет – управление передается
оператору, стоящему перед ключевым
сло-вом Wend
LotteryEntry=Int(10*Rnd(
)) Первый
оператор тела
Beep
Второй
оператор тела
Wend
Ключевое слово, отмечающее конец
струк-туры While-Wend
№24
Управляющие
структуры: управляющая структура
Do-Loop. Пример исп-я этой структуры для
выделения определённого значения из
последовательности случайных чисел.
Она
похожа на структуру While-Wend, однако
дополнительно обладает двумя важными
особенностями. Во-первых, условие
завершения цикла Do-Loop можно задавать
не только в его начале, но и в конце.
Условие в конце цикла гарантирует, что
он будет выполнен хотя бы один раз.
Во-вторых, условие можно сделать критерием
как выполнением цикла Do-Loop, так и его
завершения. Последняя возможность в
цикле While-Wend также доступна – чтобы цикл
выполнялся, пока не соблюдено некоторое
условие, его надо указать в структуре
While с логическим оператором Not.
Рассмотрим
несколько простых примеров. В программе
Proc34 инструкция While-Wend применялась для
определения момента, когда в
последовательности случайных чисел
появлялась семерка. В Proc35 та же операция
осуществляется циклом Do-Loop.
Sub
Proc35_DownileLoop ( )
Dim
LotteryEntry As Integer
LotteryEntry
= 0
Do
While LotteryEntry <> 7
LotteryEntry
= Int (10*Rnd ( ))
Beep
Loop
MsgBox
“Ваше число равно “& LotteryEntry &”. Вы
выиграли!!”
End
Sub
Эта
программа мало отличается от примера
34: во-первых, перед ключевым словом While
появилось слово Do, во-вторых, в конце
цикла вместо Wend стоит Loop. Однако цикл
Do-Loop позволяет переписать эту процедуру
еще несколькими способами. В примере
36 слово While заменено словом Until, а вместо
оператора неравенства в сравнении
LotteryEntry и 7 задан оператор равенства.
Sub
Proc_DoUntilLoop ( )Dim
LotteryEntry As IntegerLotteryEntry
= 0Do
Until LotteryEntry = 7LotteryEntry
= Int (10*Rnd ( ))BeepLoopMsgBox
“Ваше
число
равно
“& LotteryEntry &”. Вы
выиграли!!”
End
Sub
Цикл
Do-Loop позволяет внести в эту процедуру
еще несколько изменений. Например, в
программе Proc37 ключевое слово Do оставлено
в начале цикла, а условие завершения и
ключевое слово Until переместилось в его
конец, за ключевое слово Loop. В таком
варианте цикл обязательно выполняется
хотя бы один раз, поскольку условие
завершения не проверяется, пока не будут
выполнены все операторы из тела цикла.
Поэтому можно убрать оператор для
инициализации переменной Lottery Entry.
Sub
Proc37__DoLoopUntil ()
Dim
LotteryEntry As Integer
Do
LotteryEntry
= Int (10 • Rnd ( ))
Beep
Loop
Until LotteryEntry = 7
MsgBox
“Ваше число равно “& LotteryEntry &”. Вы
выиграли!!”
End
Sub
№25
Управляющие структуры: Управляющая
структура Select-Case.Пример иср-я этой
структуры для опр-я прав пользователя
согласно введённому поролю.
Структура
Select Case позволяет в зависимости от
значения переменной или выражения
выполнить один из нескольких фрагментов
программы. Ее действие подобно действию
структуры If-Then-Else, в которой условие
переопределяется ключевым словом
Elself. В примере 31 использована структура
If-Then-Else для определения прав пользователя
согласно введенному им паролю. В следующей
программе те же действия выполняются
средствами структуры Select Case.
Sub
Proc38_ Select Case ( )Dim
Password As StringDim
Sheet As ObjectPassword
= LCase (InputBox (“Введите
пароль:”,
“Пароль”))Select
Case PasswordCase
“level1”For
Each Sheet In ActiveWorkbook.WorkSheetsSheet.
Visible
= True
Sheet.
Unprotect
Next
MsgBox
“Вы получили доступ ко всем листам
рабочей книги.”
Case
“level 2”
ActiveWokbook.Worksheets
(1).Visible = True
ActiveWokbook.Worksheets
(1).Unprotect
MsgBox
“Вы получили доступ только к первому
листу книги.”
Case
“level 3”
ActiveWokbook.Worksheets
(1).Visible = True
MsgBox
“Вы получили доступ только к чтению
содержимого первого листа рабочей
книги.”
Case
Else
MsgBox
“Пароль введен не корректно. Повторите
ввод пароля.”
End
Select
End
Sub
Ниже
описаны компоненты инструкции Select Case,
использованной в примере 38.
Select
Case Ключевые слова, отмечающие начало
структуры Select Case
Password
Переменная или выражение, чье значение
определяет выборфрагмента кода для
выполнения. Оно должно совпадать со
значением, указанным после одного из
ключевых слов Case. Если ни одного совпадения
нет, выполняется фрагмент, написанный
после слов Case Else. Если и этих слов нет,
управление передается оператору,
заданному после End Select
Case“level1”
Первый вариант значения. Если значение
определяющего выражения совпадает с
ним, выполняется фрагмент программы до
следующего ключевого слова Case, а затем
управление передается операторам,
стоящим после End Select. Если совпадения
нет, управление передается следующему
Case
Case
“level 2” Второй вариант значения. Действует
так же, как Case “level 1”
Case
“level 3” Третий вариант значения. Действует
так же, как Case “level 1”
Case
Else Фрагмент программы, указанный за
этими словами, выполняется, если значение
определяющего выражения не совпало ни
с одним из предыдущих вариантов Case
End
Select Ключевые слова, отмечающие конец
структуры Select Case
№26
Управляющие
структуры: Управляющая структура
For-Each-Next.Пример исп-я этой структуры в
процедеру замены всех положительных
чисел диапазона А1:С10 знаком «+».
Это
самый мощный цикл VBA - For-Each-Next. Аналогичные
структуры в других языках программирования
встречаются очень редко. For-Еach-Next
предназначена для выполнения одной и
той же группы действий над каждым
объектом семейства или структуры
массива. Ниже
приведен
пример
этой
структуры:Option
ExplicitSub
Замена()Dim
C As ObjectFor
Each C In Worksheets("Лист1").Range("A1:С10")If
IsNumeric(C.Value) ThenIf
C.Value > 0 Then C.Value = "+"End
IfIf
IsNumeric(C.Value) ThenIf
C.Value < 0 Then C.Value = "-"End
IfIf
IsNumeric(C.Value) ThenIf
C.Value = 0 Then C.Value = 0End
IfNext
CEnd
Sub
№27
Управляющие структуры: Управляющая
структура With – End With. Пример исп-я этой
структуры в процедуре занесения эл-тов
3-х линейных массивов ProdCode,
Quanuty,
DollarsTotal,
каждый размером Nfound,
столбцы E
– G,
начиная со 2 стоки рабочего, листа
Exel.
Она
позволяет существенно сократить
обращение к объекту и обладает тремя
основными достоинствами: уменьшает
объем программы, делает ее понятнее и
производительнее. Чтобы лучше уяснить
действие этой структуры, рассмотрим
два фрагмента программы, решающих одну
и ту же задачу: один (Proc46)-без использования
With, второй (Proc47)-ее средствами.
Sub
Proc46_NonWith ( )ActiveWorkbook.
Worksheets (2).Range (“A1”).Font. Bold = TrueActiveWorkbook.
Worksheets (2).Range (“A1”).Font. Italic= TrueActiveWorkbook.
Worksheets (2).Range (“A1”).Font. Size = 22ActiveWorkbook.
Worksheets (2).Range (“A1”).Font. Name = _
“Times
New Roman”ActiveWorkbook.
Worksheets(2).Range (“A1”).Font. ColorIndex =3Worksheets
(2). Select
End
Sub
Здесь
для изменения свойств объекта Font ячейки
A1 второго рабочего листа пришлось ввести
5 команд, состоящих более чем из 360
символов. В этих командах нужно 21 раз
обратиться к объектам и свойствам, а на
каждое обращение уходит определенное
время. Перепишем ту же программу,
используя инструкцию With.
Sub
Proc47_With ( )
With
ActiveWorkbook. Worksheets
(2).Range (“A1”).Font.Bold
= True.Italic=
True.Size
= 22.Name
= “ Times New Roman”.ColorIndex
=3End
WithWorksheets
(2). Select
End
Sub
Этот
вариант программы со структурой With в
два раза уменьшает время, необходимое
на ввод программы, и в два раза ускоряет
ее выполнение. Рассмотрим
следующий
пример.Sub
Proc48_NestedWith ( )With
ActiveWorkbook. Worksheets (3).Select.UnprotectWith
.Range (“A1”)MsgBox
. Value.Value
= 200.RowHeight
= 60.ColumnWidth
= 20.Font.
Size = 20.Interior.
ColorIndex = 3End
WithEnd
WithEnd
SubВ
Proc48 инструкция
With использована
дважды
– одна
внутри
другой.
Сначала
программа вызывает методы Select и Unprotect
для третьего рабочего листа и выводит
в информационном окне содержимое ячейки
A1. Затем свойствам Value, RowHeight и ColumnWidth
этой ячейки присваиваются новые значения
с одновременным изменением размером
шрифта и цвета фона.
Глобальные и локальные вычислительные сети:
№1 Компьютерные
сети: назначение, основные понятия.
Модель взаимодействия открытых систем
(ISO/OSI).
Сеть
- это объединение вычислительных систем
различных типов, связанных друг с другом
некоторыми каналами связи и правила
передачи данных от одной вычислительной
системы к другой с помощью имеющихся
каналов связи. В качестве линий связи
могут выступать простые телефонные
каналы, коаксиальные и оптоволоконные
линии, всевозможные каналы радиосвязи
в любом частном диапазоне, мощные стволы
радиорелейных и спутниковых
линий.
Назначение
компьютерных сетей (КС)
При
физическом соединении двух или более
компьютеров образуется КС. Для ее
создания необходимо специальное сетевое
оборудование и сетевые программные
средства.
Простейшее
соединение двух компьютеров для обмена
данными, называется прямым соединением.
Для его создания в среде Windows ХР нужно
выполнить команды:
Пуск/программы
/ Стандартные/ Связь /Мастер новых
подключений / Установить прямое
подключение к другому компьютеру
Это
стандартное программное средство, а
аппаратным средством являются стандартные
порты ввода / вывода (последовательные
или параллельные).
Все
КС имеют одно назначение - обеспечение
совместного доступа к общим ресурсам
- аппаратным, программным и
информационным.
Локальные
и глобальные сети
Основные
понятия
Основной
задачей
при создании КС является обеспечение
совместимости оборудования по
электрическим и механическим
характеристикам и по информационному
обеспечению
- по системе кодирования и формату
данных.
Решение
этой задачи основано на модели OSI
(модель
взаимодействия открытых систем). Она
создана на основе технических предложений
Межднародного института стандартов
ISO.
Модель
взаимодействия открытых систем
(OSI)
Системы
компьютерной связи следует рассматривать
на семи
уровнях.
Уровень
Аналогия с почтовой доставкой Уровни
(обмен данными через сеть между
пользователями с использованием модели
ISO/OSI)
Восстановление
документов постепенно с 7-го уровня до
1-го уровня на ПКклиента
Согласно
модели ISO/OSI архитектуру КС следует
рассматривать на 7 уровнях.
Верхний
уровень - прикладной: пользователь на
нем взаимодействует с ВС.
Нижний
уровень - физический: обеспечивает обмен
сигналами между устройствами.
ПК
Отправителя ПК Получателя
Для
обеспечения совместимости на каждом
уровней действуют специальные
стандарт-протоколы (аппаратные,
программные). Физические функции
поддержки протоколов выполняют интерфейсы
(аппаратные устройства), программные —
программы поддержки протоколов.
В
соответствии с используемыми протоколами
КС принято разделять на:
1.
Локальные компьютерные сети - компьютеры
локальной КС используют единый комплект
протоколов для всех участников.
2.
Глобальные компьютерные сети - объединяют
как отдельные ПК, так и отдельные ЛС,
которые могут использовать различные
протоколы.
3. Беспроводные (БКС).
4. Региональные сети (располаг. на значит-ом расстоянии в предполаг. города, района, обл., вкл. в свой сосьав 1 и неск-ко ЛС)
№2
ЛВС: определение, понятие сервера,
рабочей станции, клиента. Классификация
ЛВС: одноранговая сеть, сеть с выделенным
сервером.
Основное
назначение любой компьютерной сети –
предоставление информационных
вычислительных и ресурсов подключенным
к ней пользователям.
С
этой точки зрения локальную вычислительную
сеть можно рассматривать как серверов
и рабочих станций.
Сервер
– компьютер, подключенный к сети и
обеспечивающий ее пользователей
определенными услугами.
Серверы
могут осуществлять хранение данных,
управление базами данных, удаленную
обработку заданий, печать заданий и ряд
других функций, потребность в которых
может возникнуть у пользователей сети.
Сервер – источник ресурсов сети.
Рабочая
станция
– персональный компьютер, подключенный
к сети через который пользователь
получает доступ к её ресурсам.
Рабочая
станция сети функционирует как в сетевом,
так и в локальном режиме. Она оснащена
собственной операционной системой (MS
DOS, Windows и т. д.), обеспечивает пользователя
всеми необходимыми инструментами для
решения прикладных задач.
Особое
внимание следует уделить одному из
типов серверов – файловому серверу
(File Server). В распространенной терминологии
для него принято сокращенное название
файл – сервер.
Файл
– сервер хранит данные пользователей
сети и обеспечивает им доступ к этим
данным. Это компьютер с большой емкостью
оперативной памяти, жесткими дисками
большой емкости и дополнительными
накопителями на магнитной ленте
(стримерами). Он работает под управлением
специальной операционной системы,
которая обеспечивает одновременный
доступ пользователей сети к расположенным
на нем данным. Файл – сервер выполняет
следующие функции: хранение данных,
архивирование данных, синхронизацию
изменений данных различными пользователями,
передачу данных.
Компьютерные
сети реализуют распределенную обработку
данных. Обработка данных в этом случае
распределена между двумя объектами:
клиентом и сервером.
Клиент
– задача, рабочая станция или пользователь
компьютерной сети.
В
процессе обработки данных клиент может
сформировать запрос на сервер для
выполнения сложных процедур, чтение
файла, поиск информации в базе данных
и т. д.
Сервер
выполняет запрос, поступивший от клиента.
Результаты выполнения запроса предаются
клиенту. Сервер обеспечивает хранение
данных общего пользования, организует
доступ к этим данным и передает данные
клиенту.
Клиент
обрабатывает данные и представляет
результаты обработки в виде, удобном
для пользователя. В принципе обработка
данных может быть выполнена и на сервере.
Для подобных систем приняты термины –
системы клиент- сервер или архитектура
клиент – сервер.
Архитектура
клиент – сервер может использоваться
как в одноранговых локальных вычислительных
сетях, так и в сетях с выделенным сервером
(классификация).
Одноранговая
сеть.
В такой сети нет единого центра управления
взаимодействия рабочих станций и нет
единого устройства для хранения данных.
Сетевая операционная система распределена
по всем рабочим станциям. Каждая станция
сети может выполнять функции, как
клиента, так и сервера. Она может
обслуживать запросы от других рабочих
станций и направлять свои запросы на
обслуживание в сеть. Пользователю сети
доступны все устройства, подключенные
к другим станциям (диски, принтеры).
Достоинства
одноранговых сетей:
низкая стоимость и высокая
надежность.
Недостатки
одоноранговых сетей:
1.
Зависимость эффективности работы сети
от количества станций
2.
Сложность управления сетью
3.
Сложность обеспечения защиты информации
4.
Трудности обновления и изменения
программного обеспечения станций
Наибольшей
популярностью пользуются одноранговые
сети на базе сетевых операционных систем
LANtastic, NetWare Lite.
Сеть
с выделенным сервером.
В сети с выделенным сервером один из
компьютеров выполняет функции хранения
данных, предназначенных для использования
всеми рабочими станциями, управления
взиамодействием между рабочими станциями
и ряд сервисных функций.
Такой
компьютер обычно называется сервером
сети. На нем устанавливается сетевая
операционная система, к нему подключаются
все разделяемые внешние устройства –
жесткие диски, принтеры и модемы.
Взаимодействие
между рабочими станциями в сети, как
правило, осуществляется через сервер.
В сетях с централизованным управлением
существует возможность обмена информацией
между рабочими станциями, минуя файл –
сервер.
Достоинства
сети с выделенным сервером:
1.
Надежная система защиты информации
2.
Высокое быстродействие
3.
Отсутствие ограничений на число рабочих
станций
4.
Простота управления по сравнению с
одноранговыми сетями.
Недостатки
сети:
1.
Высокая стоимость из-за выделения одного
компьютера под сервер
2.
Зависимость быстродействия и надежности
сети от сервера
3.
Меньшая гибкость с одноранговой сетью.
№3 Физическая
передающая среда ЛВС. Основные топологии
ЛВС.
Физическая
среда обеспечивает перенос информации
между абонентами вычислительной сети.
Физическая передающая среда ЛВС
представлена тремя
типами кабелей:
витая пара проводов, коаксиальный
кабель, оптоволоконный кабель
Витая
пара
состоит из двух изолированных проводов,
свитых между собой. Скручивание проводов
уменьшает влияние внешних электромагнитных
полей на передаваемые сигналы. Самый
простой вариант витой пары – телефонный
кабель. Витые пары имеют различные
характеристики, определяемые размерами,
изоляцией и шагом скручивания.
Коаксиальный
кабель
по сравнению с витой парой обладает
более высокой механической прочностью,
помехозащищенностью и обеспечивает
скорость передачи информации до 10 – 50
Мбит/с. Для промышленного использования
выпускаются два типа коаксиальных
кабелей: толстый и тонкий. Толстый кабель
более прочен и передает сигналы нужной
амплитуды на большее расстояние, чем
тонкий.
Оптоволоконный
кабель
– идеальная передающая среда. Он не
подвержен действию электромагнитных
полей и сам практически не имеет
излучения. Последнее свойство позволяет
использовать его в сетях, требующих
повышенной секретности информации.
Скорость
передачи информации по оптоволоконному
кабелю более 50 Мбит/с. По сравнению с
предыдущими типами передающей среды
он более дорого, менее технологичен в
эксплуатации.
Основные
топологии ЛВС
Вычислительные
машины, входящие в состав ЛВС, могут
быть расположены самым случайным образом
на территории, где создается вычислительная
сеть.
Топология
ЛВС
– это усредненная геометрическая схема
соединений узлов сети
Топологии
вычислительных сетей могут быть самыми
различными, но для локальных вычислительных
сетей типичными являются три: кольцевая,
шинная, звездообразная. Любую компьютерную
сеть можно рассматривать как совокупность
узлов.
Узел
– любое устройство, непосредственно
подключенное к передающей среде
сети.
Топология
усредняет схему соединений узлов сети.
Так, и эллипс, и замкнутая кривая, и
замкнутая ломаная линия – к шинной.
Топологии
вычислительных сетей могут быть самыми
различными, но для ЛВС типичными являются:
кольцевая, шинная, звездообразная.
1.
Кольцевая
топология
предусматривает соединение узлов сети
замкнутой кривой - кабелем передающей
среды. Выход одного узла сети соединяется
с входом другого. Информация по кольцу
передается от узла к узлу. Кольцевая
топология является идеальной для сети,
занимающих сравнительно небольшое
пространство.
2.
Шинная
топология
- одна из наиболее простых. Она связана
с использованием в качестве передающей
среды коаксиального кабеля. Данные от
передающего узла сети распространяются
по шине в обе стороны. Сеть легко
наращивать и конфигурировать, а также
адаптировать к различным системам. Сеть
шинной топологии устойчива к возможным
неисправностям отдельных узлов.
3.
Звездообразная
топология базируется на концепции
центрального узла, к которому подключаются
периферийные узлы. Каждый периферийный
узел имеет свою отдельную линию связи
с центральным узлом. Вся информация
передается через центральный узел,
который ретранслируется, переключается
и маршрутизирует информационные потоки
в сети.