Problem mit RS232-Empfang

[Searcher]

Hallo,

wahrscheinlich ist die "for count ... next" Schleife zu schnell - Inkey wird möglicherweise öfter mal kein Zeichen bekommen.

Versuch statt Inkey mal Waitkey. Das wartet immer laut BASCOM-HELP bis wirklich ein Zeichen da ist.

Also:

   For Count = 1 To 13
       Zeichen = Waitkey(#3)
       Empfang = Empfang + Zeichen
    Next

Gruß
Searcher

[Tido]

Hi,

nein, leider genauso schlecht.
Folgendes Empfangsprogramm funktioniert:

Do
If Ischarwaiting(#3) = 1 Then
   Input #3 , Daten
   Print #4 , Daten
End If

'Waitms 100

Loop

Ausgabe ist dann F99223344567Y.
Wenn ich ein bel. Waitms (z.B. 100) hinzufüge, bekomme ich nur noch F9.

Warum? Es muss doch möglich sein, zu bel. Zeitpunkten den gesamten Puffer auszulesen.
Ich benötige nicht alle empfangenen Strings, ab und zu möchte ich aber einen komplett auslesen, egal wie
lang das gesamte Programm ist.
Kann mir jemand helfen?