Проектная работа «Калькулятор»
Создать программу для математических вычислений. Для этого создадим форму на которой размести м текстовое окно. Оно будет выполнять роль табло для ввода и вывода информации. И группу кнопок для выполнения математических действий. А также кнопки равно и очистка экрана. Квыбранное арифметическое действие или функция Сответ арифметического действия. И набор из 12 кнопок которые будут служить для… Читать ещё >
Проектная работа «Калькулятор» (реферат, курсовая, диплом, контрольная)
Создать программу для математических вычислений. Для этого создадим форму на которой размести м текстовое окно. Оно будет выполнять роль табло для ввода и вывода информации.
И набор из 12 кнопок которые будут служить для ввода информации. Дадим ему имя win.
И группу кнопок для выполнения математических действий. А также кнопки равно и очистка экрана.
Теперь приступим к коду программы.
Для начала определим переменные.
Квыбранное арифметическое действие или функция Сответ арифметического действия.
Option Explicit.
Dim c, k As String.
После этого создадим коды кнопок для ввода текста в окно.
Условно разделим их на цифры (0,9) и знаки (-/+ и ,).
Все цифры будем заполнять по примеру кода для цифры 1.
Private Sub Command1_Click ().
win.Text = win. Text + Command1.caption.
End Sub.
А для кнопок (-/+ и ,) следующие коды.
Private Sub Command10_Click ().
win.Text = str (val (win.Text)*-1).
End Sub.
Private Sub Command12_Click ().
win.Text = win. Text + «.» .
End Sub.
Теперь запрограммируем кнопки арифметических действий (+,-,*,/), выполняя проверку на выполнимость этих действий. И присваивая каждому математическому действию свой порядковый номер К.
Private Sub Command13_Click ().
c = c + Val (win.Text).
win.Text = «» .
k = 1.
End Sub.
Private Sub Command14_Click ().
If c 0 Then c = c — Val (win.Text) Else c = Val (win.Text).
win.Text = «» .
k = 2.
End Sub.
Private Sub Command15_Click ().
If c 0 Then c = c * Val (win.Text) Else c = Val (win.Text).
win.Text = «» .
k = 4.
End Sub.
Private Sub Command16_Click ().
If c 0 Then c = c / Val (win.Text) Else c = Val (win.Text).
win.Text = «» .
k = 3.
End Sub.
Запрограммируем арифметические функции квадрат обратное значение.
Private Sub Command17_Click ().
c = Val (win.Text) ^ 2.
win.Text = Str©.
End Sub.
Private Sub Command18_Click ().
If Val (win.Text) 0 Then c = 1 / Val (win.Text).
win.Text = Str©.
End Sub.
Код кнопки очистка экрана.
Private Sub Command19_Click ().
win.Text = «» .
c = 0.
End Sub.
Код кнопки равно.
Private Sub Command20_Click ().
If k = 1 Then win. Text = Str (c + Val (win.Text)).
If k = 2 Then win. Text = Str (c — Val (win.Text)).
If k = 3 Then win. Text = Str (c / Val (win.Text)).
If k = 4 Then win. Text = Str (c * Val (win.Text)).
End Sub.
Функция проверки вводятся ли цифры в окно.
Private Sub win_KeyPress (KeyAscii As Integer).
Select Case KeyAscii.
Case 0, 8, 46, 48 To 57.
Case Else.
KeyAscii = 0.
End Select.
End Sub.
Запустите программу проверьте правильность математических вычислений. Добавьте тригонометрических функций, синус, косинус, тангенс, и функции извлечения корня квадратного из числа. Вычисление любой степени числа и вычисление арктангенса числа.