Ausgabe auf Serielle Schnittstelle

Fragen zu Raspberry, FritzBox, Microcontroller, UART, etc...
Antworten
Gambasfreund
Foriker
Beiträge: 3
Registriert: Do 31. Mai 2018, 19:09
Kontaktdaten:

Ausgabe auf Serielle Schnittstelle

Beitrag von Gambasfreund » Do 31. Mai 2018, 19:28

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
Foriker
Beiträge: 356
Registriert: Do 4. Okt 2007, 17:01
Kontaktdaten:

Re: Ausgabe auf Serielle Schnittstelle

Beitrag von Honsek » Fr 1. Jun 2018, 10:14

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
---> Wenn Du eine gute Antwort erwartest, musst Du sehr gut fragen!

Gambasfreund
Foriker
Beiträge: 3
Registriert: Do 31. Mai 2018, 19:09
Kontaktdaten:

Re: Ausgabe auf Serielle Schnittstelle

Beitrag von Gambasfreund » Di 5. Jun 2018, 19:18

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
Foriker
Beiträge: 3
Registriert: Do 31. Mai 2018, 19:09
Kontaktdaten:

Re: Ausgabe auf Serielle Schnittstelle

Beitrag von Gambasfreund » Di 12. Jun 2018, 16:15

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

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste