Wie serielles Kommando auslesen

[darxon69]

Hallo Leute.

Bin gerade dabei etwas mit Bascom herum zu experimentieren und bin gleich auf ein Problem gestoßen. Ich will eine Zeichenfolge von der Ser. Schnittstelle zeichenweise auslesen und zu einem Command String zusammenbauen. Der Code schaut so aus.




Config Serialin = Buffered , Size = 20
Enable Interrupts
....
....

Dim Command As String * 8
Dim Cs As String * 1

For I = 1 To 8
Cs = Inkey()
Command = Command + Cs
Next I



Das Ganze funktioniert leider nicht so wie ich mir das vorstelle.
Es gehen viele Zeichen verloren.
Mag sein, daß ich das mit der ser. Schnittstelle noch nicht so ganz gerafft habe.
Wie würdet Ihr das machen.

[Goblin]

lustig! :) schau dir mal meinen code an. das einlesen ist immerhin das was funktioniert:

https://www.roboternetz.de/phpBB2/viewtopic.php?p=155754#155754
(letzter beitrag von mir, unten)

warum zeichen einzeln einlesen und zusammenbauen statt gleich ein ganzes wort einlesen? schau mal in der bascom-hilfe nach dem input-befehl

[darxon69]

Naja wie gesagt Bin ja gerade dabei mich überhaupt mal in BAsic einzuarbeiten.

[Goblin]

ich sach ja gar nix. jeder is mal angefangen. :) und wie du siehst hab ich auch noch meine probleme.. bin auch quasi bascom-n00b

[darxon69]

Aber weil wir gerade beim Thema Serielle Kommunikation sind. Da fällt mir noch was ein. Unter dem BASCOM Simulator kann man ja im Terminal Fenster rechts klicken und dort steht dann "Serial Input File". Da kann man sicher ganze Befehlsfolgen eingeben, die dann abgearbeitet werden. Nur leider habe ich weder in der Bascom Dokumentation noch im Internet etwas dazu gefunden. Wer hat ne Ahnung wo ich dafür ne Doku her bekomme?

[Goblin]

ich hab mir das mal angesehen, das ist seltsam dass bei einem click auf die funktion nix passiert. ich kann mir das nur so erklaeren, dass die programmierer vorhatten, die funktion zu implementieren, es aber nicht getan haben. deswegen tauchts auch in keiner doku auf. schreib den entwicklern doch mal ne mail