Hexacode einer Zugangskarte in eine Dezimalzahl umwandeln

_getDecFromHex("04000ace4f")
_getDecFromHex("04000ace4gf")


Func _getDecFromHex($hex)
	$dec=Dec($hex)
	if @error then
		MsgBox(16,"Error","Das ist keine Hexzahl!")
	else
		MsgBox(48,"",$dec)
	endif
EndFunc

#include <EditConstants.au3>; Läd Konstanten für EditControls, in diesem fall wird eine Konstante benötigt um ein Eingabefeld(InputControl) auf "nur lesen" zu stellen
Opt("MustDeclareVars",1); erzwingt das Deklarieren von Variablen vor Benützung, ist völlig optional.
Global $msg, $sClip, $sDec, $iDec, $sHex ; Deklariert Variablen die wir im Laufe des Scriptes noch brauchen
Global $hGUI = GUICreate("My Hex to Dec Converter",350,100); erstellt eine GUI (Grafik User Interface) also ein Windows-Fenster
GUICtrlCreateLabel("Hex:",10,11,30,18); Erstellt ein Textfeld auf diesem Fenster, wir beschriften hiermit das Hex Eingabefeld
Global $idInput_Hex = GUICtrlCreateInput("",50,10,240,19); Hier wird das Hex-Eingabefeld erstellt
Global $idButton_Past = GUICtrlCreateButton("Paste",300,10,40,21); Erstellt einen Button mit der aufschrift "Paste"
GUICtrlCreateLabel("Dec:",10,41,30,18); Erstellt ein Textfeld auf diesem Fenster, wir beschriften hiermit das Dec Eingabefeld
Global $idInput_Dec =  GUICtrlCreateInput("",50,40,240,19,$ES_READONLY); Hier wird das Dec-Eingabefeld erstellt, welches aufgrund des Stils $ES_READONLY keine eingaben vom benützer akzeptiert
Global $idButton_Copy = GUICtrlCreateButton("Copy",300,40,40,21); Erstellt einen Button mit der aufschrift "Copy"
Global $idButton_Convert = GUICtrlCreateButton("Convert",75,70,200,22); Erstellt einen Button mit der aufschrift "Convert"
Global $aAccelKeys[1][2] = [["{Enter}", $idButton_Convert]]; Erstellt ein Array mit der Tastenbelegung in dem Fenster, siehe hilfe zu GUISetAccelerators()
GUISetAccelerators($aAccelKeys, $hGUI); Beim drücken der {Enter} Taste wird quasi wie ein klicken auf den Button "Convert" gewertet
GUISetState(@SW_SHOW, $hGUI); Mach das Fenster, dessen Handle oben in der Variable $hGUI abgespeichert wurde sichtbar(@SW_SHOW)
Do; Begin einer Schleife, alles zwischen dieser Zeile und Until wird unbegrenzt oft wiederholt werden
   $msg = GUIGetMsg(); Wenn ein Fensterelement z.B. ein Button angeklickt wird, gibt GUIGetMsg() die id dieses Fensterelementes in die Variable $msg
   Switch $msg; Hier wird die id des angeklickten Fensterelements mit unseren Buttons verglichen um, im falle einer Übereinstimmung zu reagieren, zur Funktionsweise von Switch-Case-EndShitch siehe Hilfe
   Case $idButton_Past; Im fall das der Paste-Button angeklickt wurde...
	  $sClip = ClipGet(); Speichert den Inhalt Zwischenablage (Clip) in der Variable $sClip
	  GUICtrlSetData($idInput_Hex, $sClip); Schreibt den Inhalt der Zwischenablage in das Hex-Eingabefeld
	  $iDec = Dec($sClip); Convertiert die Eingabe ins 10er Zahlensystem
	  If Not @error Then; Sollte die Umwandlung erfolgreich sein, also nicht fehlschlagen (Not @error), wird der umgewandelte Wert in das Dec-Eingabefeld geschrieben
		 GUICtrlSetData($idInput_Dec, $iDec)
	  EndIf
   Case $idButton_Copy; Im fall das der Copy-Button angeklickt wurde...
	  $sDec = GUICtrlRead($idInput_Dec); Speichere den Inhalt des Dec-Eingabefeld (welches nur der Ausgabe dient) in die Variable $sDec
	  ClipPut( $sDec ); Schreibe den Inhalt des Dec-Eingabefeld in die Zwischenablage (Clip)
   Case $idButton_Convert; Im fall das der Convert-Button angeklickt wurde...
	  $sHex = GUICtrlRead($idInput_Hex); Lese den Inhalt des Hex-Eingabefeld in die Variable $sHex
	  $iDec = Dec($sHex); Wandelt die Variable $sHex ins 10er Zahlensystem um und speichert es in der Variable $iDec
	  If @error Then; Im Fehlerfall wird das Hex-Eingabefeld rötlich(0xFF9999) gefärbt
		 GUICtrlSetBkColor($idInput_Hex,0xFF9999)
	  Else; Im Erfolgsfall...
		 GUICtrlSetBkColor($idInput_Hex,0xFFFFFF); wird das Hex-Eingabefeld weiß(0xFFFFFF) gefärbt, dies wird jedesmal gemacht, falls das Feld zuvor durch eine ungültige Eingabe rot gefärbt wurde
		 GUICtrlSetData($idInput_Dec, $iDec); Schreibt den Konvertierten Wert in das Dec-Eingabefeld
	  EndIf
   Case -3; Die id -3($GUI_EVENT_CLOSE) enspricht dem Fenster schließen event, in diesem Fall wird das Script beendet (exit)
	  exit
   EndSwitch
Until False; Ab hier springt das Programm wieder zum Start der Schleife (Do)