Завдання для самостійної роботи

1. Створити власний проект, який містить:

   0. Головну форму(згідно з рисунком 5.3)

   1. Ще п’ять форм, за допомогою яких будуть виконуватись останні лабораторні роботи.

2. Виконати індивідуальне завдання згідно з варіантом (див табл. 5.1) на формі Form2, яка повинна запускатися з Головної форми як і усі останні форми.

3. Зробити звіт з виконаної роботи.

Варіанти щодо виконання лабораторної роботи

Таблиця 5.1

№	Індивідуальні завдання
1
2
Продовження таблиці 5.1
3
4
5
6
7
8
9
10
11
12
13
Продовження таблиці 5.1
14
15
16

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

1. Як завантажити програму Visual Basic 6.0?

2. Як створити власний проект?

3. Яким чином використовується елемент Option Button?

4. Які існують складові частини вікна Visual Basic?

5. Назвіть різновиди типів змінних та констант.

6. Перелічіть способи додавання форм у проект?

7. За допомогою яких дій можна завантажити іншої екранної форми з поточної ?

8. Яким чином можна роздрукувати програмні оператори і форми?

9. Як розрахувати вираз та отримати результат на формі?

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

Тема: Керуючі конструкції Visual Basic, рядкова форма, блокова форма, Select Case.

Мета: Навчитися використовувати керуючі конструкції Visual Basic щодо рішення задач.

Короткі відомості

Конструкції виконуються в тій послідовності, у якій вони записані в програмі. Часто потрібно змінити порядок виконання команд у залежності від виконання (або невиконання) визначеної умови. У Visual Basic, існують керуючі конструкції, призначені для керування порядком виконання команд. Розрізняють два основних типи керуючих операторів

• If

• Select Case

Конструкція If використовується в тому випадку, коли необхідно, щоб група операторів виконувалася при дотриманні визначених умов. Конструкція Select Case дозволяє на підставі аналізу значення заданого виразу виконувати ті або інші дії.

У свою чергу, оператори If, що керують, бувають двох видів:

• If...Then

• If...Then...Else

Конструкція If...Then застосовується, коли необхідно виконати визначені дії в залежності від деякої умови. Керуюча конструкція If...Then...Else використовується в тому випадку, коли необхідно виконати різні дії в залежності від умови.

Конструкція Select Case дозволяє обробляти в програмі кілька умов і аналогічна блокові конструкцій If.. .Then.. .Else. Ця конструкція складається з аналізованого виразу і набору операторів Case на кожне можливе значення виразу.

Працює ця конструкція в такий спосіб: спочатку Visual Basic обчислює значення заданого в конструкції виразу. Потім отримане значення порівнюється зі значеннями, що задаються в операторах Case конструкції. Якщо знайдено шукане значення, виконуються команди, приписані даному операторові Case. Після завершення виконання конструкцій керування буде передано конструкції, що випливає за ключовим словом End Select.

Синтаксис конструкції Select Case наступний:

Select Case ПорівнюванеЗначення

CASE Значення1

конструкція1

CASE значення2

конструкції

End Select

Використання конструкцій операторів If ... Then рядкової і блокової форми

Спочатку, на формі Form3 у власному проекті створеному при виконанні лабораторної роботи №5, необхідно створити три командні кнопки (див рис 6.1)

Приклад 6.1 Обчислити кусково – аналітичну функцію, використовуючи строкову конструкцію оператора If...Then

(1)

(2)

Рисунок 6.1 - Розташування командних кнопок

Рішення

1. Блок схема:

Рисунок 6.2 - Блок – схема алгоритму

2. На кнопку з написом If – рядок потрібно накласти процедуру:

Private Sub Command1_Click()

Dim a As Double

Dim х As Double

a = 0

x = InputBox("Уведіть Х ", "Вікно введення", -5, 5000, 5000)

If x < a Then y = (x^2-1)^(1/3)/(x^2+log(5)/log(10)) Else y = atn(x/sqr(1-x^2))

ttt = MsgBox("y=" & y, , "Відповідь")

End Sub

3. Введення в комп'ютер

4. Налагодження та одержання результату.

Приклад 6.2 Обчислити кусково – аналітичну функцію, використовуючи блокову форму оператора If ...Then(**)

** -Тут і надалі інформація про командну кнопку буде пропущена

Рішення

1. Блок – схема:

Рисунок 6.3 - Блок – схема алгоритму

2. Програмний код:

Private Sub Command2_Click()

Dim x As Double

x = InputBox("Уведіть Х ", "Вікно введення", -5, 5000, 5000)

If x <0 Then

y = 2-х:гілка=1

ElseIf x >=0 And x <= 1 Then

y =exp(x-1): гілка=2

Else

y = cos(x^2):гілка =3

End If

ttt = MsgBox("y=" & y & " гілка =" & гілка, , "Відповідь")

End Sub

2. Уведення програми в комп'ютер.

3. Налагодження й отримання результату.

Приклад 6.3 Обчислити кусково – аналітичну функцію (***)

*** Потрібно використати конструкцію Select Case

Для виконання цього завдання необхідно скористатися умовою з прикладу 6.2.

Рішення

1. Блок – схема.

+

-

+

-

+

-

+

-

Рисунок 6.4 - Блок –схема алгоритму

2. Програмний код.

Private Sub Command3_Click()

Dim x As Double, y As Double

x = InputBox("Уведіть Х ", "Вікно введення", -5, 5000, 5000)

If x < 0 Then n = 1 Else If x >= 0 And x < 1 Then n = 2 Else n = 3

Select Case n

Case 1

y = 2 - х: v = 1: GoTo 2

Case 2

y = Exp(x - 1): v = 2: GoTo 2

Case Else

y = Cos(x ^ 2): v = 3: GoTo 2

End Select

2 ttt = MsgBox("y=" & y & " гілка =" & v, , "Відповідь")

End Sub

3. Введення програми в комп'ютер.

4. Налагодження й одержання результату (Див. рисунок 6.2)

Рисунок 6.4 Результат виконання програми