Занятие 19. Самостоятельная работа Приложение: проект calc1.rar
Задание. Составить алгоритм работы арифметического калькулятора.
Обратим внимание на то, что при операции деления делитель (второе число) не должен равняться нулю.
Алгоритм решения задачи
Интерфейс проекта
Программный код
PS!!!
- Так как пользователь может вводить как целые так и действительные числовые данные (разделительный знак - запятая), выберем тип данных - 'Single'
- Текст в текстовом поле всегда имеет тип 'String' . При помощи функции Val преобразовываем числовой текст в число. Функция Str - преобразование числовых данных в текстовые данные.
Dim a, b, d As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = InputBox("a=")
b = InputBox("b=")
Label2.Text = "b= " & Str(b)
Label1.Text = "a= " & Str(a)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label3.Text = Str(a + b)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label3.Text = Str(a - b)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label3.Text = Str(a * b)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If b <> 0 Then
Label3.Text = Str(Format(a / b, "###.#####"))
Else : MessageBox.Show("ошибка ввода", "messege")
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Label3.Text = Str(Format(a / b, "###"))
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Label1.Text = ""
Label2.Text = " "
Label3.Text = ""
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
End
End Sub
Занятие 20
| 
