Código:
Private Sub Borrar_Click()
PrimerOperando.Text = «»
SegundoOperando.Text = «»
MostrarResultado.Caption = 0
PrimerOperando.SetFocus
End Sub
Aquí el del botón calcular
Código:
Private Sub Calcular_Click()
Dim Operador As String
If PrimerOperando.Text = "Or SegundoOperando.Text= " Then
MsgBox ("Falta algún operando")
Exit Sub
End If
If Sumar.Value = True Then MostrarResultado.Caption = Val(PrimerOperando.Text) + ""
Val (SegundoOperando.Text)
If Restar.Value = True Then MostrarResultado.Caption = Val(PrimerOperando.Text) - ""
Val (SegundoOperando.Text)
If Multiplicar.Value = True Then
MostrarResultado.Caption = Val(PrimerOperando.Text)
Val (SegundoOperando.Text)
If Dividir.Value = True Then
If Val(SegundoOperando.Text) = 0 Then
MsgBox ("No se puede dividir entre 0")
Exit Sub
End If
MostrarResultado.Caption = Val(PrimerOperando.Text) / Val(SegundoOperando.Text)
End If
If Añadir.Text = "Añadir a la lista" Then
If Operacion.Value = True Then
If Sumar.Value = True Then Operador = "+"
If Restar.Value = True Then Operador = "-"
If Multiplicar.Value = True Then Operador = "*"
If Dividir.Value = True Then Operador = "/"
ListaOperaciones.AddItem PrimerOperando.Text & Operador & SegundoOperando.Text & "=" & MostrarResultado.Caption
Else
ListaOperaciones.AddItem
MostrarResultado.Caption
End If
End If
End Sub
Bueno, al ser la primera vez que lo hago, al no funcionarme nada y al no dejarme compilarlo en exe, pues algo falla ^^
Me gustaria saber que tengo mal y por que. Gracias
Les recuerdo que estoy empezando en esto ^^
Saludos y gracias