Das deutsche QBasic- und FreeBASIC-Forum

[jojo2]

Hallo,

ich öffne einen Com Port und möchte im Anschluss Text dort Ausgeben. Das funktioniert auch einwandfrei. Wenn ich dann aber die Antworten des Gegenübers mit LINE Input einlesen möchte, kann ich danach nichts mehr senden und erhalte ERR 3.

Schließe ich den Com Port und öffne ihn wieder geht alles wieder so lange bis ich mit Line Input wieder einlese.
Ist das ein Bug?

Open "COM2: 9600,8,O,1" For Random As #1
Print #1,"reset"
sleep 50
Line Input #1,adata //bis hier hin klappt alles
Sleep 50
Print ":MP" //Bricht ab mit Err 3

[HorstD]

Line Input liest eine Zeile so lange ein, bis das Zeilenende (CrLf) kommt.

Wenn adata nicht mit CrLf endet, kannst du lange warten.

Versuch's mal mit INPUT.

[jojo2]

Das Line Input ist nicht das Problem. Das LF am Ende kommt und das Programm läuft weiter.

Nur danach kann ich nicht mehr senden...

[grindstone]

Hallo jojo2 und willkommen im Forum!

Bist du sicher, daß das Senden bei dir überhaupt funktioniert? Denn das, was du als Code gepostet hast, öffnet mit Sicherheit keinen Com-Port. Der entsprechende Befehl lautet nicht OPEN, sondern OPEN COM, in der Parameterliste sind Parität und Anzahl der Datenbits vertauscht, und ein Dateimodus ("For Random") wird überhaupt nicht angegeben. Außerdem muß bei 8 Datenbits die Parität "N" sein.

Die Zeile müsste also korrekt lauten: