int2hex

[kaesereibe]

yet another int2hex() funtion

This example shows just a way to calculate int to hex manually.

Otherwise please use the Hex() function.

; AutoIt v3.3.12.0
#include <MsgBoxConstants.au3>

MsgBox($MB_OK, "int2hex", int2hex(119) & " | " & int2hex(2147483647) & " | " & int2hex(4294967295))

Func int2hex($int)
    Local $h
    $BIT_BYTE = 8                                                     ; bits per byte
    $HEX_BYTE = $BIT_BYTE / 4                                         ; hex digits in a byte
    $BIT_INT  = 32                                                    ; sizeof(int)
    $HEX_INT  = $BIT_INT / ($BIT_BYTE / $HEX_BYTE)                    ; hex digits in an int
    While $HEX_INT                                                    ; while HEX_INT--
        $HEX_INT -= 1                                                 ; while HEX_INT--
        $n = BitAnd(BitShift($int, ($HEX_INT * 4)), 0xf)              ; (int >> (HEX_INT * 4)) & 0xf
        $h &= $n > 9 ? chr(0x37 + $n) : $n
        If $HEX_INT == 0 AND Floor($HEX_INT / $HEX_BYTE) == 0 Then    ; if (HEX_INT == 0 && HEX_INT // HEX_BYTES == 0)
            $h &= " "
        EndIf
    WEnd
    Return "0x" & $h
EndFunc    ; ==> int2hex()

Edited July 25, 2014 by kaesereibe

[jchd]

Who need this (wrong) example to compete with the built-in Hex()?

[kaesereibe]

my goal was to calc this manual an not to use Hex()
explain why its wrong

Edited July 18, 2014 by jNizM

[jchd]

This code won't handle int64

[kaesereibe]

as you can read its for 32

$BIT_INT = 32 ; sizeof(int)

Edited July 17, 2014 by jNizM

[jchd]

That means it's inferior to built-in Hex() function. So why bother creating it in the first place?

[kaesereibe]

Be a nice guy and do me a personal favor. Ignore my Topic pls. Because it's useless to discuss with you!!!

 

It shows just another way without hex()

thx bye bye

Edited July 17, 2014 by jNizM

[Melba23]

jNizM,

Keep calm please. This is a semi-public forum - jchd has as much right to comment on your code as you have to post it.

M23

[jchd]

jNizM,

I'm not on a personal war against you or your posts. Just that I question the usefulness of code inferior to what comes standard with AutoIt. It's merely going to fool beginners.

[kaesereibe]

Changed first post

 

(it was the way how you posted)

Edited July 18, 2014 by kaesereibe

[Mat]

Here's generic base conversion functions that I've been using for years: https://gist.github.com/MattDiesel/5813398

[kaesereibe]

same here:

#include <MsgBoxConstants.au3>

Func _TranslateBase($sNumber, $iOldBase = 10, $iNewBase = 2) ; _TranslateBase() by eukalyptus
    If $iOldBase < 2 Or $iOldBase > 128 Or $iNewBase < 2 Or $iNewBase > 128 Then Return SetError(1, 1, False)
    Local $iNum, $aRes, $tChr = DllStructCreate("char[64];")
    If $iOldBase <> 10 Then
        $aRes = DllCall("msvcrt.dll", "uint64:cdecl", "_strtoui64", "str", $sNumber, "ptr", 0, "int", $iOldBase)
        If @error Then Return SetError(1, 2, False)
        $iNum = $aRes[0]
    Else
        $iNum = Int($sNumber)
    EndIf
    $aRes = DllCall("msvcrt.dll", "ptr:cdecl", "_i64toa", "int64", $iNum, "ptr", DllStructGetPtr($tChr), "int", $iNewBase)
    If @error Then Return SetError(1, 3, False)
    Return DllStructGetData($tChr, 1)
EndFunc   ;==>_TranslateBase

$decToBin = _TranslateBase(111, 10, 2)
$binToDec = _TranslateBase(01101111, 2, 10)

MsgBox(4096, "TranslateBase", "Decimal to Binary:" & @CRLF & "111 to " & $decToBin)
MsgBox(4096, "TranslateBase", "Binary to Decimal:" & @CRLF & "01101111 to " & $binToDec)

[czardas]

It's good to try out things for yourself and learn through this experience. I consider that a valid reason to post such an example, even if there are more flexible versions available. By this process it may be possible to learn about design flaws and optimization proceedures. While I have received criticism for several of my own posts, it has mainly been to my benefit in the long run. I don't always listen to everyone, but I can assure you that MVPs such as Mat and JCHD don't normally comment unless they feel there is justification.

---

There is one thing I am wondering about: I'm not sure why you added this. ==>

If $HEX_INT == 0 AND Floor($HEX_INT / $HEX_BYTE) == 0 Then    ; if (HEX_INT == 0 && HEX_INT // HEX_BYTES == 0)
            $h &= " "
        EndIf

;

I urge you to continue trying out your own ideas, providing you also research tried and tested methods; and I wish you good luck with your code projects.

Edited July 18, 2014 by czardas

[guinness]

Nice gists Mat.