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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Завдання№1:

1.Активізуйте Visual Basic: Пуск−> Программы−> Visual Basic−> Visual Basic 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

End Sub

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

4. Збережіть форму і проект у своїй папці на своєму системному диску у папці ПР_Програмування_Прізвище з назвою Практична_робота_№9_1_Прізвище:

Збереження форми: меню File −> Save Form.

Збереження проекту: меню меню File −> Save.

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