Hexadezimal nach Dezimal umwandeln

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

TheMatrix

Betreff: Hexadezimal nach Dezimal umwandeln

BeitragDo, Jun 07, 2007 0:31
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group