Also ich hab hier mal einen kleinen Programmausschnitt wo sowas passiert:
Code:
Dim InByte as Byte
Dim InString as String*24
Do
InByte = inkey() 'Zeichen aus Empfangspuffer abholen
If InByte <> 0 then 'wenn Zeichen vorhanden
InString = InString + chr(InByte) 'Byte in entsprechenden Character umwandeln und an den String anfügen
End if
Loop until InByte = 0
Das Beispiel geht davon aus, das ein String Zeichen für Zeichen (also Byte für Byte) seriell empfangen wird und die einzelnen Bytes dann wieder zu einem String zusammengesetzt werden. Das klappt bei mir wunderbar.
Vielleicht hilft es dir ja weiter.
Gruß, Cairol.
Lesezeichen