SA-MP Forums Archive
[Off] Ayuda en VISUAL BASIC (simple) - Printable Version

+- SA-MP Forums Archive (https://sampforum.blast.hk)
+-- Forum: Non-English (https://sampforum.blast.hk/forumdisplay.php?fid=9)
+--- Forum: Languages (https://sampforum.blast.hk/forumdisplay.php?fid=33)
+---- Forum: Español/Spanish (https://sampforum.blast.hk/forumdisplay.php?fid=29)
+---- Thread: [Off] Ayuda en VISUAL BASIC (simple) (/showthread.php?tid=592309)


Ayuda en VISUAL BASIC (simple) - Guss - 23.10.2015

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

Respuesta: Ayuda en VISUAL BASIC (simple) - spell - 23.10.2015

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 


Respuesta: Ayuda en VISUAL BASIC (simple) - Guss - 23.10.2015

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:


Respuesta: Ayuda en VISUAL BASIC (simple) - spell - 23.10.2015

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

Respuesta: Ayuda en VISUAL BASIC (simple) - Guss - 23.10.2015

Gracias genio!