Binary to Hex Conversion

[AutoItKing]

I've tried Hex(), obviously... But it gives me wacko stuff. 0101 1010 should output 5A. But it doesn't. 101 should go to 5, yet it goes to 65... Huh? Any help?

[the_lord_mephy]

That's because the Hex function is seeing your number as an integer, so instead of seeing 101 as binary, it's seeing the number one-hundred and one. There might be some sort of notation you have to put binary numbers in. I'll keep looking.

[AutoItKing]

That's what I thought too, I tried a bunch of different ways of doing it.

[PsaltyDS]

I've tried Hex(), obviously... But it gives me wacko stuff. 0101 1010 should output 5A. But it doesn't. 101 should go to 5, yet it goes to 65... Huh? Any help?

I stops at the break (space) and reads it as decimal, not binary: 101₁₀ = 0x65

AuotIt does not seem to support the notation "0b01011010" for a binary nuber. (See help file under Data Types)

[Jos]

$BinIn = "01011010"
$Bits = StringSplit($BinIn,"")
$Dec = 0
For $x = $Bits[0] To 1 Step -1
    $dec +=  (2^($Bits[0]-$x)) * $Bits[$x]
Next
$hex = Hex($dec)
ConsoleWrite("bin:" & $BinIn & "  Dec:" & $dec & "   Hex:" & $Hex & @CRLF)

[AutoItKing]

That works! Thanks JdeB, you're so smart! :suckup:

[the_lord_mephy]

lol I shoulda refreshed i just made UDF for it

Func BinaryToHex($bin)
    Dim $hex, $thex, $num
    $bins = StringSplit($bin, " ")
    For $i = 1 to $bins[0]
        If StringLen($bins[$i]) <> 4 Then
            MsgBox(0, "", $bins[$i])
            Return -1
        EndIf
        $nums = StringSplit($bins[$i], "")
        $thex = 0
        If $nums[1] = 1 Then $thex = $thex + 8
        If $nums[2] = 1 Then $thex = $thex + 4
        If $nums[3] = 1 Then $thex = $thex + 2
        If $nums[4] = 1 Then $thex = $thex + 1
        $num = $num & StringRight(Hex($thex), 1)
    Next
    Return $num
EndFunc

MsgBox(0, "", BinaryToHex("0101 1010"))

[AutoItKing]

I like that one! Now on to the rest of my program.... Mwahahaha!!