Serielle Schnittstelle RS232 VBA auslesen mithilfe Visual Studio

Module Module1

    Sub SendSerialData(ByVal data As String)

        ' Send strings to a serial port.

        Using com4 As IO.Ports.SerialPort =

            My.Computer.Ports.OpenSerialPort("COM4")

            com4.WriteLine(data)

            Console.WriteLine("es wurde folgender Befehl übergeben")

            Console.WriteLine(data)

            com4.Close()

        End Using

    End Sub

    Function ReceiveSerialData() As String

        ' Receive strings from a serial port.

        Dim returnStr As String

        Dim com4 As IO.Ports.SerialPort = Nothing

        Try

            com4 = My.Computer.Ports.OpenSerialPort("COM4")

            If com4.IsOpen Then

                Console.WriteLine("Port wurde geöffnet")

            End If

            Do

                Console.WriteLine("Einlesen..")

                Dim Incoming As String = com4.ReadLine() ' Ab Hier wird nichts mehr ausgegeben.. Keine Daten erhalten

                com4.ReadTimeout = 10

                If Incoming Is Nothing Then

                    Console.WriteLine("Keine Daten erhalten")

                    Exit Do

                Else

                    returnStr &= Incoming & vbCrLf

                    Console.WriteLine(Incoming)

                End If

            Loop

        Catch ex As TimeoutException

            returnStr = "Error: Serial Port read timed out."

        Finally

            If com4 IsNot Nothing Then com4.Close()

        End Try

        Return returnStr

    End Function

    Sub Main()

        SendSerialData("[:]SYSTem[<channel>]:VERSion?") 'Beispiel um irgendwas vom Netzteil zu erhalten 

        Console.WriteLine(ReceiveSerialData())

    End Sub

End Module