Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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

Uploader:AdministratorSebastian
Datum/Zeit:20.09.2013 19:45:35

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

Const COMEinstellungen = "COM1:9600,N,8,1"

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

Print "Fertig. Beliebige Taste zum Beenden druecken."

Sleep
End