- •Підготовка до роботи Підготовка до виконання практичних робіт.
- •Завантаження програмного середовища Visual Basic і ознайомлення з його інтерфейсом
- •Практична робота №1 Створення першого проекту Робота з проектом
- •Збереження проекту
- •Присвоєння імені проекту
- •Робота з формою
- •Додавання елементів на форму
- •Додавання командних кнопок
- •Додавання надписів
- •Додавання текстових полів
- •Написання програмного коду, процедур обробки подій
- •Приклад створення тіла процедури
- •Оголошення змінної і встановлення типу даних
- •Створення exe-файлу
- •Практична робота №2 Створення програм для розрахунків Створення програми “Калькулятор”
- •Дизайн проекту
- •Використання рамок
- •Використання перемикачів
- •Послідовність написання програми
- •Створення програми “Функція” для обчислення математичних функцій
- •Використання поля зі списком
- •Практична робота №3 Робота з меню Створення меню
- •Дизайн проекту
- •Створення меню на формі
- •Створення процедур обробки подій при виборі команд в пунктах меню
- •Практична робота №4 Робота з графікою
- •Створення програми “Малювання”
- •Створення процедур обробки подій при виборі команд в пунктах меню
- •Практична робота №5 Робота з підпрограмами, організація циклів, робота з діалоговими вікнами, збереження даних
- •Дизайн проекту
- •Створення програмного коду
- •Робота з підпрограмами
- •Організація циклу
- •Робота з діалоговими вікнами, збереження даних Робота з функцією MsgBox
- •Робота з елементом CommonDialog
- •Запис інформації у файл
Робота з діалоговими вікнами, збереження даних Робота з функцією MsgBox
Функція MsgBox виводить у вікні форми введені дані або текстове повідомлення. Загальний вигляд функції MsgBox такий:
MsgBox(Message, Button, Title),
де Message – повідомлення на екрані, Button – одна з констант Visual Basic, що визначає набір кнопок та значок у вікні повідомлення MsgBox (наприклад, константа vbOKOnly – наявність у вікні повідомлення кнопки Ok), Title – назва вікна повідомлення.
Створимо процедуру яка дозволяє виводити діалогове вікно з привітанням при завантаженні додатку:
Private Sub Form_Load()
Dim m
m = MsgBox("Вас вітає програма табулювання та побудови графіку _ функції y=sin(x)", vbOKOnly)
End Sub
Збережіть проект і перевірте як він працює.
Робота з елементом CommonDialog
Для того, щоб скористуватись елементом CommonDialog необхідно спочатку додати його на панель ToolBox. Здійснити це можна наступним чином:
підвести курсор миші до панелі ToolBox;
натиснути праву клавішу миші, з контекстного меню вибрати Components…;
в діалоговому вікні Components, що з’явиться, вибрати компонент Microsoft Common Dialog Control 6.0;
натиснути кнопку Ok.
Після цих дій на панелі ToolBox з’явиться піктограма елементу CommonDialog.
На панелі інструментів ToolBox виберіть елемент CommonDialog, а потім розташовуємо його на формі. За умовчанням він буде мати ім’я CommonDialog1. Для елементу CommonDialog1 у вікні властивостей Properties змініть наступні властивості:
-
(Name)
DialogSaveData
DialogTitle
Збереження даних у файл
Left
3400
Top
4800
У випадку поточної практичної роботи діалогове вікно необхідно використати для здобуття імені файлу для збереження даних. Коли користувач в діалоговому вікні вибере папку, а потім в рядку Имя файла вкаже ім’я файлу, властивість .FileName об’єкту DialogSaveData набуде повного імені цього файлу.
Запис інформації у файл
Для того, щоб зберегти дані у вибраний файл необхідно здійснити відкриття цього файлу з метою запису в нього даних. Це можна зробити за допомогою наступного рядка:
Open <Ім’я файлу> For Призначення As Номер
Open – оператор для відкриття файлу;
For – ключове слово для визначення призначення;
As – ключове слово для визначення змінної, що містить файловий номер, за допомогою якого буде в подальшому здійснюватись обробка файлу.
Створимо підпрограму для збереження даних у файл результату з виводом діалогового вікна збереження “Збереження даних у файл”. При цьому збереження повинно відбуватися в разі, коли встановлено прапорець “Вивести результат у файл”:
Sub FunSave()
If CheckFile.Value = 0 Then Exit Sub
Dim SaveFile As String
With DialogSaveData
.Filter = "Файл результату (*.dat) |*.dat | Текстовий файл (*.txt) |*.txt"
.FileName = "Result1.dat"
.ShowSave
End With
SaveFile = DialogSaveData.FileName
If DialogSaveData.FileName = Empty Then Exit Sub
Open SaveFile For Output As #2
RezText = TextFun.Text
Print #2, RezText
Close #2
End Sub
За умовою, можливість збереження даних повинна з’являтися при завершені роботи, тобто при виконанні команди Вихід, або при закритті додатку.
Створимо процедуру обробки події при виборі команди Вихід:
Private Sub mnuEnd_Click()
Call FunSave
End
End Sub
Створимо процедуру обробки події вивантаження вікна додатку з пам’яті:
Private Sub Form_Unload(Cancel As Integer)
Call FunSave
End Sub
Збережіть проект і перевірте як він працює.