Інформатика. Частина 4

інформаційних технологій", "упровадження нових програмних продуктів" і значення, яке користувач може ввести через текстове поле. Використовуйте для цього набір з трьох перемикачів і текстове поле (воно має бути заховане, якщо користувач вибрав один з перших двох перемикачів). За умовчанням повинно підставляться "Освоєння нових інформаційних технологій".

2.Значення змінної sFio повинно вибиратися користувачем за допомогою комбінованого списку. У цей комбінований список повинні автоматично поміщатися значення зі всіх не порожніх осередків стовпця A сторінка Excel. За умовчанням повинно вибиратися значення "Іванова Івана Івановича".

3.Значення змінних bFlagPremia і bFlagGramota повинні встановлюватися залежно від стану двох прапорців — "Премія" і "Грамота". За умовчанням обидва прапорці мають бути встановлені. Якщо користувач зняв обидва прапорці, то йому повинно виводитися застережливе повідомлення "Не вибрана ні премія, ні почесна грамота!" зі скасуванням виведення документа.

4.Користувач повинен мати можливість задавати значення змінної nSummaPremii або за допомогою смуги прокрутки з діапазоном значень від 0 грн. до 100 000 грн., або за допомогою текстового поля. Якщо

прапорець "Премія" знятий, то смуга прокрутки і текстове поле мають бути приховані від користувача.

Хід смуги прокрутки (збільшення або зменшення значення при клацанні по кнопках зі стрілками) має дорівнювати 100 грн.

За умовчанням розмір премії має дорівнювати 100 грн.

5.Помістіть на форму ще одну кнопку Відміна. Ця кнопка повинна закривати поточну форму і спрацьовувати при натисненні клавіші

<Esc>.

6.У заголовку форми повинно виводитися значення "Формування наказу про виплату премії".

Відповідь до завдання 5

До пункту 1 завдання (робота з перемикачами і текстовим полем):

1. У вікні Project Explorer двічі клацніть мишею по об'єкту форми UF1. Потім в ToolBox клацніть по об'єкту Label і відведіть місце цьому елементу управління у верхній частині форми. Клацніть правою кнопкою мишки по створеному елементу управління Label1 і

41

в контекстному меню виберіть Properties. Змініть значення властивості Caption на "За що:" і за допомогою властивості Font підберіть відповідний шрифт і його розмір.

Готова форма

2.У ToolBox клацніть по елементу управління OptionButton і відведіть на формі місце цьому елементу управління. Повторіть цю операцію ще двічі.

3.Відкрийте властивості першого перемикача. Зміните значення властивості Name на optOsvoenie, а значення властивості Caption — на "освоєння нових інформаційних технологій". Для другого перемикача поміняйте значення властивості Name на optVnedrenie і властивості Caption — на "Впровадження нових програмних продуктів", для третього — на optDrugoe і "інше:" відповідно.

4.У ToolBox клацніть по елементу управління TextBox і помістіть його в потрібне місце форми. Встановіть для властивості Name цього елементу управління значення txtDrugoe.

5.Клацніть правою кнопкою миші по порожньому місцю на формі і в контекстному меню виберіть View Code. У списку подій у верхній частині вікна редактора коди виберіть подію Initialize для UserForm і введіть для нього такий код:

optOsvoenie.Value = True txtDrugoe.Visible = False

6.Для події Change перемикача optDrugoe введіть наступний код:

If optDrugoe.Value = True Then txtDrugoe.Visible = True Else

42

txtDrugoe.Visible = False End If

7.Перейдіть до коду події Click для CommandButton1 і замість рядка:

sPovod = "Освоєння нових інформаційних технологій" введіть такий код:

If optOsvoenie.Value = True Then sPovod = _

"Освоєння нових інформаційних технологій" If optVnedrenie.Value =

True Then sPovod = _

"Впровадження нових програмних продуктів" If optDrugoe.Value =

True Then sPovod = txtDrugoe.Value

8.Запустіть форму на виконання, надрукуйте наказ і переконайтеся, що все працює узгоджено і відповідно поставленим умовам.

До пункту 2 завдання (робота з комбінованим списком):

1.Розмістіть на формі ще один елемент управління Label з написом "Кого:" і побудуйте для нього шрифт.

2.Клацніть у Toolbox по елементу управління ComboBox і виділіть для нього місце на формі. Присвойте створеному елементу управління ComboBox ім'я cbFIO.

3.Відкрийте код для події Initialize нашої форми UserForm і доповніть його такими рядками:

Dim oColumn As Range Dim oCell As Range

Set oColumn = Columns("A") For Each oCell In oColumn.Cells If oCell.Value <> "" Then cbFIO.AddItem oCell.Value End If Next cbFIO.ListIndex = 0

4.Перейдіть до коду події Click для CommandButton1 і замість рядка:

sFio = "Іванова Івана Івановича" введіть такий код:

sFio = cbFIO.Value

5.Запустіть форму на виконання і переконайтеся, що все працює нормально.

До пункту 3 завдання (робота з прапорцями):

1. За допомогою ToolBox помістіть на форму два елементи управління CheckBox. Першому елементу властивості Name

43

присвойте значення chPremia і для властивості Caption — значення "Премія", для другого — chGramota і "Почесна грамота" відповідно.

2.Відкрийте код події Initialize форми UserForm і доповніть його такими рядками:

chPremia.Value = True chGramota.Value = True

3.Перейдіть до коду події Click для CommandButton1 і замість рядків:

bFlagPremia = True bFlagGramota = True

введіть такий код:

bFlagPremia = chPremia.Value bFlagGramota = chGramota.Value If bFlagPremia = False And bFlagGramota = False Then

MsgBox "Не вибрана ні премія, ні почесна грамота!" Exit Sub

End If

4.Запустіть форму на виконання і переконайтеся, що все працює нормально.

До пункту 4 завдання (застосування смуги прокрутки і дублюючого текстового поля):

1.Помістіть на форму ще один елемент управління Label з написом "Сума премії:". Присвойте його властивості Name значення lblSum.

2.Помістіть поряд текстове поле і присвойте його властивості Name значення

txtSum.

3.Розмістіть під текстовим полем елемент управління ScrollBar і присвойте такі значення його властивостям:

• Name — значення sbSum;

• Min — значення 0;

• Max — значення 100 000;

• SmallChange — значення 100.

4.Для події Change елементу управління sbSum уведіть такий код: txtSum.Value = sbSum.Value

5.Для події Change елементу управління txtSum уведіть такий код: sbSum.Value = CLng(txtSum.Value)

6.Для події Initialize нашої форми UserForm додайте такий код: sbSum.Value = 100 txtSum.Value = 100

7.Для події Change елементу управління chPremia додайте такий

код:

If chPremia.Value = False Then lblSum.Visible = False txtSum.Visible = False

44

sbSum.Visible = False Else lblSum.Visible = True txtSum.Visible = True sbSum.Visible = True End If

8.Для коди Click кнопки CommandButton1 замість коди: nSummaPremii = 100000

впишіть код:

nSummaPremii = sbSum.Value

9.Запустіть форму на виконання і переконайтеся, що все працює нормально.

До пункту 5 завдань (застосування кнопки):

1.Розмістіть на полі ще одну кнопку і побудуйте значення її властивостей наступним чином:

• Name — значення btnEscape;

• Caption — значення "Відміна";

• Cancel — значення True.

2.Для події Click цієї кнопки помістіть код

Unload Me

До пункту 6 завдань (зміна заголовка форми):

1.Клацніть правою кнопкою миші по порожньому місцю на формі і в контекстному меню виберіть Properties.

2.Для властивості Caption набудуйте значення "Формування наказу про виплату премії".

3.Запустіть форму на виконання і переконайтеся, що накази друкуються правильно.

6. Вимоги до звіту

Оформити звіт в електронному вигляді у pdf - форматі. До звіту внести назву, мету, завдання, хід роботи, отримані результати, необхідні графічні зображення та висновки.

Звіт подати на електронному носії.

7.Контрольні запитання та завдання

7.1.Як розпочати роботу з редактором Visual Basic?

7.2.Як працювати з довідкою з програмування в

Office?

45

7.3.Як відкрити вікно з кодом макросу?

7.4.Назвіть сім арифметичних операторів у VBA.

7.5.Назвіть вісім операторів порівняння у VBA.

7.6.Назвіть два оператори строкового з'єднання у VBA.

7.7.Наведіть приклад роботи зі змінними у VBA.

7.8.Як визначаються константи у VBA.

7.9.Назвіть два оператори умовного переходу у VBA.

7.10.Наведіть приклад використання безумовного оператора переходу у VBA.

7.11.Наведіть приклад роботи із циклами у VBA?.

7.12.Як задати масив у VBA?

7.13.Наведіть основні типи процедур, що використовуються у VBA?

7.14.Як змінити область видимості процедури у VBA.

7.15.Як об’явити процедуру у VBA?

7.16.Наведіть приклад використання вбудованих функцій

уVBA.

7.17.Як запустити дизайнер форм у VBA?

7.18.Наведіть приклад використання елементу управління

уVBA.

8.Література

8.1.Довідка програмного продукту Microsoft Office.

46

ЛАБОРАТОРНА РОБОТА № 19

Вивчення основ організації локальної мережі

Мета: вивчити основи організації локальної мережі.

1.Завдання

1.1.Вивчити теоретичний матеріал з організації локальної мережі.

1.2.Перевірити наявність і справність обладнання та матеріалів для організації локальної мережі.

1.3.Визначити схему організації локальної мережі.

1.4.Виконати необхідні дії для під’єднання компонентів локальної мережі.

1.5.Налаштувати локальну мережу в Windows XP.

1.6.Налаштувати конфігурацію мережі.

1.7.Організувати мережевий доступ до файлів і тек.

1.8.Під’єднатти мережевий диск.

1.9.Налаштувати сумісний доступ до Інтернету.

1.10.Перевірити працездатність локальної мережі.

2.Матеріали й обладнання

Персональні комп’ютери чи ноутбуки в кількості не менше трьох, свічі, кабель для локальної мережі 5 категорії довжиною 3 метри для кожного комп’ютера, мережна плата для кожного комп’ютера, 3-G модем із забезпеченим інтернетресурсом, методичні рекомендації до виконання роботи.

3.Вказівки до роботи

Упроцесі виконання роботи дотримуватися правил безпеки при використанні обжимного інструменту.

Усі комутації локальної мережі виконувати при вимкненому живленні.

47

4.Теоретичні відомості

4.1.З'єднання двох комп'ютерів у локальну мережу

(коротка покрокова інструкція).

На даний момент існують два найбільш поширених способи з'єднання комп'ютерів у локальну мережу, основаних на двох реалізаціях Ethernet технології. Два цих стандарти розрізняються топологією і використовуваним кабелем. Стандарт 10Base-T тепер найбільш уживаний, оскільки технологічніший (такі мережі простіші в обслуговуванні, надійніш і легше модернізуються). Втім, стандарт 10Base-2 ніхто не скасовував, і на його основі можна створити цілком сучасну і життєздатну мережу.

4.2.10BASE-T (Ethernet на витій парі)

Безпечний, найбільш сучасний, допускає з'єднання комп'ютерів на швидкості до 100 Мбіт. Але не дозволяє без покупки спеціального пристрою HUB (хаб) розширити мережу навіть до трьох комп'ютерів. Утім, пристрій цей не дуже дорогий. Максимальна відстань комп'ютер-комп'ютер або комп’ютер-хаб - 100 метрів. Переважно використовувати в межах однієї будівлі.

Буде потрібно:

a. Мережеві карти з UTP роз'ємом (інші назви можуть бути: під виту пару або RJ-45).

b. Зміряти, якомога точніше відстань між комп'ютерами (міряти необхідно по тому шляху, як буде прокладений кабель, тобто двері, наприклад, треба обходити по косяку). Додайте до цього числа декілька метрів (про всяк випадок). Довжина кабелю не повинна перевищувати 100м. Придбайте кабель витаюча пара категорії 5 (cat.5) в потрібній кількості .

с. Дві вилки (роз'єми) RJ-45 . Можна також придбати два захисні ковпачки до них.

d. Інструмент затискаючий (хоча два роз'єми цілком можна затиснути викруткою).

Робота:

1. Прокладіть кабель по потрібному шляху, не допускаючи перекручень і пошкоджень. Залиште з кожного боку запас близько 2-3 м на випадок можливих перестановок комп'ютерів і для зручності монтажу роз'ємів.

48

2. Закріпіть роз'єми на кінцях кабелю відповідно до схеми "crossover" кабелю.

3. Уставте мережеві карти в комп'ютери, набудуйте їх на вільні адреси і переривання (запишіть).

4. Увіткніть (до клацання) роз'єми на кабелі у встановлені мережеві карти.

5. Завантажите комп'ютер. Увімкніть підтримку мережі у вашій операційній системі (драйвер адаптера, протокол, клієнти) відповідно до виставлених на платі адреси і переривання.

4.3. 10Base-2 (на основі коаксіального кабелю).

Зручний тим, що можна легко додати ще декілька комп'ютерів. Максимальна відстань між крайніми точками - 185 метрів.

Буде потрібно:

a.Дві мережеві карти BNC ( наприклад NE2000 Compatible) з Т- конекторами в комплекті (якщо їх немає, купіть окремо поодинці на кожну плату).

b.Виміряйте, якомога точніше, відстань між комп'ютерами (міряти необхідно по тому шляху, як буде прокладений кабель, тобто двері, наприклад, треба обходити по косяку). Додайте до цього числа декілька метрів (про всяк випадок). Довжина кабелю не повинна перевищувати 185 м. Придбайте коаксіальний кабель з хвилевим опором 50 Ом ( схожий на антенни для телевізора, але у того

хвилевий опір 75 Ом і він не підходить). Такий кабель має марку

RG-58.

c. Роз'єм на кабель з байонетним з’єднанням, типу вітчизняного СР-50-... 2шт. на кожен шматок кабелю.

d.Термінатори 2 шт.

e.Паяльник ( потрібний тільки для напайки вітчизняних роз'ємів на кабель, якщо у вас є можливість придбати обтискові роз'єми й інструмент для їх обтиску, то паяльник не буде потрібен).

Робота:

1. Прокладіть кабель по потрібному шляху, не допускаючи перекручень і пошкоджень. Залиште з кожного боку запас близько 2-3 м на випадок можливих перестановок комп'ютерів і для зручності монтажу роз'ємів.

2. Закріпіть роз'єми на кінцях кабелю.

3. Вставте мережеві карти в комп'ютери, набудуйте їх на вільні адреси і переривання (запишіть).

49

4. Надіньте на роз'єм, що стирчить з плати (мама), Т-конектор (тато) і поверніть за годинниковою стрілкою байонет, щоб закріпити роз'єм. 5. Надіньте роз'єм кабелю на один з роз'ємів Т-конектора.

6. На інший роз'єм Т-конектора надіньте термінатор.

7. Завантажите комп'ютер. Увімкніть підтримку мережі у вашій операційній системі (драйвер адаптера, протокол, клієнти) відповідно до виставлених на платі адрес і переривання.

4.4.Конфігурація мережі в Windows XP

Установити мережеві параметри в Windows XP Ви можете кількома способами. По-перше, вручну. Цей методу переважаючий, оскільки дозволяє контролювати всі налаштування. По-друге, для тих, хто нічого не розуміє в мережевих термінах Microsoft , увімкніть майстер установки мережі (Network Setup Wizard). Для запуску майстра, необхідно увійти в ―My Network Places‖ і натиснути на ―set up а home or small office network‖. Натисніть Next, на другому екрані будуть описані деякі рекомендації по правильній установці. Фактично тут Ви знайдете повне керівництво до дії. Натискаємо Next. Тепер для всіх клієнтських комп'ютерів Ви повинні вибрати другу опцію (The computer connects to the Internet through another computer on my network or through а residential gateway) і натисніть Next. На наступному екрані Ви можете ввести або змінити ім'я комп'ютера. Тепер переходимо до наступного вікна, де ми зможемо змінити назву робочій групі. Наступний екран резюмує зроблені зміни і застосовує їх. На наступному екрані Вам буде запропоновано створити диск установки мережі. Оскільки ми робимо домашню мережу цей диск можна не створювати. Просто натисніть «Wizard and then Finish». Надалі ми використовуватимемо перший, ручний режим.

4.5.Майстер мережевої ідентифікації.

Тепер необхідно встановити ім'я Вашого комп'ютера в робочій групі, до якої він належить. Для цього натисніть Start -> Settings -> Control Panel -> System -> і виберіть закладку Computer Name. Спочатку натисніть ―Network ID‖, що дозволить активізувати майстер мережевої ідентифікації (Network Identification Wizard). На першому екрані просто натисніть Next. На наступному екрані потрібно вибрати першу опцію (This computer is part of а business network, and I use it to connect to other computers at work), на наступному екрані

50