20/12/2006, 16:45
|
| | | Fecha de Ingreso: noviembre-2004 Ubicación: Corrientes, Arg.
Mensajes: 129
Antigüedad: 19 años, 6 meses Puntos: 0 | |
| Re: Leer Bits
Sí, se puede hacer. Tendrás que trabajar un poquito.
Con la función Asc(<byte>) puedes obtener el valor en decimal del byte, Anidando esta función dentro de una Hex obtienes el mismo valor en Hexadecimal (1 ó 2 caracteres, desde 0 hasta FF) como texto, luego tienes que hacerte una Choose para que te devuelva los cuatro bits correpondientes a cada una de las dos cifras hexadecimales.
Es decir, en una variable string llamada ValHexa supongamos:
ValHexa = Hex(Asc(<el byte>))
pero así, cuando el valor que entrega Asc es menor que 16 obtendrás una sola cifra, por lo que hay que completarla así:
ValHexa = Right("0" & Hex(Asc(<el byte>)),2)
para obtener siempre dos cifras en hexa desde "00" hasta "FF", luego tendrás que separar el Left(ValHexa,1) y el Right(ValHexa,1) y obtener mediante la Choose un grupo de 4 binarios desde "0000" hasta "1111" para los hexas "0" hasta "F".
Si nunca usaste Choose volvé a postear.
Saludos |