Лабораторная работа 4.2. Использование математических операторов.
Задание: Создать программу – эмулятор арифмометра, который будет выполнять действия математических операторов из Таблицы 4.2.
Ход работы:
-
Запустите Visual Basic 6.0 (см. Запуск Visual Basic 6.0.).
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть.
Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 4.3.
-
Для события Click элемента управления cmdOperator1 напишите код:
Dim dblArg1 As Double
Dim dblArg2 As Double
dblArg1 = txtArg1.Text
dblArg2 = txtArg2.Text
txtResult.Text = dblArg1 + dblArg2
-
Далее для события Click элементов управления с cmdOperator2 по cmdOperator7 напишите тот же код, что и для cmdOperator1, меняя знак математический оператор в последней строке, в соответствии со свойством Caption.
Например для cmdOperator2 код будет следующим:
txtResult.Text = dblArg1 - dblArg2
-
Запустите приложение.
Рисунок 4.3. Элементы упрвления и их свойства к лабораторной работе 4.2.
Результат работы приложения: по клике на кнопки cmdOperator1…cmdOparator7 должно производится арифметическое действие с аргументами, которое соответствует свойству Caption.
Лабораторная работа 4.3. Использование математических операторов для расчета математических формул.
Задание:
Написать приложение для расчета
-
площади окружности по известному радиусу (
); -
объема шара по известному радиусу (
); -
объем цилиндра по известному радиусу и высоте (
).
используя TextBox для задания переменных значений. Результат выводить в окне сообщений.
Ход работы:
-
Запустите Visual Basic 6.0 (см. Запуск Visual Basic 6.0.).
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть.
Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 4.3.
Рисунок 4.4 Элементы управления и их свойства к лабораторной работе 4.3.
-
Напишите код следующий код:
Private Const PI As Double = 3.1415927
Private dblRadius As Double
Private dblHeight As Double
Private Sub cmdF1_Click()
Dim dblResult As Double
'Считаем зачения из формы в переменные
dblRadius = txtRadius.Text
'Расчет
dblResult = PI * dblRadius ^ 2
'Вывод результата
MsgBox "Площадь окружности с радиусом " & dblRadius & " равна " & dblResult
End Sub
Private Sub cmdF2_Click()
Dim dblResult As Double
'Считаем зачения из формы в переменные
dblRadius = txtRadius.Text
dblHeight = txtHeight.Text
'Расчет
dblResult = 4 / 3 * PI * dblRadius ^ 3
'Вывод результата
MsgBox "Объем шара с радиусом " & dblRadius & " равен " & dblResult
End Sub
Private Sub cmdF3_Click()
Dim dblResult As Double
'Считаем зачения из формы в переменные
dblRadius = txtRadius.Text
dblHeight = txtHeight.Text
'Расчет
dblResult = PI * dblRadius ^ 2 * dblHeight
'Вывод результата
MsgBox "Объем цилиндра с радиусом " & dblRadius & " и высотой " & dblHeight & " равен " & dblResult
End Sub
-
Запустите приложение.
Результат работы программы:
По нажатию на кнопки, должны производиться соответствующие надписям на кнопках действия.