Calculadora 3 (por alan)

Private Sub Borrar_Click()
Numeros.Caption = "0"
coma.Enabled = True
End Sub

Private Sub Command10_Click()

End Sub

Private Sub Command13_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command7_Click()

End Sub

Private Sub Command8_Click()

End Sub

Private Sub Command9_Click()

End Sub

Private Sub cero_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "0"
Else
Numeros.Caption = Numeros.Caption + "0"
End If
End Sub

Private Sub cinco_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "5"
Else
Numeros.Caption = Numeros.Caption + "5"
End If
End Sub

Private Sub coma_Click()
Numeros.Caption = Numeros.Caption + ","
coma.Enabled = False
End Sub

Private Sub cuatro_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "4"
Else
Numeros.Caption = Numeros.Caption + "4"
End If
End Sub

Private Sub dividir_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "/"
coma.Enabled = True
End Sub

Private Sub dos_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "2"
Else
Numeros.Caption = Numeros.Caption + "2"
End If
End Sub

Private Sub Igual_Click()
If Auxiliar5.Caption = "+" Then
Numeros.Caption = Val(Auxiliar.Caption) + Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "-" Then
Numeros.Caption = Val(Auxiliar.Caption) - Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "/" Then
Numeros.Caption = Val(Auxiliar.Caption) / Val(Numeros.Caption)
Auxiliar.Caption = ""
End If
If Auxiliar5.Caption = "*" Then
Numeros.Caption = Val(Auxiliar.Caption) * Val(Numeros.Caption)
Auxiliar.Caption = ""
Else
If Auxiliar5.Caption = "%" Then
Numeros.Caption = Val(auxiliar2.Caption) * 100 / Val(Numeros.Caption)
auxiliar2.Caption = ""
End If
End If
End Sub

Private Sub masmenos_Click()
Numeros.Caption = Numeros.Caption * -1
coma.Enabled = True
End Sub

Private Sub multiplicar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
Auxiliar5.Caption = "*"
coma.Enabled = True
End Sub

Private Sub nueve_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "9"
Else
Numeros.Caption = Numeros.Caption + "9"
End If
End Sub

Private Sub ocho_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "8"
Else
Numeros.Caption = Numeros.Caption + "8"
End If
End Sub

Private Sub Porcentaje_Click()
Auxiliar5.Caption = "%"
auxiliar2.Caption = Numeros.Caption
Numeros.Caption = "0"
coma.Enabled = True
End Sub

Private Sub raiz_Click()
If Numeros.Caption < caption = "Error" caption =" Sqr(Numeros.Caption)" enabled =" True" caption =" Numeros.Caption" caption = "0" caption = "-" enabled =" True" caption =" 0" caption = "" caption = "6" caption =" Numeros.Caption" caption =" 0" caption = "" caption = "7" caption =" Numeros.Caption" caption =" Numeros.Caption" caption = "0" caption = "+" enabled =" True" caption =" 0" caption = "" caption = "3" caption =" Numeros.Caption" caption =" 0" caption = "" caption = "1" caption =" Numeros.Caption">

Calculadora 3 (por Anita)

Private Sub C_Click()
pantalla.Caption = ""
coma.Enabled = True
End 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 coma_Click()
pantalla.Caption = pantalla.Caption + ","
coma.Enabled = False
End Sub

Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub

Private Sub dividido_Click()
auxiliar2.Caption = dividido.Caption
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
pantalla.Caption = Val(auxiliar.Caption) + Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
pantalla.Caption = Val(auxiliar.Caption) - Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "x" Then
pantalla.Caption = Val(auxiliar.Caption) * Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
pantalla.Caption = Val(auxiliar.Caption) / Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "%" Then
pantalla.Caption = Val(pantalla.Caption) / Val(auxiliar.Caption)
End If
auxiliar2.Caption = ""
coma.Enabled = True

End Sub

Private Sub mas_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = mas.Caption
coma.Enabled = True
End Sub

Private Sub masmenos_Click()
pantalla.Caption = pantalla.Caption * -1
coma.Enabled = True
End Sub

Private Sub menos_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = menos.Caption
coma.Enabled = True
End 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 por_Click()
auxiliar2.Caption = por.Caption
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub porcentaje_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = porcentaje.Caption
coma.Enabled = True
End Sub

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub

Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub

Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub

Calculadora 3 (por guido, hernan y marcos)

Private Sub borrar_Click()
visual.Caption = ""
auxiliar2.Caption = ""
visual.Caption = ""
End Sub
Private Sub cero_Click()
visual.Caption = auxiliar.Caption + "0"
End Sub
Private Sub cinco_Click()
visual.Caption = auxiliar.Caption + "5"
End Sub

Private Sub coma_Click()
visual.Caption = auxiliar.Caption + ","
End Sub
Private Sub Command_Click()
auxiliar2.Caption = auxiliar.Caption
auxiliar.Caption = ""
aux.Caption = Command.Caption
End Sub
Private Sub cuatro_Click()
visual.Caption = auxiliar.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar2.Caption = visual.Caption
auxiliar.Caption = "/"
auxiliar.Caption = ""
End Sub
Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub
Private Sub igual_Click()
If visual.Caption = "+" Then
auxilar.Caption = Val(auxiliar2.Caption) + Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "-" Then
auxilar.Caption = Val(auxiliar2.Caption) - Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "/" Then
auxilar.Caption = Val(auxiliar2.Caption) / Val(auxiliar.Caption)
auxiliar2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "*" Then
auxilar.Caption = Val(auxiliar2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""
visual.Caption = ""
End If
If visual.Caption = "%" Then
auxiliar.Caption = Val(auxiliar.Caption) / Val(visual.Caption)
End If
auxiliar.Caption = ""
End Sub
Private Sub mas_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "+"
auxiliar.Caption = ""
End Sub
Private Sub menos_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "--"
auxiliar.Caption = ""
End Sub

Private Sub mult_Click()
auxiliar2.Caption = auxiliar.Caption
visual.Caption = "x"
auxiliar.Caption = ""
End Sub
Private Sub nueve_Click()
visual.Caption =visual.Caption + "9"
End Sub
Private Sub ocho_Click()
visual.Caption =visual.Caption + "8"
End Sub
Private Sub seis_Click()
visual.Caption =visual.Caption + "6"
End Sub
Private Sub siete_Click()
visual.Caption =visual.Caption + "7"
End Sub
Private Sub tres_Click()
visual.Caption =visual.Caption + "3"
End Sub
Private Sub uno_Click()
visual.Caption =visual.Caption + "1"
End Sub

Calculadora 3 (por Ari y Iaru)

Private Sub borrar_Click()
barra.Caption = ""
End Sub

Private Sub cero_Click()
barra.Caption = barra.Caption + "0"
End Sub



Private Sub cinco_Click(Index As Integer)
barra.Caption = barra.Caption + "5"
End Sub



Private Sub coma_Click()
barra.Caption = barra.Caption + ","
coma.Enabled = False
End Sub

Private Sub cuatro_Click(Index As Integer)
barra.Caption = barra.Caption + "4"
End Sub

Private Sub dividido_Click()
auxiliar2.Caption = dividido.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub



Private Sub dos_Click()
barra.Caption = barra.Caption + "2"
End Sub

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "*" Then
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "%" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption) * 100
End If
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub masmanos_Click()
barra.Caption = barra.Caption * -1
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = menos.Caption
End Sub

Private Sub nueve_Click()
barra.Caption = barra.Caption + "9"
End Sub

Private Sub ocho_Click()
barra.Caption = barra.Caption + "8"
End Sub

Private Sub por_Click()
auxiliar2.Caption = por.Caption
auxiliar.Caption = barra.Caption
barra.Caption = ""

End Sub

Private Sub porcentaje_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
auxiliar2.Caption = "%"


End Sub

Private Sub seis_Click()
barra.Caption = barra.Caption + "6"
End Sub

Private Sub siete_Click()
barra.Caption = barra.Caption + "7"
End Sub

Private Sub sqrt_Click()
barra.Caption = Sqr(barra.Caption)

End Sub

Private Sub tres_Click()
barra.Caption = barra.Caption + "3"
End Sub

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub

Calculadora 3 (por Lula)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.Caption = ""
aux2.Caption = ""
End 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 coma_Click()
pantalla.Caption = pantalla.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
coma.Enabled = True
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
pantalla.Caption = pantalla.Caption * -1
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
coma.Enabled = True
End 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 por_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
If Val(pantalla.Caption) > -1 Then
pantalla.Caption = Sqr(pantalla.Caption)
Else
pantalla.Caption = "error"
End If
End Sub
Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub
Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub
Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub
Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub

Calculadora 3 (por Galu)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
coma.Enabled = True
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
coma.Enabled = True
End Sub
Private Sub divpant_Click()
cuenta.Caption = 1 / cuenta.Caption
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
cuenta.Caption = cuenta.Caption * -1
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
coma.Enabled = True
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
coma.Enabled = True
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
If cuenta.Caption > -1 Then
cuenta.Caption = Sqr(Val(cuenta.Caption))
Else
cuenta.Caption = "error"
End If
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub

Calculadora 3 (por Daniel)

Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub

Private Sub por_Click()
aux2.Caption = "*"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub porc_Click()
aux2.Caption = "%"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
coma.Enabled = True
End Sub

Private Sub raiz_Click()
If pantalla.Caption <= 0 Then
pantalla.Caption = "Error"
Else
pantalla.Caption = Sqr(pantalla.Caption)
End If
End Sub

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub

Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub

Private Sub uno_Click()
pantalla.Caption = pantalla.Caption + "1"
End Sub