Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim numero1 As Integer = 1
If Label9.Text = "0" Then
Label3.Text = numero1
Else
Label1.Text = numero1
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Label2.Text = "+"
Label9.Text = "0"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim zao
Dim zao1
zao = Val(Label1.Text)
zao1 = Val(Label3.Text)
If Label2.Text = "+" Then
Label4.Text = zao + zao1
ElseIf Label2.Text = "-" Then
Label4.Text = zao - zao1
ElseIf Label2.Text = "/" Then
Label4.Text = zao / zao1
ElseIf Label2.Text = "*" Then
Label4.Text = zao * zao1
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim numero0 As Integer = 0
If Label9.Text = "o" Then
Label3.Text = numero0
Else
Label1.Text = numero0
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim numero2 As Integer = 2
If Label9.Text = "0" Then
Label3.Text = numero2
Else
Label1.Text = numero2
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim numero3 As Integer = 3
If Label9.Text = "0" Then
Label3.Text = numero3
Else
Label1.Text = numero3
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim numero4 As Integer = 4
If Label9.Text = "0" Then
Label3.Text = numero4
Else
Label1.Text = numero4
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim numero5 As Integer = 5
If Label9.Text = "0" Then
Label3.Text = numero5
Else
Label1.Text = numero5
End If
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim numero6 As Integer = 6
If Label9.Text = "0" Then
Label3.Text = numero6
Else
Label1.Text = numero6
End If
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Dim numero7 As Integer = 7
If Label9.Text = "0" Then
Label3.Text = numero7
Else
Label1.Text = numero7
End If
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim numero9 As Integer = 9
If Label9.Text = "0" Then
Label3.Text = numero9
Else
Label1.Text = numero9
End If
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim numero8 As Integer = 8
If Label9.Text = "0" Then
Label3.Text = numero8
Else
Label1.Text = numero8
End If
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Label2.Text = "/"
Label9.Text = "0"
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Label2.Text = "*"
Label9.Text = "0"
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Label2.Text = "-"
Label9.Text = "0"
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Dim ciao
ciao = MsgBox("Sei sicuro di voler uscire?", vbYesNo)
If MsgBoxResult.Yes Then
Me.Close()
End If
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Label1.Text = ""
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
Label9.Text = "1"
End Sub
End Class