vb6 es tonto

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

vb6 es tonto

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1] 2

Autor

Tema: vb6 es tonto (Leído 5,115 veces)

Psyke1

Wiki

Desconectado

Mensajes: 1.089

vb6 es tonto

« en: 2 Octubre 2011, 01:08 am »

Hola chicos, bueno a raíz de una discusión con la profesora de programación he investigado sobre los Ifs de vb6... :rolleyes:

En esta situación:

Código

If A = True Or B = False Then

Lo lógico sería que al leer A=True no comprobara Lo siguiente puesto que la condición se cumpliría de todas formas.

Pero no, vb te comprueba TODO el If pase lo que pase en todos los casos. :¬¬

Aquí un código que lo demuestra:

Código

Option Explicit
 
Private Function OrTest(ByVal bReturn As Boolean) As Boolean
    '// Imprimo un texto para saber que he pasado por la función.
    Debug.Print Time$, "Función con el argumento " & bReturn & " llamada."
    OrTest = bReturn
End Function
 
Private Sub Form_Load()
 
    '// Aquí lo logico sería comprobar las dos ya que
    '// si la primera no es true, lo puede ser la segunda.
    If OrTest(False) Or OrTest(False) Then
        '// Nothing
    End If
 
    Debug.Print String$(75, "=")
 
    '// Lo lógico sería que se saltase la segunda función puesto
    '// que la primera es true, pero no, nuestro querido vb
    '// comprueba igual...
    If OrTest(True) Or OrTest(False) Then
        '// Nothing
    End If
End Sub

Retorno:

Código:

00:27:48      Función con el argumento Falso llamada.
00:27:48      Función con el argumento Falso llamada.
===========================================================================
00:27:48      Función con el argumento Verdadero llamada.
00:27:48      Función con el argumento Falso llamada.

Sé que alguno dirá: ¿y a mí qué más me da si el resultado es el mismo?
Bueno, pues imagina que tienes un If tal que así:

Código

If Calculo(1) Or Calculo(2) Or Calculo(3) Or Calculo(4) Or Calculo(5) Then
    '...
End If

La función Calculo() es un algoritmo complejo y tarda 1 segundo de media.
Si fuera otro lenguaje de programación si Calculo(1) es true se saltaría los demás, pero nuestro querido vb6 llamará a todas las demás funciones perdiendo tiempo innecesariamente... $:-\$ Pasando de 1 seg a 5 en este caso.
La alternativa que propongo en estos casos es (no son agradables a la vista, aviso ) :

Sustituir esto:

Código

    If A(324) = 45 Or B(12) = 2 Or B(4563) = 56 Then
        Call DoIt
    End If

Por esto:

Código

    If A(324) = 45 Then
        Call DoIt
    ElseIf B(12)=2 Then
        Call DoIt
    ElseIf B(4563) = 56 Then
       Call DoIt
    End If

Esto:

Código

    If A(324) = 45 And B(12) = 2 And B(4563) = 56 Then
        '...
    End If

Por esto:

Código

    If A(324) = 45 Then
        If B(12) = 2 Then
            If B(4563) = 56 Then
                '...
            End If
        End If
   End If

Con esto no quiero decir que lo hagáis así de normal, sólo cuando necesitemos velocidad.
Hice estas pruebas a ver si algún lenguaje más era tonto, pero por ahora sólo es vb6.
Si alguien sabe de otro hacedmelo saber, me interesa mucho.
Dedico este articulo a Karcrack, BlackZero, TheSwash y raul338 por orientarme y ayudarme con los test.

VB.NET tiene una expresion para evitar esto:

Código:

Short-Circuiting Logical Operations http://msdn.microsoft.com/en-us/library/wz3k228a.aspx

Más info:

Código:

http://en.wikipedia.org/wiki/Short-circuit_evaluation

Espero que al menos a alguien le sirva todo esto.

DoEvents!


« Última modificación: 2 Octubre 2011, 01:14 am por Psyke1 »	En línea

http://foro.h-sec.org/

$Edu$

Desconectado

Mensajes: 1.842

Re: vb6 es tonto

« Respuesta #1 en: 2 Octubre 2011, 01:18 am »

No sabias esto de antes? :S hasta yo lo sabia xD

En .net por ejemplo ya tienes opcion, si quieres un "Or" comun como en vb6 o un "Or" mas "rapido" que saldra si ya no cambiara en nada las siguientes condiciones con el final.

Te da para elegir porque a veces aunque la condicion final no cambiara, necesitamos que entre a una funcion que mostrara talvez un mensaje de error.


	En línea

BlackZeroX

Wiki

Desconectado

Mensajes: 3.158

I'Love...!¡.

Re: vb6 es tonto

« Respuesta #2 en: 2 Octubre 2011, 01:26 am »

.
Es BlackZeroX... no BlackZero ¬¬"

Lo probaste compilado?...

Dulces Lunas!¡.


	En línea

The Dark Shadow is my passion.

79137913

Desconectado

Mensajes: 1.169

4 Esquinas

Re: vb6 es tonto

« Respuesta #3 en: 2 Octubre 2011, 01:33 am »

HOLA!!!

Es cierto, Pero no es noticia :S

Cuento viejo...

Pero... proba compilando en Otros modos de compilacion.

GRACIAS POR LEER!!!


	En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913 *Shadow Scouts Team*

Psyke1

Wiki

Desconectado

Mensajes: 1.089

Re: vb6 es tonto

« Respuesta #4 en: 2 Octubre 2011, 01:44 am »

Sí, probé compilado.

Yo también sabía esto de hace tiempo, pero ingenuo de mí, llegué a pensar que en todos los lenguajes era igual. :laugh:

Y la gente que no programa en vb6 no lo suele saber, así que no creo que esto haya sido 100% en vano.

DoEvents!


« Última modificación: 2 Octubre 2011, 01:47 am por Psyke1 »	En línea

http://foro.h-sec.org/

Yoghurt

Desconectado

Mensajes: 122

Si alguien se molesto en escribir, justo es leer.

Re: vb6 es tonto

« Respuesta #5 en: 8 Octubre 2011, 00:27 am »

No han escuchado por ahí o leído de que VB comprueba desde la izquierda hacia la derecha??

Por ejemplo en:
If (A=True) Or (B=False) Then ...

Comprueba si B=False y Luego si A=True. Eso lo tengo en mi memoria hace unos años que leí eso. Aunq me da flojera comprobarlo, ahora que salió el tema a la "parrilla"

P.D.: Siempre se ha sabido de las falencias de la Microsoft con Todos sus productos, aunq ya deberían saberlo y da risa cuando sale uno alegando por los defectos =D


	En línea

Aportes:
MIME identificar archivos por su contenido

$Edu$

Desconectado

Mensajes: 1.842

Re: vb6 es tonto

« Respuesta #6 en: 8 Octubre 2011, 16:29 pm »

Eso si q no xD, lee de izquierda a derecha es decir primero A y luego B, y esto que se habla aca no son "defectos" sino que no tiene la capacidad de elegir cuando usar And comun y cuando no, en cambio vb.net si lo tiene.

Con este codigo se van todas las dudas.

Código

Private Sub Form_Load()
If (EnLinea("Nestor")) And (EnLinea("edu")) Then
MsgBox "Imposible que aparezca este mensaje!"
End If
End Sub
 
Private Function EnLinea(ByVal contacto As String) As Boolean
 
If contacto = "edu" Then
    MsgBox "Edu siempre esta online xD" ' entonces da true
Else
    MsgBox "No esta conectado!"
    Exit Function
End If
 
EnLinea = True
 
End Function


	En línea

Sanlegas

Desconectado

Mensajes: 131

https://fbcdn-sphotos-e-a.akamaihd.net/hphotos-ak-

Re: vb6 es tonto

« Respuesta #7 en: 8 Octubre 2011, 21:39 pm »

Me imagino que ha de comprobar las demas condiciones por si hay otro operador logico que pueda comprobar, como un XOR, ejemplo:

Código

Option Explicit
 
Private Function OrTest(ByVal bReturn As Boolean) As Boolean
    '// Imprimo un texto para saber que he pasado por la función.
    Debug.Print Time$, "Función con el argumento " & bReturn & " llamada."
    OrTest = bReturn
End Function
 
Private Sub Form_Load()
 
    '// Aquí lo logico sería comprobar las dos ya que
    '// si la primera no es true, lo puede ser la segunda.
    If OrTest(False) Or OrTest(False) Then
        '// Nothing
    End If
 
    Debug.Print String$(75, "=")
 
    If OrTest(True) Or OrTest(False) Xor OrTest(True) Then
        Debug.Print "OK!"
        '// Nothing
    End If
End Sub

Como dicen ustedes con la primera comparación tendria que salirse e imprimir "OK!", pero como el XOR da false no lo imprime, salu2 !


« Última modificación: 9 Octubre 2011, 06:23 am por Tenient101 »	En línea

seba123neo

Moderador

Desconectado

Mensajes: 3.621

Re: vb6 es tonto

« Respuesta #8 en: 8 Octubre 2011, 23:07 pm »

Cita de: $Edu$ en 2 Octubre 2011, 01:18 am

AndAlso y OrElse en .NET son operaciones cortocircuitadas, asi como el operador ternario de java "?"


	En línea

$Edu$

Desconectado

Mensajes: 1.842

Re: vb6 es tonto

« Respuesta #9 en: 9 Octubre 2011, 15:00 pm »

Gracias seba, y Tenient.. el mensaje "OK!" saldra SOLAMENTE si el la condicion es verdadera, y como dices es falsa entonces obvio que no entra, lo que estamos diciendo es que sea True o False la condicion, pasara uno por uno, en este caso tiene que mirar todos obligado por el xor que pusiste pero deciamos en caso como if true or true or true or true or true or true or true..., con el primero ya da True la condicion y no necesitaria comprobar todos los otros, pero si lo hace, pero en .net como dice seba existe el OrElse que no va a verificar el resto de las condiciones ya que no cambiaran el resultado.


	En línea

Páginas: [1] 2

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	algo muy tonto Sugerencias y dudas sobre el Foro	sakio	5	2,460	7 Septiembre 2005, 13:27 pm por Za3LoT
	Problema tonto pero tonto... Sugerencias y dudas sobre el Foro	leucocito	7	4,093	18 Noviembre 2009, 14:36 pm por [u]nsigned
	Problema tonto PHP	Feedeex	2	2,880	12 Mayo 2011, 13:48 pm por Feedeex