[R] Convertir Hexa en Binaire

[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

Merci d'avance

[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.

[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

[Anthony]

Résolu
Merci à tous les deux çà fonctionne