Ich nutze immer folgendes Schema:
Code:Do If Ischarwaiting() = 1 Then Gosub Empfangen End If loop end Empfangen: B = Inkey() If B = 13 Then 'CR Gosub Auswerten Else Bb = Len(seingang) 'Noch Platz im Eingangspuffer? If Bb < 26 Then Seingang = Seingang + Chr(b) Else Seingang = "" end if End If Return Auswerten: If Len(seingang) >= 1 Then 'Überhaupt was Verwertbares? ... ... ... end if
Lesezeichen