Buchempfehlung
Windows System Programming
Windows System Programming
Das Kompendium liefert viele interessante Informationen zur Windows-Programmierung auf Englisch. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Beispiel: COM-Ereignisschleife

Uploader:AdministratorSebastian
Datum/Zeit:02.09.2012 13:37:12

' Code basiert auf den Postings zu folgendem Foren-Thread:
' http://forum.qbasic.at/viewtopic.php?p=95177#95177

' ...
' Schnittstelle oeffnen (wie gehabt): OPEN COM ...
' ...
'  -> Code hier einfuegen
' ...

Dim As String EmpfangsPuffer, SendePuffer, Taste

Do
    ' Taste gedrueckt?
    Taste = Inkey
    If Taste = chr(13) Then  'Enter
        Put #1, , SendePuffer
        'Folgendes, wenn sofortiges Echo auf Konsole benoetigt wird:
        Print ""
        'Folgendes reicht, wenn Echo nach Enter reicht:
        Print "<-- Es wurde Enter gedrueckt und Folgendes gesendet: " & SendePuffer
        SendePuffer = ""
    ElseIf Taste = Chr(27) Then 'ESC -> Programmabbruch
        Exit Do
    Else  'Irgendein anderes Zeichen (z. B. eine Zahl)
        SendePuffer = SendePuffer & Taste
        'Folgendes, wenn sofortiges Echo auf Konsole benoetigt wird:
        Print Taste;
    End If
    ' Irgendwelche Daten bereit zum Einlesen?
    If Loc(1) > 0 Then
        EmpfangsPuffer = Space(Loc(1))  'Puffergroesse entsprechend festlegen
        Get #1, , EmpfangsPuffer
        Print "--> " & EmpfangsPuffer
    End If
    Sleep 1
Loop

Close #1  'Schnittstelle schliessen