Calculadora (por Lau)

Private Sub C_Click()Visor.Text = "0"auxiliar.Caption = "0"operacion.Caption = ""End Sub
Private Sub cero_Click()Visor.Text = Visor.Text + "0"End Sub
Private Sub cinco_Click()Visor.Text = Visor.Text + "5"End Sub
Private Sub cuatro_Click()Visor.Text = Visor.Text + "4"End Sub
Private Sub division_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "/"End Sub
Private Sub dos_Click()Visor.Text = Visor.Text + "2"End Sub
Private Sub igual_Click()If operacion.Caption = "+" ThenVisor.Text = Val(auxiliar.Caption) + Val(Visor.Text)End IfIf operacion.Caption = "-" ThenVisor.Text = Val(auxiliar.Caption) - Val(Visor.Text)End IfIf operacion.Caption = "*" ThenVisor.Text = Val(auxiliar.Caption) * Val(Visor.Text)End IfIf operacion.Caption = "/" ThenVisor.Text = Val(auxiliar.Caption) / Val(Visor.Text)End Ifauxiliar.Caption = "0"operacion.Caption = ""End Sub
Private Sub multiplicacion_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "*"End Sub
Private Sub nueve_Click()Visor.Text = Visor.Text + "9"End Sub
Private Sub ocho_Click()Visor.Text = Visor.Text + "8"End Sub
Private Sub OFF_Click()uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falsesuma.Enabled = Falseresta.Enabled = Falsemultiplicacion.Enabled = Falsedivision.Enabled = FalseOFF.Enabled = FalseC.Enabled = Falseigual.Enabled = FalseVisor.Text = ""End Sub
Private Sub ON_Click()uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Truesuma.Enabled = Trueresta.Enabled = Truemultiplicacion.Enabled = Truedivision.Enabled = TrueOFF.Enabled = TrueC.Enabled = Trueigual.Enabled = TrueVisor.Text = "0"End Sub
Private Sub resta_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "-"End Sub
Private Sub seis_Click()Visor.Text = Visor.Text + "6"End Sub
Private Sub siete_Click()Visor.Text = Visor.Text + "7"End Sub
Private Sub suma_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "+"End Sub
Private Sub tres_Click()Visor.Text = Visor.Text + "3"End Sub
Private Sub uno_Click()Visor.Text = Visor.Text + "1"
End Sub