1. Інструментальне середовище vba
1.1. Створення панелі інструментів користувача.
Створення власної панелі користувача в MS Word здійснюємо наступними командами:
-
меню "Вид"→"Панель инструментов"→"Настройка"
-
меню "Сервис"→"Настройка". (Рис.1.1)
Рис. 1.1. Вікно "Настройка" для створення панелі інструментів
Викликаємо у цьому вікні вкладнику "Панель інструментів" і натискаємо на кнопку "Создать". Назва панелі інструментів: Tverdohlib_RGR6, а нижче вибираємо із списку власний файл і закриваємо вікно "Настройка".
Рис. 1.2. Створення панелі інструментів
1.2. Створення макросів і піктографічних кнопок.
Для створення програм і кнопок макросів за допомогою яких вони викликаються виконуємо наступну команду: меню "Сервис"→"Макрос"→"Макросы"
Рис. 1.3. Створення макросів
У діалоговому вікні, що з'явилося (Рис.1.4.) у пункті "Макросы из" вибираємо назву власного файлу, а у рядкові "Имя" вводимо ім'я макросу і натискаємо "Создать".
Рис.1.4. Діалогове вікно створення макросів
Перед нами відкривається вікно редактора VBA (Рис.1.5.). Для перевірки працездатності програми використовуємо функцію MsgBox для виведення назви програми. І натискаючи функціональну клавішу F5перевіряємо роботу програми.
Рис.1.5. Вікно редактора VBA
Натискаємо на кнопку з синім W і переходимо у MS Word. Викликаємо вікно "Настройка", переходимо на вкладнику "Команди", вибираємо із списку пункт "Макросы", вибираємо назву власного файлу.(Рис.1.6.)
Рис.1.6. Винесення кнопок макросів на панель інструментів користувача
Праворуч від пункту "Макросы" мишкою беремося за напис "Iteraz" і переносимо її на панель інструментів користувача.
Змінюємо вигляд кнопки, щоб вона відповідала призначенню програми. Для цього за контекстним меню на вибраній кнопці виконуємо команди: "Основной стиль", "Изменить значок на кнопке". При цьому відкривається редактор кнопок, в якому креслимо піктографію, що відповідає назві програми "І".(Рис.1.7.)
Рис.1.7. Створення напису на кнопці
2. Реалізація ітераційного циклу мовою VBA
2.1. Постановка задачі
Розробити алгоритм та програму знаходження значень функції однієї змінної
Якщо аргумент функції х належить інтервалу [x0,xn] та змінюється за формулою хі=хі-1+∆х. Виконати тестування для перевірки правильності функціонування програми для значень а=1,4; b=2,0; c=-1,5, на інтервалі
[-4;3] , якщо ∆х=0,5.
2.2. Блок-схема алгоритму
2.3. Таблиця ідентифікаторів
|
Змінна алгоритму |
x |
a |
b |
c |
y |
x0 |
xn |
∆x |
|
Ідентифікатор |
x |
a |
b |
c |
y |
x0 |
xn |
dx |
|
Тип |
Single |
Single |
Single |
Single |
Single |
Single |
Single |
Single |
2.4. Текст програми
Sub Interaz ()
MsgBox ("Ітерційний цикл")
Dim a As Single, b As Single, c As Single
Dim x As Single, y As Single
Dim x0 As Single, xn As Single, dx As Single
a = InputBox("Уведіть а")
b = InputBox("Уведіть b ")
c = InputBox("Уведіть c")
x0 = InputBox("Уведіть x0")
xn = InputBox("Уведіть xn")
dx = InputBox("Уведіть крок")
x=x0
While x<=xn
If x > b Then
y = a * Log(Sqr(x - b)) + c
Else
If x = b Then
MsgBox ("y невизнчений")\ Go To 1:
Else
y = a * Log(Sqr(b - x)) + c
End If
End If
MsgBox ("y=" + Str(y) + "x=" + Str(x))
1:
x=x+dx
Wend
End Sub