Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
2. На панелі інструментів ToolBox вибираємо елемент ComboBox, а потім розташовуємо його на формі.
3. Для списку Combo1, який з’явився на формі у вікні властивостей Properties змінюємо наступні властивості:
(Name) | ComboFun |
List | (List) |
Text | Функція |
Height | |
Left | |
Top | |
Width |
Для властивості List введіть список функцій (Синус, Косинус, Тангенс, Модуль)
4. Створений проект повинен мати наступний вигляд:
Рис. 8
5. Створимо процедуру обробки події при натисканні на кнопку Обчислити. При написанні процедури будемо використовувати структуру з умовою If…Then…Else If…Then…Else…End If. При цьому текст процедури буде наступний:
Private Sub CmdCalc_Click()
' Оголошення змінних в тілі процедури
Dim a As Double
Dim f As String
' Присвоєння змінній значеня
a = TextV1.Text
If ComboFun.Text = "Синус" Then ' Якщо обрано "Синус"
f = Sin(a)
ElseIf ComboFun.Text = "Косинус" Then 'Якщо обрано "Косинус"
f = Cos(a)
ElseIf ComboFun.Text = "Тангенс" Then 'Якщо обрано "Тангенс"
f = Tan(a)
ElseIf ComboFun.Text = "Модуль" Then 'Якщо обрано "Модуль"
f = Abs(a)
Else: f = Empty
End If
LabelResText.Caption = f
End Sub
6. Запустить створений проект і перевірте як він працює. Закрийте вікно проекту.
Дата публикования: 2014-12-28; Прочитано: 212 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!