Public Class Form_Homevision
    Dim SerialInput As String = ""



    ' Public gb_DL1_Buero As Boolean

    Private Sub Form_Homevision_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        Try
            SerialPort1.PortName = Form_Settings.TB_Com.Text
            SerialPort1.BaudRate = 9600
            SerialPort1.Parity = IO.Ports.Parity.None
            SerialPort1.DataBits = 8
            SerialPort1.StopBits = IO.Ports.StopBits.One
            SerialPort1.Handshake = IO.Ports.Handshake.None
            SerialPort1.RtsEnable = True
            SerialPort1.Open()



        Catch ex As Exception
            Form_Settings.Label2.Text = "Verbindung unterbrochen"

        End Try

        If SerialPort1.IsOpen Then

            Form_Settings.Label2.Text = "Verbindung hergestellt"
            SerialPort1.DiscardInBuffer()
            SerialPort1.DiscardOutBuffer()

            SerialPort1.Write("11|22|33|44" + Chr(13))
        End If

        
    End Sub


    '//Daten empfangen von der seriellen Schnittstelle
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        Try
            If SerialPort1.IsOpen Then
                SerialInput = SerialPort1.ReadLine()
                Me.Invoke(New EventHandler(AddressOf DoUpdate))
            End If
        Catch ex As Exception
        End Try
    End Sub

    Public Sub DoUpdate()
        '  Dim b As String
        ' ListBox füllen  
        If StopAufzeichnung = False Then
            Form_Settings.ListBox1.Items.Insert(0, "Recv: " & SerialInput & "   -   " & TimeOfDay & "   -   " & Today)
        End If

        If SerialInput.Contains("|") = True Then
            AuswSerialInp(SerialInput)
        End If


    End Sub


 Public Sub AuswSerialInp(ByVal sInput As String)
        Try




            ' String in Array packen
            Dim sPraefix() As String = {0, 0, 0, 0}
            Dim iPraefix() As Integer = {0, 0, 0, 0}

            ' auf "|" splitten
            sPraefix = sInput.Split(CChar("|")) 'erster Seperator 

            ' Integer Wert umwandeln
            iPraefix(0) = CInt(sPraefix(0))
            iPraefix(1) = CInt(sPraefix(1))
            iPraefix(2) = CInt(sPraefix(2))
            iPraefix(3) = CInt(sPraefix(3))

            '##############################################
            '##############################################
            'Status vom Mikro
            '##############################################
            '##############################################
            Select Case iPraefix(0)



                '79-Heizung ist ein
                Case 79
                    '##############################################
                    ' Raum 
                    '##############################################
                    Select Case iPraefix(1)


                        
                        Case 1
                            '##############################################
                            '##############################################
                            Select Case iPraefix(2)
                                '##############################################
                                
                                Case 1
                                    Select Case iPraefix(3)
                                        ' Aus
                                        Case 0


...
...
...
...