Hallo,
Overlay mit Byte, Word und Long verstehe ich
Ich will jedoch aus einem String immer jeweils 2 Zeichen in ein Byte schreiben
Gedacht habe ich mir das so:
DIM Teststring As String *20
Dim Ar(21) As Byte At Teststring Overlay
DIM String_2 As String *2
DIM Test As Byte
Teststring = "12345678"
Print Ar(1)
Print Ar(2)
Print Ar(3)
Das Ergebnis ist dann in jedem Byte der ASCI Code
49 ASCI Code von 1
50 ASCI Code von 2
51 ASCI Code von 3
Ich brauche jedoch:
12 in Byte 1
34 in Byte 2
56 in Byte 3
mit der MID Funktion funktioniert es so wie ich es brauche.
String_2 = MID(Empfangsstring,1,2)
Test = VAL(STRING_2)
Print Test
Die Frage ist, ob es auch mit Overlay geht.
Wenn nicht, mach ich es halt über die MID Funktion
Overlay mit Byte, Word und Long verstehe ich
Ich will jedoch aus einem String immer jeweils 2 Zeichen in ein Byte schreiben
Gedacht habe ich mir das so:
DIM Teststring As String *20
Dim Ar(21) As Byte At Teststring Overlay
DIM String_2 As String *2
DIM Test As Byte
Teststring = "12345678"
Print Ar(1)
Print Ar(2)
Print Ar(3)
Das Ergebnis ist dann in jedem Byte der ASCI Code
49 ASCI Code von 1
50 ASCI Code von 2
51 ASCI Code von 3
Ich brauche jedoch:
12 in Byte 1
34 in Byte 2
56 in Byte 3
mit der MID Funktion funktioniert es so wie ich es brauche.
String_2 = MID(Empfangsstring,1,2)
Test = VAL(STRING_2)
Print Test
Die Frage ist, ob es auch mit Overlay geht.
Wenn nicht, mach ich es halt über die MID Funktion
Komisch:Dauernd hängt sich mein Rechner auf, meine Wäsche macht das nie