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

COM Display 2

Uploader:AdministratorSebastian
Datum/Zeit:20.09.2013 20:15:07

'Verwendung ausschliesslich auf eigene Gefahr!
'Der Autor des Code-Beispiels uebernimmt keinerlei Gewaehrleistung oder Haftung!

Const COMEinstellungen = "COM1:9600,N,8,1,CS0,DS0,CD0,OP0,TB0,RB0,RS,ME"

If (Open Com ( COMEinstellungen For Binary As #1 ) <> 0 ) Then
    Print "Fehler: Der Port konnte nicht geoeffnet werden!"
    Sleep: End
Else
    Print "COM-Port geoeffnet."
End If

Dim As String Zeilenumbruch = chr(13, 10)
Dim ZeilenZumSenden(1 To ...) As String = { _
    "?", _
    "cls", _
    "txt 2,0," +chr(34)+"RS232 Display"+chr(34)+",8" _
}

Print "Gebe Zeilen aus ..."

For i As Integer = LBound(ZeilenZumSenden) To UBound(ZeilenZumSenden)
    Put #1, , ZeilenZumSenden(i)
    Put #1, , Zeilenumbruch
    Print "< "; ZeilenZumSenden(i)
Next i

Close #1

Print "Fertig. Beliebige Taste zum Beenden druecken."

Sleep
End