Private Sub ac_Click()Pantalla.Caption = ""Signo.Caption = ""aparte.Caption = ""Punto.Enabled = TrueEnd Sub
Private Sub botonOnOff_Click()If onoff.BackColor = vbRed Thenonoff.BackColor = vbBlacknegativo.Enabled = Falseac.Enabled = FalseUno.Enabled = FalsePotencia.Enabled = Falsenegapos.Enabled = FalseRaiz.Enabled = FalsePotenciacionnegativa.Enabled = FalsePorcentaje.Enabled = FalseCero.Enabled = FalseDos.Enabled = FalseTres.Enabled = FalseCuatro.Enabled = FalseCinco.Enabled = FalseSeis.Enabled = FalseSiete.Enabled = FalseOcho.Enabled = FalseNueve.Enabled = FalsePunto.Enabled = Falsesumar.Enabled = FalseRestar.Enabled = FalseMultiplicar.Enabled = FalseDividir.Enabled = FalseIgual.Enabled = FalsePantalla.Caption = ""aparte.Caption = ""Signo.Caption = ""Else: onoff.BackColor = vbRedac.Enabled = Truenegapos.Enabled = TrueUno.Enabled = TruePotencia.Enabled = TrueRaiz.Enabled = TruePotenciacionnegativa.Enabled = TruePorcentaje.Enabled = TrueCero.Enabled = TrueDos.Enabled = Truenegativo.Enabled = TrueTres.Enabled = TrueCuatro.Enabled = TrueCinco.Enabled = TrueSeis.Enabled = TrueSiete.Enabled = TrueOcho.Enabled = TrueNueve.Enabled = TruePunto.Enabled = Truesumar.Enabled = TrueRestar.Enabled = TrueMultiplicar.Enabled = TrueDividir.Enabled = TrueIgual.Enabled = TrueEnd IfEnd Sub
Private Sub Cero_Click()Pantalla.Caption = Pantalla.Caption + "0"End Sub
Private Sub Cinco_Click()Pantalla.Caption = Pantalla.Caption + "5"End Sub
Private Sub Cuatro_Click()Pantalla.Caption = Pantalla.Caption + "4"End Sub
Private Sub Dividir_Click()Signo.Caption = ""Signo.Caption = "/"aparte.Caption = ""aparte.Caption = Pantalla.CaptionPantalla.Caption = ""Punto.Enabled = TrueEnd Sub
Private Sub Dos_Click()Pantalla.Caption = Pantalla.Caption + "2"End Sub
Private Sub Igual_Click()If Signo.Caption = "+" ThenPantalla.Caption = Val(Pantalla.Caption) + Val(aparte.Caption)aparte.Caption = ""Signo.Caption = ""End IfIf Signo.Caption = "-" ThenPantalla.Caption = Val(aparte.Caption) - Val(Pantalla.Caption)aparte.Caption = ""Signo.Caption = ""End IfIf Signo.Caption = "*" ThenPantalla.Caption = Val(Pantalla.Caption) * Val(aparte.Caption)aparte.Caption = ""Signo.Caption = ""End IfIf Signo.Caption = "/" ThenIf Pantalla.Caption > 0 ThenPantalla.Caption = Val(aparte.Caption) / Val(Pantalla.Caption)aparte.Caption = ""Signo.Caption = ""ElsePantalla.Caption = "ERROR"End IfEnd IfIf Signo.Caption = "%" ThenPantalla.Caption = Val(Pantalla.Caption) / 100 * Val(aparte.Caption)aparte.Caption = ""Signo.Caption = ""End IfEnd Sub
Private Sub Multiplicar_Click()Signo.Caption = ""Signo.Caption = "*"aparte.Caption = ""aparte.Caption = Pantalla.CaptionPantalla.Caption = ""Punto.Enabled = TrueEnd Sub
Private Sub negapos_Click()If Pantalla.Caption > 0 ThenPantalla.Caption = Val(Pantalla.Caption) - Val(Pantalla.Caption) - Val(Pantalla.Caption)ElsePantalla.Caption = Val(Pantalla.Caption) - Val(Pantalla.Caption) - Val(Pantalla.Caption)End IfEnd Sub
Private Sub negativo_Click()If Pantalla.Caption = "" ThenPantalla.Caption = "-"ElsePantalla.Caption = Pantalla.CaptionEnd IfEnd Sub
Private Sub Nueve_Click()Pantalla.Caption = Pantalla.Caption + "9"End Sub
Private Sub Ocho_Click()Pantalla.Caption = Pantalla.Caption + "8"End Sub
Private Sub Porcentaje_Click()Signo.Caption = ""Signo.Caption = "%"aparte.Caption = ""aparte.Caption = Pantalla.CaptionPantalla.Caption = ""Punto.Enabled = TrueEnd Sub
Private Sub Potencia_Click()Pantalla.Caption = Pantalla.Caption * Pantalla.Captionaparte.Caption = ""Signo.Caption = ""Punto.Enabled = TrueEnd Sub
Private Sub Potenciacionnegativa_Click()If Pantalla.Caption > 0 ThenPantalla.Caption = 1 / Val(Pantalla.Caption)ElsePantalla.Caption = "ERROR"End IfEnd Sub
Private Sub Punto_Click()Pantalla.Caption = Pantalla.Caption + "."Punto.Enabled = FalseEnd Sub
Private Sub Raiz_Click()If Val(Pantalla.Caption) > "0" ThenPantalla.Caption = Sqr((Val(Pantalla.Caption)))Punto.Enabled = TrueElsePantalla.Caption = "ERROR"Punto.Enabled = TrueEnd IfEnd Sub
Private Sub Restar_Click()Signo.Caption = ""Signo.Caption = "-"aparte.Caption = ""aparte.Caption = Pantalla.CaptionPantalla.Caption = ""Punto.Enabled = TrueEnd Sub
Private Sub Seis_Click()Pantalla.Caption = Pantalla.Caption + "6"End SubPrivate Sub Siete_Click()Pantalla.Caption = Pantalla.Caption + "7"End Sub
Private Sub sumar_Click()Signo.Caption = ""Signo.Caption = "+"aparte.Caption = ""aparte.Caption = Pantalla.CaptionPantalla.Caption = ""Punto.Enabled = TrueEnd Sub
Private Sub Tres_Click()Pantalla.Caption = Pantalla.Caption + "3"End Sub
Private Sub Uno_Click()Pantalla.Caption = Pantalla.Caption + "1"End Sub