none
Desplazar bits con operadores a nivel bit RRS feed

  • Pregunta

  • Bueno como es de saber visual basic 6 no cuenta con estos operadores para recorrer bits: << y >> necesito pasar esta función pero en lenguaje visual basic 6 esta hecha en c#:

    long valor;
    valor = (v1 << 16) | (v2 << 8) | v3

    for(i = 0; i < 24; i++) {

    if (valor & (1 << i)) {

    arreglo[i] = 'A';
    }
    else {

    arreglo[i] = 'I';
    }
    }

    en visual basic 6 yo hago esto:

    Function DesplazarBitIzquierda(iNunero As Integer, iDesBit As Integer) As Long

            DesplazarBitIzquierda = iNunero * (2 ^ iDesBit)

    End Function

    valor = (DesplazarBitIzquierda(CInt(v1), 16)) Or (DesplazarBitIzquierda(CInt(v2), 8)) Or v3

    For i = 0 To 23 Step 1

                edo = DesplazarBitIzquierda(1, i)

                If (valor And edo) Then

                    eA(i) = "A"

                    Else

                    eA(i) = "I"

                End If

            Next i


    nota: v1, v2, v3 son valores que recibo de tipo byte y arreglo es de tipo string.

    Espero me puedan ayudar ya que llevo tiempo sin poder pasar esta función a lenguaje vb6 de antemano muchas gracias...

    Saludos..

    lunes, 28 de marzo de 2011 18:13