Послідовність написання програми

Date: 2015-10-07; view: 360.

Створимо процедуру обробки події при натисканні на кнопку Обчислити. При написанні процедури будемо використовувати структуру з умовою If…Then…End If.

24. Активізуємо вікно редактора коду (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

25. Запустить створений проект і перевірте як він працює. Закрийте вікно проекту.

Також можна використати структуру 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

26. Спробуйте переписати текст процедури з використанням ElseIf.

27. Запустить змінений проект і перевірте як він працює. Закрийте вікно проекту.