Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

RP6 Roboter über COM steuern, Probleme mit LOF

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Profi-Forum
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
tfv



Anmeldungsdatum: 05.01.2008
Beiträge: 16

BeitragVerfasst am: 05.01.2008, 23:43    Titel: RP6 Roboter über COM steuern, Probleme mit LOF Antworten mit Zitat

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.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Michael Frey



Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz

BeitragVerfasst am: 12.01.2008, 16:35    Titel: Antworten mit Zitat

Vorschlag:
Verwende doch eof (End of file) statt lof (long of file)

Code:
do                      ' Diese und die nächste Zeile sind immer das Ende des Programms.
loop until (LOF(1)>0)   ' Auskommentiert werden die Inputs richtig eingelesen.


Code:
do
loop until (EOF(1)=0)

Ist jetzt nicht geprüft. aber das Prinzip könnte klappen.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Profi-Forum Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz