 |
|
Спосіб 1. Введення та виведення даних через об’єкти форми
Рис. 3.5 Макет форми (об’єкти та значення властивості Caption)
Програмний код кнопки “Розрахувати”
Програмний код Пояснення
Private Sub Command1_Click() початок процедури
Dim Радіус, Площа As Single оголошення змінних
Радіус = Val(Text1.Text) перетворення текстового поля, до якого вводиться величина радіусу на числове значення за допомогою функції Val()
Const PI# = 3.141592 значення константи РI
Площа = PI * Радіус ^ 2 розрахунок площі кола
Label3.Caption = Площа виведення розрахованого поля до об’єкту Label3
End Sub кінець процедури
Програмний код кнопки “Вихід”
Private Sub Command2_Click()
End
End Sub
Рис 3.6 Вікно результату виконання проекту
Спосіб 2. Введення – виведення даних через системні вікна
Модифікація проекту розрахунку площі кола з використанням функцій
InputBox та MsgBox
Створити нову форму з двома командними кнопками
Програмний код кнопки “Розрахувати”
Private Sub Command1_Click()
Dim Радіус, Площа As Single
Const PI# = 3.141592
Радіус = InputBox("Ведіть радіус кола", "Вікно введення")
Площа = PI * Радіус ^ 2
MsgBox "Розраховане значення площі кола " & Площа, 0, "Вікно виведення результату"
End Sub
Програмний код кнопки “Вихід”
Private Sub Command2_Click()
End
End Sub
Завдання для практичного виконання по темі 3
Постановка задачі
Розробити алгоритм, макет форми, задати властивості об’єктів форми та скласти програмний код мовою VB для розрахунку арифметичного виразу 
. Виконати при значеннях x=7, 8, 9
Математичний запис виразу мовою VB: Y=(5*(x+3)-7)/(x+3)
Рис 3.7 Блок-схема алгоритму рішення задачі
Порядок виконання
1. Завантажити VB, вибравши елемент Standard.exe
2. Створити екранну форму за макетом (рис 3.8)
Для введення початкових даних використовувати текстове поле Text1, для виведення результатів мітку Label4
3. Задати властивість Caption об’єктів форми згідно таблиці 3.7, після чого форма повинна мати вигляд як на рисунку 3.9
Рисунок 3.8 Макет форми Рисунок 3.9 Вигляд форми після завдання
властивості Caption об’єктів
Таблиці 3.7 Об’єкти форми та значення властивості Caption
| Об’єкти | Властивості | Значення |
| Label 1 | Caption | Розрахунок арифметичного виразу |
| Label 2 | Caption | Початкове значення Х |
| Label 3 | Caption | Розраховане Y |
| Label 4 | Caption | (пусто) |
| Label 5 | Caption | Виконав студент 1 курсу......... |
| Text 1 | Text | (пусто) |
| Command 1 | Caption | Розрахувати |
| Command 2 | Caption | Вихід |
| Form 1 | Caption | Алгоритм лінійної конструкції |
4. Визначити інші властивості, які задають колір фону форми, параметри та колір шрифту написів на елементах управління Label, Command, Text тощо (приклад наведено а таблиці 2.3 завдання для практичного виконання по темі 2)
5. Створити наступний програмний код кнопки “Розрахувати”.
| Оператори | Пояснення |
| Private Sub Command1_Click() | - початок процедури |
| Dim X,Y As Single | - оголошення змінних X,Y як дійсних чисел з плаваючою комою |
| X=Val(Text1.Text) | - зчитування з текстового поля об’єкта Text1 заданого значення та перетворення його до числового типу за допомогою функції Val() |
| Y=(5*(X+3)-7)/(X+3) | - розрахунок виразу |
| Label 4.Caption=Y | - зміна властивості Caption об’єкта Label 4, в результаті чого розраховане значення змінної Y відображається як напис |
| End Sub | - кінець процедури |
6. Створити програмний код кнопки “Вихід”
| Оператори | Пояснення |
| Private Sub Command4_Click() | - початок процедури |
| End | - вихід із додатку |
| End Sub | - кінець процедури |
7. Виконати проект, натиснувши F5 або меню Run→Start. Перевірити правильність виконання розрахунків за допомогою контрольного прикладу: при x=7 Y=4,3; при x=8 Y=4,363636, при x=9 Y=4,416667
8. Вийти із проекту, натиснувши кнопку “Вихід”
9. Зберегти форму та проект в особистій папці під ім’ям Linia 1.
10. Створити проект, що виконується за допомогою меню File→Make Linia1.exe (Файл ® Делать Linia 1exe).
11. Зберегти під тим же ім’ям. Перевірити роботу створеного додатку. Для цього закрити VB, із особистої папки запустити файл Linia 1.exe
Модифікація проекту
Організація введення та виведення даних через системні вікна за допомогою
функцій InputBox та MsgBox
Порядок виконання
1. Створити новий проект
2. Створити форму з наступними елементами управління та властивостями Caption (таблиця 3.8)
Таблиця 3.8 Значення властивості Caption об‘єктів форми
| Об’єкти | Властивості | Значення |
| Label 1 | Caption | Розрахунок арифметичного виразу |
| Label 2 | Caption | Виконав студент 1 курсу......... |
| Command 1 | Caption | Розрахувати |
| Command 2 | Caption | Вихід |
| Form 1 | Caption | Алгоритм лінійної конструкції |
3. Змінити властивості всіх об’єктів форми (шрифт, розмір, колір, спосіб написання, вирівнювання написів, колір фону)
4. Створити наступний програмний код кнопки "Розрахувати"
| Оператори | Пояснення |
| Private Sub Command4_Click() | - початок процедури |
| Dim X,Y As Single | - оголошення змінних X,Y як дійсних чисел з плаваючою комою |
| Х=InputBox ("Ведіть значення Х", "Вікно введення даних", ,1000, 1000) | - функція InputBox з параметрами системного вікна, в результаті чого дані, записані у вікні присвоюються змінній Х (результати роботи оператора представлені на рисунку 3.8) |
| Y=(5*(X+3)-7)/(X+3) | - розрахунок виразу |
| MsgBox "При Х=" & X & "розраховане значення Y=" & Y, 0, "Вікно виводу результатів" | - функція MsgBox з параметрами системного вікна, в яке виводяться результати обчислень (результати роботи оператора на рисунку 3.9) |
| End Sub | - кінець процедури |
5. Створити наступний програмний код крокви "Вихід"
| Оператори | Пояснення |
| Private Sub Command4_Click() | - початок процедури |
| End | - вихід із додатку |
| End Sub | - кінець процедури |
6. Перевірити роботу проекту
7. Зберегти під ім’ям Linia 2
8. Створити проект, що виконується (команда File→Make Linia2.exe або Файл ® Делать Linia2exe)
9. Зберегти під тим же ім’ям. Закрити VB. Перевірити роботу створеного додатку
10. Створити та зберегти в особистій папці проекти прикладів, розглянутих в теоретичних основах, створити завантажувальні файли (тобто .ехе файли),
Рисунок 3.10 Вікно для введення даних Рисунок 3.11 Вікно виводу
результатів
4. Тема: "Оператори VB. Створення додатків, які реалізує розгалужений обчислювальний процес.
Теоретичні основи.
Розгалуження – вид управляючої структури, що передбачає можливість вибору з декількох варіантів, для кожного з яких в залежності від певної умови виконується різна послідовність операторів. У VB розгалуження реалізовано за допомогою операторів If…Then…Else та Select Case
Частіше використовується оператор If…Then, який може мати однорядкову або блочну структуру.