Saltar al contenido

ejemplo de código visual basic cdec

Si encuentras algún error con tu código o proyecto, recuerda probar siempre en un ambiente de testing antes aplicar el código al trabajo final.

Ejemplo: vba binario string a entero largo

'Fast VBA function to converst binary string to a Long Integer:Function BitsToLong&(bits$)Dim i&Static b()AsByteIf LenB(bits)>64ThenExitFunctionIf LenB(bits)=64Then
        b = bits
    Else
        b =String$(32- Len(bits),"0")& bits
    EndIfFor i =2To62Step2
        BitsToLong =2* BitsToLong Or(b(i)Xor48)NextIf(b(0)Xor48)Then BitsToLong = BitsToLong Or&H80000000EndFunction'-----------------------------------------------------------------------------

MsgBox BitsToLong("1")'<--displays:  1    
MsgBox BitsToLong("10")'<--displays:  2
MsgBox BitsToLong("0110")'<--displays:  6
MsgBox BitsToLong("0100101")'<--displays:  37
MsgBox BitsToLong("100000000000000000000")'<--displays:  1048576
MsgBox BitsToLong("11111111111111111111111111111111")'<--displays:  -1

Recuerda que puedes recomendar esta sección si te fue útil.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *