Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [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 reduziert

Uploader:AdministratorSebastian
Datum/Zeit:20.09.2013 20:39:53

'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 As String MeinText = "A"

Print "Gebe A aus ..."

Put #1, , MeinText
Put #1, , Zeilenumbruch

Close #1

Print "Fertig. Beliebige Taste zum Beenden druecken."

Sleep
End