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:

Probleme mit COM-Portkomunikation

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
gordon



Anmeldungsdatum: 16.01.2008
Beiträge: 13
BeitragVerfasst am: 23.09.2010, 17:51    Titel: Probleme mit COM-Portkomunikation Antworten mit Zitat
Hallo,
ich habe ein kleines Problem.
Auf der einen Seite habe ich ein AVR Controller und auf der anderen ein
PC und beide habe ich über eine COM Verbindung mit einander
verbunden. Ich lese nur eine Temperatur aus dem Contraller und schreibe diese mit. Aber nach 20-50 min hängt sich das Programm
auf. Meine Vermutung ist das der Controller nach der Anfrage vom PC
das Senden nich erledigt und das Programm im Input Befehl hängen
bleibt. Gibt es eine Alternative zum Befehl Input bei einer
COM Verbindung?

Mein Code:
Code:


dim as integer serialscan, openlog
dim as single temp

#include "vbcompat.bi"

cls

'Öffnen der Erroraufzeichnung
openlog=freefile
open"Error.txt" for output as #openlog

serialscan = freefile
Open COM "COM18:19200,n,8,1,cs0,cd0,ds0,rs" As #serialscan

do

sprungscan:
    sleep 100,0
    Print #serialscan,"I" 'senden der Anfrage Raumtemperatur
    sleep 100,0

    If Err <> 0 Then
          goto sprungscan
    end If

    input #serialscan,temp 'lesen der Raumtemperatur
    sleep 100,0   
   
locate 10,10   
print temp ;" ";chr(248);"C          "

print #openlog,date,time,"Fehlercode"; Err;"    ";temp ;" ";chr(248);"C          "

if inkey ="E" then exit do

loop
close #serialscan
close #openlog

end
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
frebas



Anmeldungsdatum: 20.06.2008
Beiträge: 245
BeitragVerfasst am: 23.09.2010, 20:24    Titel: Antworten mit Zitat
ja, du kannst prüfen ob daten zum einlesen mit input vorliegen:


Code:

dim buffer as string
Open Com "COM2:19200,n,8,1,cs0,ds0,cd0,rs" As #2
do
    sleep 1,1
    If Loc(2) > 0 then
        Input #2,buffer
        print buffer
    EndIf
loop
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. 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