Використання рамок
На панелі інструментів ToolBox вибираємо елемент Frame, а потім розташовуємо на формі рамку Frame1.
Для рамки Frame1, яка з’явилася на формі у вікні властивостей Properties змінюємо наступні властивості:
-
(Name)
FrameOper
Caption
Математичні операції
Height
1100
Left
120
Top
840
Width
2850
Використання перемикачів
На панелі інструментів ToolBox вибираємо елемент OptionButton, а потім розташовуємо його на формі в межах рамки. Він буде мати ім’я Option1. Аналогічно розташовуємо ще чотири перемикачі: Option2, Option3, Option4, Option5 в межах рамки.
Для перемикача Option1 у вікні властивостей Properties змінюємо наступні властивості:
-
(Name)
OptionAdd
Caption
Додати
Height
250
Left
120
Top
240
Width
1210
Для перемикача Option2 у вікні властивостей Properties змінюємо наступні властивості:
-
(Name)
OptionSub
Caption
Відняти
Height
250
Left
120
Top
480
Width
1210
Для перемикача Option3 у вікні властивостей Properties змінюємо наступні властивості:
(Name)
OptionMult
Caption
Помножити
Height
250
Left
120
Top
720
Width
1210
Для перемикача Option4 у вікні властивостей Properties змінюємо наступні властивості:
(Name)
OptionDev
Caption
Поділити
Height
250
Left
1440
Top
240
Width
1210
Для перемикача Option5 у вікні властивостей Properties змінюємо наступні властивості:
(Name)
OptionDeg
Caption
Степінь
Height
250
Left
1440
Top
480
Width
1210
На панелі інструментів ToolBox вибираємо елемент CommandButton, а потім розташовуємо на формі командну кнопку Command1.
Для командної кнопки Command1, яка з’явилася на формі, у вікні властивостей Properties змінюємо наступні властивості:
(Name)
CmdCalc
Caption
Обчислити
Height
375
Left
1850
Top
2040
Width
1100
Створений проект повинен мати наступний вигляд:
Рис. 6
Збережіть проект у власній папці під ім’ям Calculator.
Послідовність написання програми
Створимо процедуру обробки події при натисканні на кнопку Обчислити. При написанні процедури будемо використовувати структуру з умовою If…Then…End If.
Активізуємо вікно редактора коду (View\Code), зі списку об’єктів вибираємо CmdCalc і створюємо наступну процедуру: Private Sub CmdCalc_Click() ' Оголошення змінних в тілі процедури Dim First As Double Dim Second As Double ' Присвоєння змінним значень First = TextV1.Text Second = TextV2.Text ' Якщо обрано перемикач "Додати" If OptionAdd.Value = True Then LabelResText.Caption = First + Second End If ' Якщо обрано перемикач "Відняти" If OptionSub.Value = True Then LabelResText.Caption = First – Second End If ' Якщо обрано перемикач "Помножити" If OptionMult.Value = True Then LabelResText.Caption = First * Second End If ' Якщо обрано перемикач "Поділити" If OptionDev.Value = True Then LabelResText.Caption = First / Second End If ' Якщо обрано перемикач "Степінь" If OptionDeg.Value = True Then LabelResText.Caption = First ^ Second End If End Sub
Запустить створений проект і перевірте як він працює. Закрийте вікно проекту.
Також можна використати структуру If…Then…ElseIf…Then…Else…End If. При цьому текст процедури буде такий: Private Sub CmdCalc_Click() ' Оголошення змінних в тілі процедури Dim First As Double 'Перша змінна Dim Second As Double 'Друга змінна Dim Result As Double ' Змінна для збереження результату обчислення ' Присвоєння змінним значень First = TextV1.Text Second = TextV2.Text ' Перевірка умови If OptionAdd.Value = True Then ' Якщо обрано перемикач "Додати" Result = First + Second ElseIf OptionSub.Value = True Then ' Якщо обрано перемикач "Відняти" Result = First - Second ElseIf OptionMult.Value = True Then ' Якщо обрано перемикач "Помножити" Result = First * Second ElseIf OptionDev.Value = True Then ' Якщо обрано перемикач "Поділити" Result = First / Second ElseIf OptionDeg.Value = True Then ' Якщо обрано перемикач "Степінь" Result = First ^ Second End If LabelResText.Caption = Result End Sub
Спробуйте переписати текст процедури з використанням ElseIf.
Запустить змінений проект і перевірте як він працює. Закрийте вікно проекту.