Muy buenas, alguien sabr铆a indicarme una funci贸n que pasara de Binario a Hexadecimal Y de Hexadecimal a Binario, es decir, necesito pasar
0000000000000010 => 0002
贸
1111111111111111 => FFFF
y Tambi茅n lo necesito alreves, es decir,
0002 => 0000000000000010
贸
FFFF => 1111111111111111
Un Saludo.
function Main()
MsgInfo( BinToHex( "1111111111111110" ) )
return nil
function BinToHex( cBin )
local n, nResult := 0
for n = Len( cBin ) to 1 step -1
if SubStr( cBin, n, 1 ) == "1"
nResult += 2 ^ ( Len( cBin ) - n )
endif
next
return DecToHex( nResult )#include "FiveWin.ch"
function Main()
MsgInfo( BinToHex( "1111111111111110" ) )
MsgInfo( HexToBin( "FFFE" ) )
return nil
function BinToHex( cBin )
local n, nResult := 0
for n = Len( cBin ) to 1 step -1
if SubStr( cBin, n, 1 ) == "1"
nResult += 2 ^ ( Len( cBin ) - n )
endif
next
return DecToHex( nResult )
function HexToBin( cHex )
local nValue := HexToDec( cHex )
local n, cResult := ""
for n = 1 to 16
cResult += If( nAnd( nValue, 2 ^ n ) == 2 ^ n, "1", "0" )
next
return cResult