Page 1 sur 1

[R] Convertir Hexa en Binaire

Posté : jeu. 04 juil. 2013 01:09
par Anthony
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...

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
EndFunc
Malgrès plusieures tentatives je tombe sur 0x3530 :shock:

Merci d'avance

Re: [..] Convertir Hexa en Binaire

Posté : jeu. 04 juil. 2013 01:51
par ani
Bijour,
il est peut-être tôt ou tard, mais vous n'avez pas utilisé la bonne fonction :)

HexaToBinary(50) vous retournera 01010000

bon codage et bonne continuation.

Re: [..] Convertir Hexa en Binaire

Posté : jeu. 04 juil. 2013 08:39
par Manox
Bonjour,

Deux choses, la première :

Code : Tout sélectionner

 $hexa = StringToBinary("50")
Vous convertissez une valeur qui semble déjà être, selon vous, de l'hexa , remplacez donc cela simplement par

Code : Tout sélectionner

$hexa = 50
La deuxième, vous n'appelez jamais votre fonction !

Code : Tout sélectionner

Msgbox(0, "Binary", $hexa)
remplacer plutôt par :

Code : Tout sélectionner

Msgbox(0, "Binary", HexaToBinary($hexa))

(Selon ce que vous faites, veillez à stocker votre valeur de retour dans une variable intermédiaire !)

Et vous verrez que votre code retourne bien 01010000 :)

M40

Re: [..] Convertir Hexa en Binaire

Posté : jeu. 04 juil. 2013 23:21
par Anthony
Résolu :D
Merci à tous les deux çà fonctionne ;)