VB.net:将动态数据发送到串口

Imports System.IO.Ports

Module Module1
    Sub Main()
        Dim portName As String = "COM1" ' 串口号
        Dim baudRate As Integer = 9600 ' 波特率

        Using serialPort As New SerialPort(portName, baudRate)
            Try
                serialPort.Open() ' 打开串口

                While True
                    Dim data As String = GenerateData() ' 生成动态数据
                    serialPort.WriteLine(data) ' 发送数据到串口
                End While
            Catch ex As Exception
                Console.WriteLine("Error: " & ex.Message)
            Finally
                serialPort.Close() ' 关闭串口
            End Try
        End Using
    End Sub

    Function GenerateData() As String
        ' 生成动态数据的逻辑代码
        Return "Dynamic Data"
    End Function
End Module