Ausgabe auf Serielle Schnittstelle

[Gambasfreund]

Hallo Forum,

wir versuchen schon seit einiger Zeit, Daten auf die serielle Schnittstelle auszugeben.
Der Serialport den wir benutzen, arbeitet über die COM Port ttyUSB0 und kann Daten per Read #Serialport empfangen jedoch nicht senden.

Kann mir jemand sagen, wie man den String "Hallo Welt" auf die serielle Schnittstelle ausgeben kann?
Im Moment probieren wir es mit folgendem Code:

Code: Alles auswählen

Dim txt as String
txt = "Hallo Welt"
SerialPort1.Begin()
Write #Serialport1, txt
Rx = Null
SerialPort1.Send()

Einen ähnlichen Code haben wir im Netz gefunden, dieser Funktioniert aber nicht.
Ebenso gibt es weit und breit kein Beispiel für eine einfach serielle Ausgabe. (Serial.println("Hallo Welt") bei Arduino?)

Vielen Dank im Voraus für die Hilfe,

Gambasfreund

[Honsek]

Hallo Gambasfreund,

in den nächsten Tagen veröffentlichen wir auf www.gambas-buch.de ein Kapitel genau zu diesem Thema. Zum Thema passend werden auch zwei RS232-Terminal-Programme vorgestellt. Mit meinem Projekt können auch utf8-kodierte Texte gesendet und empfangen werden.
Wenn die Not groß ist, dann bitte eine EMail an hans@gambas-buch.de oder eine PM von diesem Club aus. Kurze Frage: Wer ist 'wir', die das "Hallo Welt' versenden wollen?

Mit flottem Gruß

Hans

[Gambasfreund]

Hallo Hans,

vielen Dank für die schnelle Antwort!
'Wir' sind mein Vater und ich, welche sich ein Nextion Display angeschafft haben und dieses jetzt über die serielle Schnittstelle in Gambas ansteuern wollen.

Das Projekt klingt genau nach was wir brauchen!
Wo können wir sehen / informiert werden, wenn dieses verfügbar ist?

Nochmals vielen Dank für die Mühen,

Gambasfreund

[Gambasfreund]

Hallo noch einmal,

die Lösung des Problems war die Einstellung "FlowControl" des Serialports.
Diesen musste ich auf Software stellen, dann hat das "Write" wunderbar funktioniert.

Das Nextion Display kann ich nun wie folgt ansprechen:

Code: Alles auswählen

Public Sub sendText_Click()
	Dim msg As String
	Dim msg_out As String
	
	msg = TextArea1.Text ' 
	msg_out = "t1.txt=" & Chr(34) & msg & Chr(34) & Chr(255) & Chr(255) & Chr(255)
	Write SerialPort1, msg_out, Len(msg_out)
End

Vielen Dank noch einmal für die Tipps,

Gambasfreund