Guten Tag und gleich schon mal ein Lob für dieses tolle Forum ,
ich bin Neu hier im Forum und habe auch schon gleich eine Frage zum Thema Schnittstellenprogrammierung.
Mein Projekt besteht darin die Spannungswerte am Pin 0 des Arduinos in einem einstellbaren Zeitintervall welches 100 , 500 oder 1000 ms beträgt abzufragen.
Dies Funktioniert auch gut in dem ich dem Arduino immer ein Char Zeichen (hier 1) Übermittle (mit einem Timertick) und dann den vom Arduino die berechnete Spannung per serial Print übermittelt bekomme.
Programm Arduino:
Soweit so gut. Jetzt zu meinem eigentlichen Problem, mir ist es gelungen diese Daten in einem Textfeld auszugeben. Ich wollte aber nun den
Aktuellen Wert in einer Double Variable speichern und dann als Y Koordinaten in den Chart (Diagramm) übergeben. Wenn jemand Tipps oder eine Lösung
hätte wäre das sehr Toll.
VB Code:
Über eine Antwort würde ich mich sehr Freuen.
ich bin Neu hier im Forum und habe auch schon gleich eine Frage zum Thema Schnittstellenprogrammierung.
Mein Projekt besteht darin die Spannungswerte am Pin 0 des Arduinos in einem einstellbaren Zeitintervall welches 100 , 500 oder 1000 ms beträgt abzufragen.
Dies Funktioniert auch gut in dem ich dem Arduino immer ein Char Zeichen (hier 1) Übermittle (mit einem Timertick) und dann den vom Arduino die berechnete Spannung per serial Print übermittelt bekomme.
Programm Arduino:
Soweit so gut. Jetzt zu meinem eigentlichen Problem, mir ist es gelungen diese Daten in einem Textfeld auszugeben. Ich wollte aber nun den
Aktuellen Wert in einer Double Variable speichern und dann als Y Koordinaten in den Chart (Diagramm) übergeben. Wenn jemand Tipps oder eine Lösung
hätte wäre das sehr Toll.
VB Code:
VB.NET-Quellcode
- Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- Me.Invoke(Sub() ReceiveText())
- End Sub
- Private Sub ReceiveText()
- Dim ToRead As String = SerialPort1.BytesToRead
- If ToRead > 0 Then
- 'Neu empfangene Zeichen an die Empfangspuffer anhängen
- Dim Buffer(ToRead - 1) As Byte
- SerialPort1.Read(Buffer, 0, ToRead)
- TextBox1.Text &= System.Text.Encoding.Default.GetString(Buffer)
- End If
- End Sub
Über eine Antwort würde ich mich sehr Freuen.