Лабораторна робота №5. Створення процедур у vba з багаторазовими повтореннями (циклічні структури).

Мета роботи: 1. Вміти розробляти алгоритми циклічних обчислювальних процесів;

2. Навчитися конструювати на мові VBA циклічні обчислювальні процеси.

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

У VBA така структура реалізується за допомогою операторів For-Next. Формат його такий:

Тіло циклу

Зауваження: 1. Параметром циклу називається така змінна, для якої відомі початкове і кінцеве значення, а також крок зміни її на цьому інтервалі. Іншими словами, задані інтервал і закон зміни.

2. Якщо в заголовку циклу не стоїть ключове слово Step, то крок змінни параметру циклу приймається рівним 1.

Циклічною структурою описуються різноманітні задачі. Серед них задачі табулювання функції, накопичення суми і таке інше.

Табулювання функції – це процес створення таблиці значень функції на деякому визначеному інтервалі зміни аргументу. Наприклад, сконструюємо програмний код табулювання функції Y=x² на інтервалі х (-1;1), х=0.2. Послідовність дій наступна:

1. Завантажити редактор VBA;

2. Вставити модуль;

3. У вікні модуля ввести текст наступного програмного коду:

Sub MyProgramm1()

Dim x As Single

Dim y As Single

i = 1

For x = -1 To 1 Step 0.2

y = x ^ 2

Cells(i, 2).Value = y

Cells(i, 1).Value = x

i = i + 1

Next x

End Sub

4. Запустити програму на виконання, для цього необхідно встановити курсор у будь-якому місці програми і натиснути команду Run;

5. Р езультати обчислення отримаємо у робочому листі. Значення „х” у стовпчику А, „у” – у стовпчику В.

Рис. 1. Фрагмент робочого листа з результатами обчислень

Накопичення суми. При накопиченні суми необхідно виконати такі дії:

1. Під суму відвести комірку, наприклад, S;

2. Перед накопиченням (оператор For) в комірку S заслати 0;

3. В тілі циклу послідовно в комірку S засилаються спостереження, які необхідно накопичити, за принципом

S = S+Xi

4. Виведення значення суми здійснюється після оператора Next.

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

Sub Sr_Temperature ( )

Dim i As Integer, n As Integer

Dim t As Single, s As Single, c As Single

n = Val(Input Box (“Введите количество наблюдений”))

S = 0

For i=1 To n

t= Val(InputBox (“Введите очередное значение t “))

S= S+t

Next i

C= S/n

Range (“А1”).Value = C

End Sub

Порядок роботи:

1. Виконати завдання наведені у лабораторній роботі;

2. Розробити програмний код табулювання функції для задачі з 3-ї лабораторної роботи;

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

4. М одернізувати попередню програму з врахуванням того, що значення середньодобових температур треба вводити за допомогою методу Cells.

Лабораторна робота №6

Створення призначених для користувача (пользовательских)

діалогових вікон

Мета роботи : 1. Утямити, що є призначена для користувача форма (UserForm);

2. Як вставляти об'єкт UserForm в проект і встановлювати його властивості;

3. Навчитися додавати елементи управління до об'єкту UserForm і встановлювати їх властивості;

4. Зв'язувати програму з елементами управління об'єкту UserForm;

5. Навчитися створювати процедури подій і інших програм форми.

Загальні стани

У багатьох випадках зручно використовувати функції InputBox і MsgBox, але їх можливості досить обмежені. Великі можливості мають призначені для користувача діалогові вікна, які створюються в VBA як екранні форми (UserForm). Нижче приведений алгоритм створення призначеного для користувача діалогового вікна.

1. Визначте, для чого використовуватиметься діалогове вікно;

2. Перейдіть в редактор VBA і вставте нову екранну форму;

3. Додайте елементи управління в екранну форму;

4. Встановыть властивості елементів управління, присутніх в екранній формі;

5. Напишіть процедури обробки подій для елементів управління екранної форми.