Контрольні питання:

1. Яку структуру має вікно редактора VisualBasic ?

2. Яку роль відіграють візуальні засоби проектування?

3. Які різновиди елементів управління додатком існують у VisualBasic?

4. Яку роль відіграють форми у VisualBasic?

5. Яку роль відіграють модулі у VisualBasic?

6. Яку структуру має процедура?

7. Які різновиди процедур існують?

8. З якою метою використовують у формах текстові вікна?

9. Яку роль відіграють написи?

10. Яка властивість задає значення напису? Текстового поля?

11. Які властивості має форма?

12. Що таке змінна у VisualBasic?

13. Що таке константа у VisualBasic?

14. Які правила утворення імен змінних та констант?

15. Які способи оголошення змінної існують?

16. Які типи змінних існують у VisualBasic?

17. Які математичні оператори існують у VisualBasic?

18. Як звернутись у коді процедури до певної властивості елемента управління?

19. Як створити незалежний додаток?

20. Що таке об’єкт, подія, процедура події у VisualBasic?

21. Які події пов’язані з Мишею?

Лабораторна робота №10

Тема:Visual Basic. Розробка додатків, що реалізують розгалужений обчислювальний процес.

Мета: навчитись використовувати засоби Visual Basic для розробки додатків з розгалуженим обчислювальним процесом.

Завдання№1:

На робочому столі створіть папку з назвою ПР_№10. У цю папку збережіть всі створені проекти в програмі Visual Basic. Не забудьте в кінці пари перемістити дану папку на свій системний диск.

1.Активізуйте VisualBasic: Пуск−>Программы−>Visual Basic−>VisualBasic 6.0. Розробіть форму з 6 написами, 3 текстовими полями і однією командною кнопкою у відповідності з наведеним нижче малюнком.

2. Введіть код процедури обробки події – клацання на командній кнопці Обчислити. Для реалізації розгалужень застосуємо конструкцію If... Then та If ... Then ... Else . У вікні редактора коду створіть програмний код, коментарів вводити не потрібно:

Private Sub Command1_Click()

Dim a, b, c, D, x1, x2 As Double ‘ явний описзмінних

‘ присвоєння значення текстового поля Text1 форми змінній а

a = Val(Text1.Text)

‘ присвоєння значення текстового поля Text2форми змінній b

b = Val(Text2.Text)

‘ присвоєння значення текстового поля Text3 форми змінній с

c = Val(Text3.Text)

‘ Обчислення дискримінанта

D = b * b - 4 * a * c

‘ випадок, коли всі коефіцієнти квадратного рівняння = нулю

If (a = 0) And (b = 0) And (c = 0) Then Label5.Caption = "Розв'язківбезліч!"

‘ випадок лінійного рівняння (а=0 , b не дорівнює нулю bx+c=0)

If (a = 0) And (b <> 0) Then Label5.Caption = -c / b

‘ випадок, коли коефіцієнти квадратного рівняння a іb= 0, а с не нуль

If (a = 0) And (b = 0) And (c <> 0) Then Label5.Caption = "Розв’язківнеіснує!"

‘ випадок, коли а не дорівнює нулю, а дискримінант від’ємний

If (a <> 0) And (D < 0) Then Label5.Caption = "Розв’язківнеіснує!"

‘ випадок, коли а не дорівнює нулю, а дискримінант додатній

If (a <> 0) And (D > 0) Then

x1 = (-b - Sqr(D)) / (2 * a)

Label4.Caption = x1

x2 = (-b + Sqr(D)) / (2 * a)

Label5.Caption = x2

End If

If (a<> 0) And (D= 0) Then

‘ випадок, коли дискримінант дорівнює нулю

Label4.Caption = “Розв’язок один!”

Label5.Caption=-b/(2*a)

End If

EndSub

3.Закрийте вікно коду.

4. Збережіть створений проект на робочому столі у папці ПР_№10. Не забудьте перемістити дану папку на свій системний диск.

Збереження проекту в Visual Basic обов’язково проходить в два етапи:

1-й етап - збереження форми: меню File −>Save Form As −> у діалоговому вікні вкажіть місце збереження: Робочий стіл – Папка ПР_№10 і ім’я форми Практична_робота_№10_1_Прізвище, після чого натисніть кнопку Сохранить.

2-й етап збереження проекту: меню File −>Save Project As −> у діалоговому вікні вкажіть місце збереження Робочий стіл – Папка ПР_№10 і ім’я форми Практична_робота_№10_1_Прізвище, після чого натисніть кнопку Сохранить.

5. Запустіть розроблений проект на виконання, скориставшись відповідним меню або кнопкою старт панелі інструментів.