ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 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, столбцы EG, начиная со 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. Звездообразная топология базируется на концепции центрального узла, к которому подключаются периферийные узлы. Каждый периферийный узел имеет свою отдельную линию связи с центральным узлом. Вся информация передается через центральный узел, который ретранслируется, переключается и маршрутизирует информационные потоки в сети.