Private Sub Calcular_Click()
Dim Operador As String
If PrimerOperando.Text = 0 or SegundoOperando.Text= 0 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")
else
[*]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
Las lineas que he puesto entre [ *] y [/*] significa que me salen en rojo.
Bueno, es que estoy siguiendo un tutorial, y supongo que la calculadora "ideal" no tiene tantas cosas, pero como es un tutorial, supongo que pretende enseñarme varias cosas dentro de un mismo objeto.
Bueno, aquí tienes la apariencia de la calculadora con sus "(Nombre)"
Empezaré de arriba a abajo:
Nombre del form: Form1
Nombre de calculadora: Label1
Nombre de Primer Operando: Label2
Nombre de Segundo Operando: Label3
Nombre de Resultado: Label4
Nombre de la caja de abajo de primer operando: PrimerOperando
Nombre de la caja de abajo de segundo operando: SegundoOperando
Nombre del label de abajo del resultado: MostrarResultado
Nombre del OptionBox de sumar: Sumar
(Lo mismo con los 3 OptionBox de abajo: Restar, Multiplicar y Dividir)
Nombre del igual: Image1
Nombre de borrar: Borrar
Nombre de Calcular: Calcular
Nombre de lista de operaciones: Label5
Nombre del listbox de debajo de la lista de operaciones: ListaOperaciones
Nombre del frame de su derecha: Frame1
Nombre de 1er optionbuton del Frame1: Resultado
Nombre del 2do optionbuton del Frame1: Operacion
Nombre de operaciones con la lista: Label6
Nombre del combobox de abajo de operaciones con la lista: Añadir
Creo que no me dejo nada ^^.
Muchas gracias, y adios