Hexadezimal nach Dezimal umwandeln

Übersicht

BlitzBasic

Codearchiv

	TheMatrix Betreff: Hexadezimal nach Dezimal umwandeln	Do, Jun 07, 2007 0:31 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] [EINKLAPPEN] 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

TheMatrix

Betreff: Hexadezimal nach Dezimal umwandeln

Do, Jun 07, 2007 0:31
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