[Guss]

Saludo.

Estoy haciendo un programita en visual basic,el cual desconozco por completo. Entonces el programa consiste en poner dos numeros y hacer comparacion entre ellos, luego poner si es verdadero o falso y finalmente aceptar.

Es algo asн:

1 > 5 (FALSO)

Pero tengo un problema, mбs que todo de lуgica, no hayo una forma de hacer esto, pues, al completar esos datos y presionar "aceptar" debe aparecer un MsgBox que dice "ERROR" o "CORRECTO" segъn sea el caso. por ejemplo:

1 > 5 (VERDADERO) ---- "aceptar" ---- MsgBox "ERROR"
1 > 5 (FALSO) ----------- "aceptar" --- MsgBox "CORRECTO"

Pero resulta un horror mi cуdigo, no funciona, y no hace correctamente el mensaje.

Aquн dejarй el cуdigo:

el que funciona

PHP код:

If Me.Text2 = "=" Then
    If Me.Text1 = Me.Text3 And Me.Option1 = True Then
        MsgBox "CORRECTO"
        Else
            MsgBox "ERROR"
    End If
End If 


el que no funciona porque no sй como hacerlo

PHP код:

If Me.Text2 = ">" Then
    If Me.Text1 > Me.Text3 Then
        If Me.Option1 = True Then
        MsgBox "CORRECTO"
        Else
        MsgBox "ERROR"
        End If
    Else
    If Me.Text1 < Me.Text3 Then
        MsgBox "ERROR"
    End If
    End If
End If 


Option1 es el botуn "VERDADERO", el botуn "FALSO" es Option2

Espero que pueda ayudarme

[spell]

Supongo que seria asi:

PHP код:

If Me.Text2 = ">" Then
    If Me.Text1 > Me.Text3 And Me.Option1 = True Then
        MsgBox "CORRECTO"
    Else
        MsgBox "ERROR"
    End If
End If 


[Guss]

Hola, gracias por responder.

Esa fue la primera manera en la que intentй, pero pasу esto:
ejemplo:

1 > 5 FALSO = ERROR
1 > 5 VERDADERO = ERROR

5 > 1 FALSO = ERROR
5 > 1 VERDADERO = CORRECTO

Y se supone que el si el nъmero de textbox1 es menor que el de textbox3 y marcando el punto de "FALSO" debe dar el mensaje de "CORRECTO" pero no lo hace. Es por esa razуn que lleguй acб.

para visualizar:

[spell]

PHP код:

If Me.Text2 = ">" Then
    If (Me.Text1 > Me.Text3 And Me.Option1 = True) Or (Me.Text1 <= Me.Text3 And Me.Option2 = True) Then
        MsgBox "CORRECTO"
    Else
        MsgBox "ERROR"
    End If
End If 


O tambiйn:

PHP код:

If Me.Text2 = ">" Then
    If Me.Option1 = True Then
        If Me.Text1 > Me.Text3 Then
            MsgBox "CORRECTO"
        Else
            MsgBox "ERROR"
        End If
    Else
        If Me.Text1 > Me.Text3 Then
            MsgBox "ERROR"
        Else
            MsgBox "CORRECTO"
        End If
    End If
End If 


Lo reproducн en java porque no consco VB

Код:

int a = 6;
int b = 5;
boolean option1 = false;
boolean option2 = true;
		
System.out.println ((a > b && option1) || (a <= b && option2));

El primero es mбs simple

[Guss]

Gracias genio!