| Hola invitado |
|
02 Sep, 2010 - 04:41 |
|
|
© 2009 PortalFox
|
|
|
| Enviado por Luis María Guayán en Lunes, 26 Julio, 2004 |
|
 Función que transforma un número hexadecimal en binaro.
? Hex2Bin("123ABC")
FUNCTION Hex2Bin(tcHex)
LOCAL lcRet, lnDec, lnI
lcRet = ""
FOR lnI = 1 TO LEN(ALLTRIM(tcHex))
lnDec = EVALUATE("0x"+SUBSTR(tcHex,lnI,1))
lcRet = lcRet + ;
IIF(BITTEST(lnDec,3),"1","0") + IIF(BITTEST(lnDec,2),"1","0") + ;
IIF(BITTEST(lnDec,1),"1","0") + IIF(BITTEST(lnDec,0),"1","0")
ENDFOR
RETURN lcRet
ENDFUNC
NOTA: Otra forma mas directa de pasar un número Hexadecimal a Decimal:
? EVALUATE("0x" + "123ABC")
|
|
 |
|
|
|
| Hexadecimal a Binario | Entrar/Crear una cuenta | 0 Comentarios |
|
| Los comentarios son propiedad de sus respectivos autores.
No somos responsables de su contenido. |
|
Todas las marcas y los logos utilizados en este sitio son propiedad de sus respectivos dueños.
Los artículos, noticias y comentarios son propiedad y responsabilidad de sus respectivos autores.
Copyright © 2000-2010 PortalFox. Todos los derechos reservados.
|
|
