Контрольні запитання
Що таке змінна? Яким чином можна оголосити змінні?
Для чого використовуються ідентифікатори?
Чим константа відрізняється від змінної?
Які області визначення мають змінні?
Як можна визначити до якого типу даних відноситься змінна?
Що таке функція? Які з вбудованих функцій ви знаєте?
Що таке арифметичні вирази? Який пріоритет встановлено серед операцій?
з чого складається логічний вираз? Чим він відрізняється від арифметичного виразу?
Які логічні операції існують у Visual Basic?
Чи можна оголосити змінні без використання оператора Dim?
Яку структуру мають програми на мові Visual Basic?
Для чого існують коментарі?
Які оператори вводу-виводу ви знаєте? Які вони мають формати? Наведіть приклади.
За допомогою яких опереторів у Visual Basic будується таблиця?
Які оператори можна використовувати для присвоювання та обміну значеннями? Їх застосування та приклади.
Лекція 4 оператори управління
План лекції:
4.1. Оператори розгалуження
4.2. Проектування додатка на базі операторів циклу
4.3. Оператори умовного циклу
4.3. Оператори циклу з лічильником
4.1. Оператори розгалуження
В системі програмування Visual Basic оператори в тілі процедури виконуються послідовно один за одним. Для зміни послідовності виконання операторів використовуються оператори управління. До них відносяться умовні оператори та оператори циклу.
Умовний оператор If…Then…Else
Умовний оператор використовується для подання розгалуженого обчислювального процесу у коді програми мовою Visual Basic. Умовний оператор If…Then…Else має дві структури: лінійну та блочну.
Синтаксис лінійної структури умовного оператора:
If <логічний вираз> Then <оператори1> [ Else <оператори2>]
Дія: обчислюється значення логічного виразу, результатом якого може бути одне з двох значень (істина) або (хибність). Логічний вираз складається з операндів логічного типу, між якими містяться знаки логічних операцій і може мати одне з двох значень: True (Істина) або False (Хибність);
оператори 1 виконуються при значенні логічного виразу "істина";
оператори 2 виконуються при значенні логічного виразу "хибність".
З ауваження! 1. Оператором 2 знов може бути умовний оператор.
2. Вираз у квадратних дужках [ ] може бути відсутній.
Блочна форма оператора If…Then…Else
Синтаксис блочної форми умовного оператора:
If< логічний вираз 1> Then
оператори 1
[Else if <логічний вираз2> Then
оператори 2]
[Еlse
оператори n]
End If
Оператори 1 – це довільна кількість операторів, що виконуються при умові:
Логічний вираз 1 є "істина";
Логічний вираз 2 повертає ненульове значення (істина) або нуль(хибність)
Оператори 2 – це довільна кількість операторів, що виконуються при умові:
Логічний вираз 2 є "істина";
Оператори n – це довільна кількість операторів, що виконуються при інших умовах.
Приклад. Створимо додаток для обчислення платні за працю в нічні години (умову дивіться у Приклад 2 розділу 1).
Для введення даних і відображення результату використаємо елементи типу TextBox. Для програмування зупинимось на події – втрата фокуса елементом Текст2 (Текст2_ LostFocus()). Програма і вигляд додатку відображені нижче.
Рисунок 3.7. Програма обчислення платні за роботу вночі.
Оператор Select Case
Приклад використання оператора множинного вибору. Розглянемо використання оператора множинного вибору Select Case на прикладі обчислення денного заробітку робітника з врахуванням тарифу і тарифного розряду. Код і форма відображені на рис. 3.8.
На формі розмістимо командну кнопку, яку перейменуємо на «Пуск» та відповідно змінимо напис на ній.
Подією для програмування оберемо клацання лівою кнопки миші на кнопці Пуск.
Для вибору тарифного коефіцієнта за розрядом використаємо оператор Select Case r.
Параметр вибору r може приймати 7 різних значень тож використання множинного оператора вибору значно зручніше ніж багаторазове використання лінійної форми умовного оператора If.
If r=1 then k=1
If r=2 then k=1.1
………………….
If r=7 then k=2.2
Private Sub Пуск_Click()
Dim Z!, r%, t!, tr!, k!
Т = Val(InputBox("Т", "Укажіть тариф"))
r = Val(InputBox("r", "Тарифний розряд"))
tr = Val(InputBox("tr", "Відпрацьований час"))
Select Case r
Case 1: k = 1: Case 2: k = 1.1: Case 3: k = 1.35:
Case 4: k = 1.5: Case 5: k = 1.7: Case 6: k = 2:
Case 7: k = 2.2
End Select
Z = t * tr * k
Print "Тариф Т=" & Т; " Грн/годину"
Print "Розряд r=" & r
Print "k=" & k
Print " Відпрацьовано tr=" & tr & " Годин"
Print "Заробіток Z=" & Z & " Грн."
End Sub
Рисунок 3.8. Результат обчислень заробітку
В вище розглянутому додатку запрограмовано подію, якою є щиглик на командній кнопці Пуск, єдиному елементу інтерфейсу встановленому на формі. Введеня даних здійснюється за допомогою функції InputBox, а фіксація їх і результату виконується безпосереднім виведенням на форму за допомогою оператора Print.