maschinarium0
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Public Class WinCalc
Dim x As Double, y As Double, z As Double, order As Integer ' order - числовое значение арифметич. действия
Dim prov As Integer 'запоминание необходимости обнуления поля txt
Dim znak As Integer
Dim buf As Double
Private Sub equally_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles equally.Click
y = txt.Text
If order = 1 Then z = x + y
If order = 2 Then z = x - y
If order = 3 Then z = x * y
If order = 4 Then z = x / y
txt.Text = z
If (x / 0 = z) Then
txt.Text = " "
MsgBox("На ноль делить нельзя!", MsgBoxStyle.Information, "Ошибка")
End If
End Sub
'Кнопки он 0 до 9
Private Sub three_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles three.Click
txt.Text = txt.Text + "3"
End Sub
Private Sub one_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles one.Click
txt.Text = txt.Text + "1"
End Sub
Private Sub two_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles two.Click
txt.Text = txt.Text + "2"
End Sub
Private Sub four_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles four.Click
txt.Text = txt.Text + "4"
End Sub
Private Sub five_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles five.Click
txt.Text = txt.Text + "5"
End Sub
Private Sub six_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles six.Click
txt.Text = txt.Text + "6"
End Sub
Private Sub seven_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seven.Click
txt.Text = txt.Text + "7"
End Sub
Private Sub eight_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eight.Click
txt.Text = txt.Text + "8"
End Sub
Private Sub nine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nine.Click
txt.Text = txt.Text + "9"
End Sub
Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click
If txt.Text = "0" Then
Else
txt.Text &= "0" 'Запрет на ввод нескольких нулей подряд в начале
End If
End Sub
Private Sub coma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles coma.Click
If prov <> 0 Then
txt.Text = ""
End If
If InStr(txt.Text, ",") = 0 Then
If txt.Text = "" Then
txt.Text = "0," 'если вводить запятую в место, где перед ней ничего не стоит, то выводится: 0.8, например
Else
txt.Text = txt.Text + ","
End If
prov = 0
If znak > 1 Then
znak = 1
End If
Else
Exit Sub
End If
End Sub
Private Sub sign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
z = txt.Text
z = z * (-1) 'Смена на противоположный знак
txt.Text = z
End Sub
Private Sub plus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plus.Click
x = txt.Text
txt.Text = ""
order = 1
End Sub
Private Sub minus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minus.Click
x = txt.Text
txt.Text = ""
order = 2
End Sub
Private Sub multiplication_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles multiplication.Click
x = txt.Text
txt.Text = ""
order = 3
End Sub
Private Sub degree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles degree.Click
x = txt.Text
txt.Text = ""
order = 4
End Sub
Private Sub c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c.Click
x = 0
y = 0
z = 0
order = 0
txt.Text = ""
End Sub
Private Sub txt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txt.KeyPress
If Not (IsNumeric(e.KeyChar) Or ((e.KeyChar = ".") Or (e.KeyChar = ",")) Or (e.KeyChar = "-")) Then e.Handled = True
End Sub
Private Sub back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles back.Click
txt.Text = txt.Text.Substring(0, txt.Text.Length - 1)
End Sub
End Class |
