tfv
Anmeldungsdatum: 06.01.2008 Beiträge: 16
|
Verfasst am: 06.01.2008, 00:43 Titel: RP6 Roboter über COM steuern, Probleme mit LOF |
|
|
Ich habe ein Problem mit dem LOF Befehl im Zusammenhang mit INPUT von der seriellen Schnittstelle.
Mein Ziel ist es, festzustellen, ob Zeichen im Input Buffer vorliegen und sobald länger (z.B. 1 s) nichts mehr ankommt, im Programm weiterzugehen. Allerdings funktioniert der LOF Befehl dazu schon dann nicht, wenn es im folgenden Beispiel darum geht zu merken, wann die ersten zeichen ankommen
Programmbeispiel:
Code: |
Dim myErr As Integer
Dim result As String
Dim i as integer
Open Cons For Output As #3
Print "Programmstart"
myErr = Open Com ("COM17:38400,N,8,1,BIN,RS,CD0,CS0,DS0,TB512,RB512" As #1)
Print #3, "ErrorNr= ", myErr
do ' Diese und die nächste Zeile sind immer das Ende des Programms.
loop until (LOF(1)>0) ' Auskommentiert werden die Inputs richtig eingelesen.
While (0=0)
Print "Laenge: ";Len(result);", Text ist:----";result
Sleep 1,1
result=""
if (LOF(1)>0) then
print "LOF ist da";lof(1)
endif
result = Input(20, #1)
i=i+1
wend
Print
Print "Zeilenzahl: "; i
Print "Programmende"
Close #1
Do
Loop Until Inkey$ = "q"
|
LOF(1) scheint mir nicht die Zeichenzahl im Puffer zu liefern. Wenn ich die Zeilen 10 und 11 auskommentiere, läuft das Programm problemlos und ich erhalte die korrekten INPUT Werte, LOF liefert aber immer 0, selbst wenn ich zunächst mit sleep einige Sekunden warte und erst direkt vor dem Inputbefehl den Wert von LOF auslese (durch das Warten ist der Buffer zu diesem Zeitpunkt definitiv schon beschrieben).
Was mache ich falsch? Wie gehts richtig?
Danke an die Profis. |
|