Mensajes

Solo realiza una mascara desde A de longitud B, en ningun momento cambio el valor de esos bits, es decir, en ningun momento los recorro a la derecha:

11111111000000001111111100000000   con a = 8, b = 8
return:
00000000000000001111111100000000

para que quede igual que la tuya solo le falta dos pasos una potencia y una divicion:

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
    MsgBox midBits32(&HFF00FF00, 8, 8) \ 2 ^ 8
    MsgBox midBits32(&HFF00FF00, 24, 8) \ 2 ^ 24
    MsgBox midBits32(&HFF00FF00, 31, 1) \ 2 ^ 31  ' // aqui saltara error debido a el 2 potencia 31 = -1
End Sub



Yo cuento por NORMA y por que asi esta en definicion como 0 el menos significativo es decir el que esta a la derecha y tu lo haces alreves...

Código (Vb) [Seleccionar] Expandir



Private Sub Form_Load()
    MsgBox midBits32(&HFF00FF00, 8, 8) \ 2 ^ 8
    MsgBox midBits32(&HFF00FF00, 24, 8) \ 2 ^ 24
    MsgBox midBits32(&HFF00FF00, 30, 1) \ 2 ^ 30
   
    MsgBox MidBit(&HFF00FF00, 8, 8)
    MsgBox MidBit(&HFF00FF00, 24, 8)
    MsgBox MidBit(&HFF00FF00, 30, 1)
End Sub



Dulces Lunas!¡.

Como es el codigo que implementas?.

Dulces Lunas!¡.

Cuando se Hacen los Test?

Dulces Lunas!¡.

...
Una funcion mas rapida y facil de entender...

Código (vb) [Seleccionar] Expandir



Public Function getMask32(ByVal lMaskLen As Long) As Long
    If (lMaskLen And &H80000000) Then Exit Function
    If lMaskLen = &H0 Then Exit Function
    getMask32 = &H1
    If (lMaskLen >= 32) Then
        getMask32 = &HFFFFFFFF
    Else
        Do While (lMaskLen > &H1)
            getMask32 = (getMask32 Or (getMask32 * &H2))
            lMaskLen = (lMaskLen - &H1)
        Loop
    End If
End Function

Public Function midBits32(ByVal lLong32 As Long, ByVal lStart As Long, ByVal lLen As Long) As Long
Dim lMaskFirst      As Long
    If ((lStart Or lLen) And &H80000000) Then Exit Function
    If (lStart > 32) Then Exit Function
    If (lLen + lStart > 32) Then lLen = (32 - lStart)
    If (lLen = &H0) Then Exit Function
    midBits32 = (lLong32 And (getMask32((lStart + lLen)) Xor getMask32(lStart)))
End Function



ejemplo:

Código (vb) [Seleccionar] Expandir



Private Sub Form_Load()
    MsgBox midBits32(&HFF00FF00, 8, 8)
    MsgBox midBits32(&HFF00FF00, 24, 8)
    MsgBox midBits32(&HFF00FF00, 31, 1)
End Sub



Dulces Lunas!¡.

[SOLUCION PARA RASTREAR Y DEPURAR]

no me da ganas de agregar equipos  , deberias hacer una base de datos como te dije asi ya te va guardando lo que cargas.

Pienso lo mismo.

Ya me baje el proyecto (Hace ya tiempo) pero me da un poco de pereza visual... asi que solo te dejo una SOLUCION PARA RASTREAR Y DEPURAR la llamada al seteo de valor a indx para ver detectar el "misterio" de la variable...

Código (vb) [Seleccionar] Expandir


Dim indx as integer


por:

Código (vb) [Seleccionar] Expandir


private mIndexBlackZeroX as integer ' //  puede ser lo que quieras solo le dejo el nombre asi por que es una SOLUCION PARA RASTREAR la linea que le setea el valor y asi coprregirlo.


Despues para que no edites nada del codigo y poder poner los BreakPoint JUSTOS agregas esta propiedad:

Código (vb) [Seleccionar] Expandir



public property let indx(byval lVal as integer)
   mIndexBlackZeroX = lval ' // Aqui pones el BreakPoint o agregar un Debug.print para Depurar...
end property

public property get indx() as integer
   indx = mIndexBlackZeroX
end property



Te dejo esta solucion para que lo hagas... jejeje.

Dulces Lunas!¡.

solo hay punteros y referencias, hay variaciones de puntero a puntero, etc... en las apis ojo.

Es decir, de una manera mas concreta:

* Cuando pasas un puntero se pasa en variacion Unicode (no son punteros es la dirrecion).
* Cuando se pasa por referencia se crea otra cadena en su variacion ANSI...

Dulces Lunas!¡.

Si pasar una varible string directamente se crea otra en su variacion ANSI si pasas el puntero no se toca la string y se toma la original en su Modo Unicode.

como he dicho anteriormente en las declaraciones apis, si alguno de sus parametros requiere una entra de un puntero para entrada/salida de informacion o un buffer, etc, es mejor usar byval...

Dulces Lunas!¡.

Pero no seria lo mismo a la hora de recorrer con un bucle, revisar Player(i).Ranking que usarlos por separados? total estan al mismo nivel, es decir para Player(7) le corresponde a Ranking(7).

Si mesclas las clases con SQL es decir mezclar mi idea con la seba123neo uff, mira que se vera mas "Bonito" y entendible, claro no tendriasn que ser estructuras si no puras clases, con una clase connect... pero bueno jeje, entre mi idea y la de seba123neo ya tengo una idea para futuro!¡.

Dulces Lunas!¡.

@$Edu$

Leelo un poco mas atento... media = 2 elementos... promedio = N elementos... Wikipedia...

* Con el metodo que describi es Generico puede inclusive hacer una estimacion del tiempo que tarda en descargase una pelicula, el proceso de renderizado, o que se yo puede adaptarse a varios procesos al igual que al problem que aqui descripbe el usurpador de identidad, perdon SixToes.

Dulces Lunas!¡.

.
Sexo con unas llaves geniales!¡.

Dulces Lunas!¡.