Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Створимо процедуру обробки події при натисканні на кнопку Обчислити. При написанні процедури будемо використовувати структуру з умовою 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. Запустить змінений проект і перевірте як він працює. Закрийте вікно проекту.
Дата публикования: 2014-12-28; Прочитано: 399 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!