
|
INFO - FAQ - CC2-Forum - CCPro-Forum |
|
||
|
Vielen Dank Dierk! Leider war ich etwas schneller, oder besser gesagt ein Freund von mir. Ich habe nun folgende provisorische Lösung, die ich aber noch so optimieren werde, das sie Echtzeit tauglich wird :-) Public Class Form1 Dim Wert As String Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load SerialPort1.Open() End Sub Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Wert = SerialPort1.ReadLine() Wert = Wert.Replace(Chr(13), Nothing) 'Das ist die Lösung des Problems gewesen:-) End Sub Private Sub Test(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Wert End Sub End Class |
| Antwort schreiben |