Hexadezimal nach Dezimal umwandeln
Übersicht

![]() |
TheMatrixBetreff: Hexadezimal nach Dezimal umwandeln |
![]() Antworten mit Zitat ![]() |
---|---|---|
Hi,
hab mal in der Forensuche nach Hexadezimal gesucht, um eine Funktion für Hexadezimal nach Dezimal zu finden.. Auch mit Erfolg... jedoch waren mir die Funktionen viel zu riesig. Hab dann mal was rausgekramt und erweitert. Vielleicht ist es ja nützlich. Die Funktion wandelt egal welchen Hexwert in eine Dezimalzahl um. Code: [AUSKLAPPEN] Print "Rechnung: " + HexToDez("FF12ABB") Print "Vergleich: " + $FF12ABB waitkey() end Function HexToDez(hexa$) hexa$ = upper$(hexa$) For i=1 To Len(hexa$) If Asc(Mid$(hexa$,i))<=57 hexwert=Mid$(hexa$,i, 1) Else hexwert=Asc(Mid$(hexa$,i, 1))-55 zeichen = Len(hexa$)-i byte = byte + Int(hexwert*(16^zeichen)) Next Return byte End Function mfg, Manu |
||
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group