Hex to Dec - 0x00000021 zu 33

Professor Bernd

Ich sitze vielleicht zu lange am Computer, oder es ist die Hitze, aber wie bringe ich eine Hex-Zahl und eine Dezimal-Zahl in Einklang?

In einer registrierten Win-Msg (GUIRegisterMsg) soll eine Aktion ausgelöst werden, wenn $WParam 0x00000021 ist, das entspricht dezimal 33. Als Pseudo-Code:

If IrgendeineKonverterFunktion($WParam) = 33 Then TuWas

Welche Funktion könnte das denn sein, die aus 0x00000021 die 33 machen? (Wichtig ist auch, dass WParam in der 0x... Form vorliegt, sonst wärs ja einfach!)

Das Beste was ich gefunden habe sind die Funktionen _WinAPI_LongMid, _WinAPI_HiWord und _WinAPI_LoWord. Bei den beiden letzten gibts jeweils die Hälfte des Hex-Wertes. Wenn man den ganzen Hex-Wert haben will, müsste man die beiden addieren. - Ein wenig umständlich. ... Mit _WinAPI_LongMid($WParam, 0, 31) würde es gehen, aber ich bin mir nicht sicher, ob diese Funktion dafür gedacht ist.

Soll ich _WinAPI_LongMid() dafür benutzen, oder gibt es eine Funktion, die besser geeignet ist, um aus 0x00000021 die 33 zu machen?

Zusatzfrage: Es ist eine API-Timer-Proc, in der WParam ausgewertet werden soll. WParam gibt dabei eine Timer-ID aus. Wäre es dafür ausreichend, nur das Lo-Word zu prüfen, oder gibt es Werte, die auch ins Hi-Word schreiben? (Vielleicht würde hierfür _WinAPI_LoWord genügen!?)

**alpines**

Es ist irrelevant in welcher Form es vorliegt, da AutoIt zwischen den Formen hin- und her konvertiert.

Code

MsgBox(0, 0, 0xF = 15)

Anders siehts natürlich aus wenn die Hex-Zahlen nicht-präfixiert als String erwartet werden wie z.B. bei _IsPressed. Die _WinAPI-Funktionen sollten aber alle mit normalen Hex-Zahlen funktionieren.

Wenn du aufgrund der Darstellung das Dezimalsystem nutzen möchtest kannst du natürlich mit Hex und Dec Zahlen visuell umwandeln.

Zitat von Professor Bernd

Zusatzfrage: Es ist eine API-Timer-Proc, in der WParam ausgewertet werden soll. WParam gibt dabei eine Timer-ID aus. Wäre es dafür ausreichend, nur das Lo-Word zu prüfen, oder gibt es Werte, die auch ins Hi-Word schreiben?

Schau in die Dokumentation, insbesondere die msdn, da ist alles dazu aufgelistet.

**AspirinJunkie**

So:

AutoIt

$d = Dec(StringTrimLeft("0x00000021", 2))
MsgBox(0,"", $d)

oder so:

AutoIt

$d = Execute("0x00000021")
MsgBox(0,"", $d)

Edit: Tja wenn es so ist wie alpines sagt - es sich also nicht um einen String handelt, dann gibt es kein Hex oder Decimal - es ist alles das selbe.

Musashi

AutoIt

Global $sHexString = '0x00000021'

; Variante 1 :
Global $iDec = Dec(StringRegExpReplace($sHexString, '^0x', ''))
ConsoleWrite('< >>> Variante 1 = ' & $iDec & @CRLF)

; Variante 2 :
ConsoleWrite('< >>> Variante 2 = ' & HexToDec($sHexString) & @CRLF)

Func HexToDec($iN)
    Local $aN, $ihex = 0
    $aN = StringSplit(StringTrimLeft($iN, 2), "", 1)
    For $x = 1 To UBound($aN) - 1
        $ihex += Dec($aN[$x]) * (16 ^ (UBound($aN) - 1 - $x))
    Next
    Return $ihex
EndFunc ;==>HexToDec

Alles anzeigen

EDIT : (wie auch AspirinJunkie in seinem Edit schrieb) -> alpines hat natürlich recht, falls es sich nicht um einen String handelt.

Professor Bernd

Zitat von alpines

Es ist irrelevant in welcher Form es vorliegt, da AutoIt zwischen den Formen hin- und her konvertiert.

Du hast recht. - OMG, das gibts doch nicht! Manchmal ist man wie vernagelt!

AutoIt

Global $My_WParam = 0x00000021
Global $TestWert = 33

If $My_WParam = $TestWert Then
  MsgBox(0, "", "Übereinstimmung") ; Es wird Übereinstimmung angezeigt!
Else
  MsgBox(0, "", "KEINE Übereinstimmung")
EndIf

Jetzt frage ich mich, warum bin ich nicht auf die Idee gekommen, es einfach zu probieren!? Das wäre das einfachste der Welt gewesen und ich hätte mir eine lange Recherche erspart. Bin ich so sehr konditioniert, dass ich unbeding davon ausging, es könnte nicht so einfach sein?

Zitat von Aspirinjunkie
AutoIt
$d = Dec(StringTrimLeft("0x00000021", 2))

MsgBox(0,"", $d)

So wie AspirinJunkie habe ich auch gedacht, ich müsse es irgendwie umwandeln. Dass man es "einfach so" vergleichen kann, darauf bin ich nicht gekommen! *fassungslos-den-Kopf-schüttel*

Nachtrag: @Musashi Du hast gepostet, während ich noch geschrieben habe. So wie es aussieht, hast du auch den komplizierten Weg gewählt.

Nachtrag 2: Die einfachste HexToDec Umwandlung.

AutoIt

; Die einfachste Möglichkeit, HexToDec umzuwandeln, ist das Voranstellen von "0x...".
ConsoleWrite( _                            ; Ausgabe
    "        33 = " &         33 & @CRLF _ ;  = 33
  & "      0x33 = " &       0x33 & @CRLF _ ;  = 51
  & "  00000021 = " &   00000021 & @CRLF _ ;  = 21
  & "0x00000021 = " & 0x00000021 & @CRLF)  ;  = 33

Wieder was gelernt. Danke alpines!

Professor Bernd

alpines Wie machst du das nur!? ... Ich komme mir vor wie die Asgard, als sie gegen die Replikatoren gekämpft haben. Die Asgard kamen zu Colonel O'Neill und Captain Carter und brauchten deren Hilfe. Die Asgard waren nicht mehr in der Lage, auf einer so einfachen Ebene zu denken!

**alpines**

Manchmal ist das altbewährte Mittel roher maschineller Gewalt eben am besten.

Alternativ kannst du natürlich auch den Timer der Zeiterweiterungsmaschine auf Othala halt auf 1.000.000x statt auf 10.000x drehen, ist doch offensichtlich oder?

Professor Bernd

Lieber Professor Bernd, hier spricht dein Vergangenheits-Ich! Solltest du irgendwann erneut in die Situation kommen, eine HexToDec-Umwandlung zu benötigen, guck in Posting #5. Dort habe ich meine Erkenntnisse in einem Zeiterweiterungsfeld zusammen gefasst, sodass sie dir auch später zur Verfügung stehen.