[R] Convertir Hexa en Binaire
Posté : jeu. 04 juil. 2013 01:09
Bonjour à tous,
Voilà je cherche à convertir de l'Hexa en Binaire le plus simplement possible
par exemple je cherche à convertir 50 en 01010000
(Hexa = 50 et Binaire = 01010000)
Je suis tombé sur cette fonction...
Malgrès plusieures tentatives je tombe sur 0x3530
Merci d'avance
Voilà je cherche à convertir de l'Hexa en Binaire le plus simplement possible
par exemple je cherche à convertir 50 en 01010000
(Hexa = 50 et Binaire = 01010000)
Je suis tombé sur cette fonction...
Code : Tout sélectionner
$hexa = StringToBinary("50")
Msgbox(0, "Binary", $hexa)
Func HexaToBinary($hexa)
$hexvalue = StringSplit($hexa,'')
$Result = ''
$bits = "0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111"
$bits = stringsplit($bits,'|')
for $n = 1 to $hexvalue[0]
$result &= $bits[Dec($hexvalue[$n])+1]
Next
Return $result
EndFuncMerci d'avance