[Problema] Formas de encontrár un bug

Mufarety

Destructor Lvl 3
#1
Como están? Quería saber si alguien sabía de alguna forma de encontrár bug's, no errores del VB, sino errores del juego, porque Lord Fers me había enseñado una hace ya tiempo pero ya no me acuerdo, era una de ir colocando en las lineas 1 numero en cada linea del sub para que esta la identifique.
 

Ruffneck.~

Morrigan Ancient Crone of War..
#2
Como están? Quería saber si alguien sabía de alguna forma de encontrár bug's, no errores del VB, sino errores del juego, porque Lord Fers me había enseñado una hace ya tiempo pero ya no me acuerdo, era una de ir colocando en las lineas 1 numero en cada linea del sub para que esta la identifique.
Si no me equivoco era en el Enum ClientPacketID o ServerPacketID. Se le hacía un = 1, =2, etc. (SI NO ME EQUIVOCO)
 

Mufarety

Destructor Lvl 3
#3
Si no me equivoco era en el Enum ClientPacketID o ServerPacketID. Se le hacía un = 1, =2, etc. (SI NO ME EQUIVOCO)
Si, ahora me hiciste acordár, le ponías Enum (Papas), enumerabas las lineas y luego al final del sub ponías el llamado del Enum y que lo mande a un bloc de notas.
Gracias Ruffneck, ahora pruebo y completo el Thresh así queda como informativo.
 

miqueas150

The Prophet
Ex-Staff
#4
PHP:
Public Function LONGTORGBDX8(ByVal lColor As Long) As Long
        '<EhHeader>
        On Error GoTo LONGTORGBDX8_Err
        '</EhHeader>
        Dim r As Long, b As Long, G As Long
  
        'Convert LONG to RGB:
100     b = lColor \ 65536
102     G = (lColor - b * 65536) \ 256
104     r = lColor - b * 65536 - G * 256
  
106     LONGTORGBDX8 = D3DColorXRGB(r, G, b)

        '<EhFooter>
        Exit Function

LONGTORGBDX8_Err:
        MsgBox Err.Description & vbCrLf & _
               "in Mod_General.LONGTORGBDX8 " & _
               "at line " & Erl, _
               vbExclamation + vbOKOnly, "Application Error"
        Resume Next
        '</EhFooter>
End Function
 

Mufarety

Destructor Lvl 3
#5
PHP:
Public Function LONGTORGBDX8(ByVal lColor As Long) As Long
        '<EhHeader>
        On Error GoTo LONGTORGBDX8_Err
        '</EhHeader>
        Dim r As Long, b As Long, G As Long
 
        'Convert LONG to RGB:
100     b = lColor \ 65536
102     G = (lColor - b * 65536) \ 256
104     r = lColor - b * 65536 - G * 256
 
106     LONGTORGBDX8 = D3DColorXRGB(r, G, b)

        '<EhFooter>
        Exit Function

LONGTORGBDX8_Err:
        MsgBox Err.Description & vbCrLf & _
               "in Mod_General.LONGTORGBDX8 " & _
               "at line " & Erl, _
               vbExclamation + vbOKOnly, "Application Error"
        Resume Next
        '</EhFooter>
End Function
Esta mierda era, Gracias Mique!!
 
Arriba