Спосіб 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

0. Завдання для практичного виконання по темі 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 Вікно виводу

результатів