Hallo,
ich habe mich in letzter Zeit viel mit VB auseinandergesetzt, man muss dazu sagen bis vor ein paar Wochen hatte ich nichtmal eine Ahnung was VB ist.
Ich muss derzeit ein Projekt machen und komme einfach nicht mehr weiter. Zum Projekt:
Ich soll eine serielle Schnittstelle auslesen und diesen Wert dann weiterverarbeiten. Mittlerweile habe ich es hinbekommen den Wert in einer RichtTextBox darzustellen.
Allerdings passt er noch nicht so ganz. Mit der seriellen Schnittstelle ist ein Datenlogger für Temperatur angeschlossen. Dieser lässt sich mit einfachen ASCII-Zeichen steuern. In meinem Fall ist die Taste "D" das Zeichen um die aktuelle Temperatur zu erhalten. Jetzt zu meiner Frage:
Der Wert der aus der Schnittstelle kommt ist bspw. bei 21,45 Grad und angezeigt wird mir dann 2145. Wie kann ich zum einem ein Komma beim angezeigten Wert hinzufügen und wie kriege ich es hin das immer nur der aktuelle Wert in der RichTextBox steht?
Ich würde mich über Hilfe freuen da ich anscheinend selber zu blöd bin.
Mit freundlichen Grüßen
ich habe mich in letzter Zeit viel mit VB auseinandergesetzt, man muss dazu sagen bis vor ein paar Wochen hatte ich nichtmal eine Ahnung was VB ist.
Ich muss derzeit ein Projekt machen und komme einfach nicht mehr weiter. Zum Projekt:
Ich soll eine serielle Schnittstelle auslesen und diesen Wert dann weiterverarbeiten. Mittlerweile habe ich es hinbekommen den Wert in einer RichtTextBox darzustellen.
Allerdings passt er noch nicht so ganz. Mit der seriellen Schnittstelle ist ein Datenlogger für Temperatur angeschlossen. Dieser lässt sich mit einfachen ASCII-Zeichen steuern. In meinem Fall ist die Taste "D" das Zeichen um die aktuelle Temperatur zu erhalten. Jetzt zu meiner Frage:
Der Wert der aus der Schnittstelle kommt ist bspw. bei 21,45 Grad und angezeigt wird mir dann 2145. Wie kann ich zum einem ein Komma beim angezeigten Wert hinzufügen und wie kriege ich es hin das immer nur der aktuelle Wert in der RichTextBox steht?
Ich würde mich über Hilfe freuen da ich anscheinend selber zu blöd bin.
Mit freundlichen Grüßen
Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
- SerialPort1.PortName = "COM14"
- SerialPort1.BaudRate = 19200
- SerialPort1.Parity = IO.Ports.Parity.None
- SerialPort1.NewLine = vbCr
- SerialPort1.Encoding = System.Text.Encoding.UTF8
- SerialPort1.Open()
- End Sub
- Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
- Me.SerialPort1.Write("D")
- End Sub
- Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
- Me.Invoke(Sub() Me.TextBox1.AppendText(Me.SerialPort1.ReadExisting))
- End Sub