Thomas Heldt´s

Nun können wir den Programmcode erstellen...

 

 

 

Public Class Form1
' Eine Programmweit gültige Variable dimensionieren
Dim daten As String

 

Private Sub GetSerialPortNames()

   ' Alle im PC vorhandenen COM-Ports suchen und in die ComboBox eintragen

   For Each sp As String In My.Computer.Ports.SerialPortNames

      ComboBox1.Items.Add(sp)

   Next

End Sub

 

Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed

   ' Wenn beim Beenden noch der COM-Port geöffnet ist diesen schließen

   If SerialPort1.IsOpen Then

      SerialPort1.Close()

   End If

End Sub

 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   ' In die ComboBox einen Dummy-Wert eintragen um später feststellen zu können ob ein Port ausgewählt ist

   ComboBox1.Items.Add("-----")

 

   ' Sub aufrufen die alle COM-Ports ermittelt und in die ComboBox einträgt

   GetSerialPortNames()

 

  ' Wenn min. ein COM-Port gefunden wurde die Anzeige in der ComboBox auf den ersten gefundenen COM-Port stellen

   If ComboBox1.Items.Count > 1 Then

      ComboBox1.SelectedIndex = 1

   Else

      ComboBox1.SelectedIndex = 0

   End If

End Sub

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

   ' Wenn noch nicht gestartet und ein COM-Port ausgewählt ist Übertragung versuchen zu starten  

   If Button1.Text = "&Start" And ComboBox1.Text <> "-----" Then

      SerialPort1.PortName = ComboBox1.text

   

      Try

         SerialPort1.Open()

      Catch ex As Exception

         MessageBox.Show(ex.Message)

         Exit Sub

      End Try     

 

      Button1.Text = "&Stop"

   ' Wenn Übertragung läuft Übertragung beenden (COM-Port schließen)

   Else

      If SerialPort1.IsOpen = True Then

         SerialPort1.Close()

      End If

 

      Button1.Text = "&Start"

   End If

End Sub

 

Private Sub SerialPort1_DataReceived(sender As Object, e As IO.Ports.SerialDataReceivedEventArgs) Handles

   SerialPort1.DataReceived Me.Invoke(Sub() ReceivedText(SerialPort1.ReadExisting))

End Sub

 

Private Sub ReceivedText(ByVal [wert] As String)

   Dim startpos As Integer

   Dim endpos As Integer

   Dim wertin As Double

   Dim ausgabe As String

 

   daten &= wert.Replace(vbCrLf, "")

   startpos = daten.IndexOf("*")

   endpos = daten.IndexOf("#")

 

   If startpos >= 0 And endpos >= 0 And endpos > startpos Then

      ausgabe = Replace(daten.Substring(startpos + 1, endpos - 1), "#", "")

      wertin = CDbl(ausgabe.Substring(0, ausgabe.Length - 1).Replace(".", ","))

      Label2.Text = FormatNumber(wertin, 1) & " °C"

      daten = ""

   End If

End Sub

 

End Class