Hex To Int

Übersicht

BlitzBasic

Codearchiv

	Artemis Betreff: Hex To Int	Sa, Feb 19, 2005 18:27 Antworten mit Zitat
Hoy das macht ne Hexzahl zu nem Integer:Code: [AUSKLAPPEN] [EINKLAPPEN] Function HexToInt(Hexzahl$) If Left$(Hexzahl$,1)="$" Then Hexzahl$=Mid$(Hexzahl$,2) For i=1 To Len(Hexzahl$) tmp1$=Upper$(Mid$(Hexzahl$,i,1)):tmp2=tmp1$ If tmp2=0 And tmp1$<>"0" Then tmp2=Asc(tmp1$)-55 Integer_Result=Integer_Result*16:Integer_Result=Integer_Result+tmp2 Next Return Integer_Result End Function

Artemis

Betreff: Hex To Int

Sa, Feb 19, 2005 18:27
Antworten mit Zitat

Hoy das macht ne Hexzahl zu nem Integer:Code: [AUSKLAPPEN]

Function HexToInt(Hexzahl$)
If Left$(Hexzahl$,1)="$" Then Hexzahl$=Mid$(Hexzahl$,2)
For i=1 To Len(Hexzahl$)
   tmp1$=Upper$(Mid$(Hexzahl$,i,1)):tmp2=tmp1$
   If tmp2=0 And tmp1$<>"0" Then tmp2=Asc(tmp1$)-55
   Integer_Result=Integer_Result*16:Integer_Result=Integer_Result+tmp2
Next
Return Integer_Result
End Function

	Devils Child	Di, Jul 05, 2005 20:38 Antworten mit Zitat
cool, exakt nach dem hab ich gesucht. beweis, dass es funtzt: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Print hextoint(Hex(zahl)):Print zahl jetzt sollte er die variable zahl ausspucken!
X-Ware Member Mission to Hell[Ego-Shooter] Hier Vollversion runterladen: http://patrick-sch.de/spiele/m...ersion.zip ich antworte auf jede PN

Devils Child

Di, Jul 05, 2005 20:38
Antworten mit Zitat

cool, exakt nach dem hab ich gesucht.
beweis, dass es funtzt:

BlitzBasic: [AUSKLAPPEN]

Print hextoint(Hex(zahl)):Print zahl

jetzt sollte er die variable zahl ausspucken! Wink

*X-Ware Member*

Mission to Hell[Ego-Shooter]
Hier Vollversion runterladen:
http://patrick-sch.de/spiele/m...ersion.zip

ich antworte auf jede PN