Тема: "Оператори vb. Створення додатків, які реалізує розгалужений обчислювальний процес.
Теоретичні основи.
Розгалуження – вид управляючої структури, що передбачає можливість вибору з декількох варіантів, для кожного з яких в залежності від певної умови виконується різна послідовність операторів. У VB розгалуження реалізовано за допомогою операторів If…Then…Else та Select Case
Частіше використовується оператор If…Then, який може мати однорядкову або блочну структуру.
Однорядковий синтаксис
If < умова > Then < оператор 1 > [Else < оператор 2 >]
Функціонує оператор так: якщо ума після If істина, то виконується оператор 1, який указано після Then. Якщо умова хибна, то виконується оператор 2, який указано після Else
Приклад
4.1
Однорядковий
синтаксис оператора If Then. Скласти
блок-схему алгоритму та розробити на
Visual
Basic
проект
для розрахунку
.
На формі розмістити дві командні кнопки,
задати властивості об’єктів. Введення
та виведення даних організувати через
системні вікна.
Рис. 4.1 Макет форми (об’єкти та значення властивості Caption)
Рис. 4.2 Блок-схема алгоритму рішення задачі
Програмний код кнопки "Розрахувати"
Private Sub Command1_Click()
Dim X As Single
Dim Y As String
X = InputBox("Введіть X", "Вікно введення даних")
If X >= 0 Then Y = Str(Sqr(X)) Else Y = "не існує"
MsgBox "Корінь із " & X & " " & Y, 0, "Вікно виводу"
End Sub
Програмний код кнопки "Вихід"
Private Sub Command2_Click()
End
End Sub
Блочний синтаксис
If < умова 1 > Then
[ < оператори 1 > ]
[ElseIf < умова 2 >] Then
[ < оператори 2 > ]
...
Else
[ < оператори n > ]
End If
Приклад 4.2. Блочний синтаксис складного розгалуження. Скласти блок-схему алгоритму та розробити проект на VB для розрахунку значення виразу:
Х – ціле число. Введення та виведення даних здійснити через системні вікна за допомогою функцій InputBox та MsgBox
На формі розмістити три командні кнопки:
Command1 з програмним кодом, який містить блочну конструкцію If…Then…Else;
Command2 з програмним кодом, який містить оператор Select…Case;
Command3 програмний код виходу.
Рис. 4.3 Макет форми (об’єкти та значення властивості Caption)
Синтаксис конструкції Select…Case
Select Case < вираз_що_перевіряється >
[Case < значення 1 >
[ оператори 1]]
[Case < значення 2 >
[ оператори 2 ]]
…
[Case Else
[ оператори n ]]
End Select
<вираз_що _перевіряється> – любий числовий або символьний вираз
<значення n> – вираз, який може мати одну з наступних форм:
<вираз 1> [,< вираз 2>...]
<вираз 1> ТО <вираз 2>
IS <вираз з операцією>
Рис. 4.4 Блок-схема алгоритму рішення задачі
Програмний код кнопки "Конструкція Select…Case"
Private Sub Command2_Click()
Dim X, Y As Integer
X = InputBox("Введіть значення Х", "Вікно введення даних")
Select Case X
Case Is >= 10
Y = Sqr(X)
Case Is <= -10
Y = Abs(X)
Case -10 To 10
Y = X ^ 2
End Select
MsgBox "При Х=" & X & " Y=" & Y, 0, "Вікно виводу результатів"
End Sub