3 replies to this topic

[Master23]

Hola amigos que tal hace un tiempo que no entraba por problemas con mi red hace más de 2 meses xD pero gracias a Dios está resuelto, en fin tengo una consulta es que cuando trato de ejecutar este código me lanza un error.

vb

Private Sub Command1_Click()
 Dim a As Double, b As Double, c As Double, d As Double, e As Double
 a = Val(Text1.Text)
 b = Val(Text2.Text)
 c = Val(Text3.Text)
 d = Val(Text4.Text)
 e = Val(Text5.Text)
 If a > 20 Then
  MsgBox ("En practica debe ser menor o igual a 20")
 Else
  If b > 20 Then
   MsgBox ("Parcial debe ser menor o igual a 20")
  Else
   If c > 10 Then
    MsgBox ("Asistencia debe ser menor o igual a 10")
   Else
    If d > 50 Then
     MsgBox ("La nota del examén final debe ser menor que o igual a 50")
    Else
     Text5.Text = a + b + c + d + e
 End If
End Sub

[cHackAll]

Hola Master23, a tu código le faltaba un "End If".

Me tome la libertad de editar tu post, como veras utilicé la etiqueta [ CODE ] y tabulé el codigo para que el resto lo pueda entender.

[JoAnCa]

Y cual es el error que te da?

Si no es por el End If que te falta, tambien pudiera ser en la linea

[pre][/pre]

delphi

Text5.Text = a + b + c + d + e

[pre][/pre]
No me acuerdo mucho del VB, pero parece que estas asignando un numero a una propiedad string

[eduarcol]

Y cual es el error que te da?

Si no es por el End If que te falta, tambien pudiera ser en la linea

[pre][/pre]

delphi

Text5.Text = a + b + c + d + e

[pre][/pre]
No me acuerdo mucho del VB, pero parece que estas asignando un numero a una propiedad string

Alli esta bien, VB por defecto trabaja con Variant