Створення програми “Функція” для обчислення математичних функцій

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

Створимо процедуру обробки події при натисканні на кнопку Обчислити. При написанні процедури будемо використовувати структуру з умовою 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. Запустить змінений проект і перевірте як він працює. Закрийте вікно проекту.

Створимо додаток, який дозволяє виконувати обчислення математичних функцій для певного аргументу. В цьому додатку вибір математичної функції буде відбуватися за допомогою елементу керування “список”.

1. Створіть новий проект. Помістить на форму надпис з назвою “Змінна”, текстове поле з ім’ям TextV1 для введення змінної a, командну кнопку з ім’ям CmdCalc, назвою “Обчислити”, надпис з назвою “Результат”, надпис з ім’ям LabelResText для виведення результату (змінна f). В результаті повинно вийти щось схоже на те, що зображено на рис.7.

Рис. 7

Дата добавления: 2014-12-23