Hallo,
ich habe seit langem wieder mit dem Programmieren begonnen.
Nun hab ich folgendes Problem:
Ich möchte über die serielle Schnittstelle einen Wert zu einem AVR senden und dort auf einem LCD darstellen.
Die Kommunikation funktioniert, wenn ich dies mit dem Terminalprogramm unter BASCOM-AVR teste.
Als Beispielprogramm habe ich den Idealgewichtsrechner aus dem Visual Basic 2010 Buch (Monadjemi, Saumweber) verwendet.
Das Programm läuft und gibt den Wert am Bildschirm aus und schreibt diesen Wert wahrscheinlich auch in einen seriellen Puffer, der jedoch nicht
weitergegeben wird. Wenn ich anschliessend das Terminalprogramm starte, dann wird der Puffer weitergegeben an das Display.
Anbei noch der Code
Imports System.IO.Ports
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lbIdealgewicht.Text = (tbGroesse.Text - 100) * 0.9 & " kg"
SerialPort1.Open()
SerialPort1.Write(lbIdealgewicht.Text)
SerialPort1.Write("Testtext")
SerialPort1.Close()
End Sub
End Class
Danke für Eure Hilfe
edit by kevin89: verschoben
bitte das nächste mal melden!
ich habe seit langem wieder mit dem Programmieren begonnen.
Nun hab ich folgendes Problem:
Ich möchte über die serielle Schnittstelle einen Wert zu einem AVR senden und dort auf einem LCD darstellen.
Die Kommunikation funktioniert, wenn ich dies mit dem Terminalprogramm unter BASCOM-AVR teste.
Als Beispielprogramm habe ich den Idealgewichtsrechner aus dem Visual Basic 2010 Buch (Monadjemi, Saumweber) verwendet.
Das Programm läuft und gibt den Wert am Bildschirm aus und schreibt diesen Wert wahrscheinlich auch in einen seriellen Puffer, der jedoch nicht
weitergegeben wird. Wenn ich anschliessend das Terminalprogramm starte, dann wird der Puffer weitergegeben an das Display.
Anbei noch der Code
Imports System.IO.Ports
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
lbIdealgewicht.Text = (tbGroesse.Text - 100) * 0.9 & " kg"
SerialPort1.Open()
SerialPort1.Write(lbIdealgewicht.Text)
SerialPort1.Write("Testtext")
SerialPort1.Close()
End Sub
End Class
Danke für Eure Hilfe
edit by kevin89: verschoben
bitte das nächste mal melden!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „kevin89“ ()