Seite 2 von 2
Hex Werte
Verfasst: 27.01.2005 14:50
von Vater
Zumindest für die Hex Werte hab ich die Antwort noch gefunden
Code: Alles auswählen
Procedure.l hex2dec(h$)
h$=UCase(h$)
For r=1 To Len(h$)
d<<4 : a$=Mid(h$,r,1)
If Asc(a$)>60
d+Asc(a$)-55
Else
d+Asc(a$)-48
EndIf
Next
ProcedureReturn d
EndProcedure
;
MessageRequester("Ausgabe", Str(hex2dec("D7")))
Verfasst: 27.01.2005 14:55
von ChaOsKid
ich hab die udp packete immer auf port 9 verschickt, aber bin mir nicht wirklich sicher...evtl ist es sogar egal welchen port man nimmt....
HexVal() von GPI gäbe es auch noch
Code: Alles auswählen
Procedure HexVal(a$)
a$=Trim(UCase(a$))
If Asc(a$)='$'
a$=Trim(Mid(a$,2,Len(a$)-1))
EndIf
result=0
*adr.byte=@a$
For i=1 To Len(a$)
result<<4
Select *adr\B
Case '0'
Case '1':result+1
Case '2':result+2
Case '3':result+3
Case '4':result+4
Case '5':result+5
Case '6':result+6
Case '7':result+7
Case '8':result+8
Case '9':result+9
Case 'A':result+10
Case 'B':result+11
Case 'C':result+12
Case 'D':result+13
Case 'E':result+14
Case 'F':result+15
Default:i=Len(a$)
EndSelect
*adr+1
Next
ProcedureReturn result
EndProcedure