- •Міністерство освіти і науки україни
- •1 Створення програм у середовищі Visual Basic 6.0. Основні поняття - об'єкт, властивість, подія.
- •1.1 Візуальне створення програми
- •1.2 Створення вихідного коду
- •1.3 Контрольні запитання
- •1.4 Практичні завдання
- •1.5 Тест
- •2 Основні оператори мови
- •2.1 Організація розгалужених обчислювальних процесів
- •2.1.1 Умовний оператор If
- •If умова Then
- •2.1.2 Оператор варіанти Select Case
- •2.2 Організація циклічних обчислювальних процесів
- •2.2.1 Оператор циклу For . . . Next
- •Частина початкового рядка циклу Step n може бути пропущена, коли крок зміни перемінної циклу дорівнює одиниці. Приклад використання циклу For … Next
- •2.2.2 Оператор циклу Do While . . . Loop
- •2.2.3 Оператор циклу Do. . . Loop While
- •2.3 Контрольні запитання
- •2.4 Практичні завдання
- •2.5 Тест
- •3 Використання елементів управління в програмах. Робота з формами. Поняття методу
- •3.1 Елементи управління - смуги прокручування, перемикачі, прапорці, групи, списки, що розчиняються
- •3.2 Робота з формами. Поняття методу
- •Приклад програми
- •3.2 Контрольні запитання
- •3.4 Практичні завдання
- •3.5 Тест
- •4 Управління програмою за допомогою меню. Робота з масивами елементів управління, змінних
- •4.1 Управління програмою за допомогою меню
- •4.2 Робота з масивами елементів управління, змінних
- •4.3 Контрольні запитання
- •4.4 Практичні завдання
- •Аналіз стану товарних запасів
- •5 Розробка програм з використанням підпрограм – процедур і функцій, вікон повідомлень
- •5.1 Підпрограми – процедури і функції
- •5.2 Вікна повідомлень
- •Коди сполучень кнопок у вікні повідомлення
- •Коди значків у вікні повідомлення
- •Можливі значення, що повертає функція MsgBox()
- •Приклад програми з використанням підпрограм, вікон повідомлень
- •5.3 Контрольні запитання
- •5.4 Практичні завдання
- •5.5 Тест
- •6 Робота з файлами
- •6.1 Файли довільного доступу
- •6.2 Файли послідовного доступу
- •6.3 Бінарні файли
- •Приклад виконання програми роботи з файлом
- •5.4 Контрольні запитання
- •5.5 Практичні завдання Завдання №1
- •Завдання №2
- •Завдання №3
- •7 Використання Visual Basic for Application у Microsoft Excel
- •7.1 Основні поняття
- •7.2 Редактор vba
- •7.3 Створення функцій користувача
- •7.4 Автоматизація розрахунків на робочому листі
- •7.5 Робота з формами у середовищі vba
- •7.6 Контрольні запитання
- •7.7 Практичні завдання
- •Створити таблицю «Зведення про реалізацію товарів», розрахунок підсумкових значень у який по рядках і в цілому по таблиці виконується за допомогою командної кнопки «Розрахунок».
- •7.8 Тест
- •Література
- •Інформатика та комп’ютерна техніка
5.2 Вікна повідомлень
Прикладом застосування стандартних процедур і функцій можна вважати роботу зі стандартними можливостями мови програмування Visual Basic по виведенню повідомлень. Для виведення повідомлень у стандартних вікнах діалогу можна використовувати:
оператор MsgBox;
функцію MsgBox().
Оператор MsgBox викликає стандартну підпрограму, яка виводить вікно повідомлення. Загальна форма оператору:
MsgBox Message, CodKey + CodIcon, Title
Параметри процедури MsgBox:
Message – повідомлення у вікні діалогу, рядок символів;
CodKey – код кнопок у вікні;
CodIcon – код значка, який відображається у вікні;
Title – вміст заголовку вікна повідомлення, рядок символів.
Коди кнопок і значків дають змогу визначити які кнопки повинні бути присутніми у вікні повідомлення і який знак виводити.
У таблицях наведена інформація про деякі можливі сполучення кнопок, значки вікон повідомлень.
Коди сполучень кнопок у вікні повідомлення
Ім’я константи |
Значення |
Сполучення кнопок |
vbOKOnly |
0 |
Ok |
vbOKCancel |
1 |
Ok i Cancel (Отмена) |
vbAbortRetryIgnore |
2 |
Abort (Стоп), Retry (Повтор), Ignore (Пропустить) |
vbYesNoCancel |
3 |
Yes (Да), No (Нет), Cancel (Отмена) |
vbYesNo |
4 |
Yes (Да), No (Нет) |
vbRetryCancel |
5 |
Retry (Повтор), Cancel (Отмена) |
Коди значків у вікні повідомлення
Ім’я константи |
Значення |
Значок |
Вигляд |
vbCritical |
16 |
Критичне повідомлення |
|
vbQuestion |
32 |
Запит |
|
vbExclamation |
48 |
Попередження |
|
vbInformation |
64 |
Інформація |
|
У операторі можна використовувати як імена стандартних констант, так і їх значення.
Наприклад, якщо виконати оператор
MsgBox "Ви впевнені?", vbOKOnly + vbExclamation, "Увага!"
на екрані з’явиться таке вікно |
|
Результат не зміниться, якщо в програмному коді ввести:
MsgBox "Ви впевнені?", 0 + 48, "Увага!"
Оскільки оператор MsgBox виконує певну процедуру, то використання інших кнопок крім vbOKOnly фактично не має сенсу. Всі кнопки можуть бути виведені у вікні повідомлення, але змінити дію програми в залежності від обраної кнопки важко, оскільки процедура не повертає значення, яке можна аналізувати.
Функція MsgBox() усуває цей недолік. Параметри функції MsgBox() такі ж, як і параметри оператору MsgBox. Функція MsgBox() повертає деяке значення, яке можна привласнити змінній, проаналізувати і в залежності від обраної кнопки виконати різні дії.
Можливі значення, що повертає функція MsgBox()
Ім’я константи |
Значення |
Обрано кнопку |
vbOK |
1 |
кнопка Ok |
vbCancel |
2 |
кнопка Cancel (Отмена) |
vbAbort |
3 |
кнопка Abort (Стоп) |
vbRetry |
4 |
кнопка Retry (Повтор) |
vbIgnore |
5 |
кнопка Ignore (Пропустить) |
vbYes |
6 |
кнопка Yes (Да) |
vbNo |
7 |
кнопка No (Нет) |
Приклад використання функції MsgBox():
Private Sub cmdDelete_Click()
Vid=MsgBox("Знищити дані таблиці?",vbOKCancel+vbQuestion,"Увага - знищення")
If Vid = vbOK Then
For i = 0 To 5
txtName(i).Text = " "
txtSum(i).Text = " "
Next
End If
End Sub
Процедуру буде виконано, якщо клацнути кнопкою миші по кнопці cmdDelete. Функція MsgBox() виведе на екран таке вікно повідомлення:
Після натиснення кнопки ОК або Отмена, значення, що повертає функція, буде привласнено змінній Vid. Якщо Vid дорівнює vbOK (можна порівнювати з 1), то виконується знищення вмісту елементів масиву текстових полів txtName і txtSum.