Aug 22
Aquí tiene la función que te permitirá convertir número enteros a binarios.
?Int2Bin(1)
?Int2Bin(25)
?Int2Bin(100)
?Int2Bin(198)
Function Int2Bin(num)
Do Case
Case num = 0
Return
"0"
Case
num < 0
num = 0x100000000 + m.num
Endcase
Local cRet, nIndex
cRet = ""
For
nIndex=Min(31,
Ceiling(Log(num)/Log(2)))
To
0
Step
-1
cRet = cRet +
Iif(Bittest(num,
nIndex), "1",
"0")
Next
Return cRet
EndFunc
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
