Error visual basic
Buenas Tardes, estoy empezando y de manera autodidacta con el Visual Basic.
Estoy siguiendo un libro donde uno de los ejercicios es hacer una calculadora. Pero no entiendo ya que he hecho todo lo que pone el libro y me da un error. ¿Alguien me puede ayudar?,
El programa es el siguiente:
Option Explicit
Private Sub Borrar_Click()
PrimerOperando.Text = ""
SegundoOperando.Text = ""
MostrarResultado.Caption = 0
PrimerOperando.SetFocus
End Sub
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
El error lo provoca la línea que he marcado en negrita y dice:
"Compile error: Argument not optional"
¿Dónde esta el fallo?
Estoy siguiendo un libro donde uno de los ejercicios es hacer una calculadora. Pero no entiendo ya que he hecho todo lo que pone el libro y me da un error. ¿Alguien me puede ayudar?,
El programa es el siguiente:
Option Explicit
Private Sub Borrar_Click()
PrimerOperando.Text = ""
SegundoOperando.Text = ""
MostrarResultado.Caption = 0
PrimerOperando.SetFocus
End Sub
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
El error lo provoca la línea que he marcado en negrita y dice:
"Compile error: Argument not optional"
¿Dónde esta el fallo?
1 Respuesta
Respuesta de carloscharly
1