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..