vb 串口通信 代码

VB语言中可以使用SerialPort类来实现串口通信。下面是一个简单的例子：

首先，在VB项目中引入System.IO.Ports命名空间，然后创建一个SerialPort对象，并设置串口的一些参数，如串口号、波特率、数据位数等。

Imports System.IO.Ports

Public Class Form1

    Dim mySerialPort As New SerialPort()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ' 设置串口号
            mySerialPort.PortName = "COM1"
            ' 设置波特率
            mySerialPort.BaudRate = 9600
            ' 设置数据位数
            mySerialPort.DataBits = 8
            ' 设置停止位数
            mySerialPort.StopBits = StopBits.One
            ' 设置奇偶校验位
            mySerialPort.Parity = Parity.None
            ' 设置数据接收事件处理函数
            AddHandler mySerialPort.DataReceived, AddressOf DataReceivedHandler
            ' 打开串口
            mySerialPort.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs)
        ' 串口数据接收处理函数
        Dim sp As SerialPort = CType(sender, SerialPort)
        Dim data As String = sp.ReadExisting()
        ' 进行数据处理操作
        ' ...
    End Sub

End Class

在代码中，通过DataReceived事件处理函数DataReceivedHandler来处理串口数据的接收。DataReceived事件会在串口接收到数据时触发，我们可以在事件处理函数中对接收到的数据进行处理。

需要注意的是，在使用完串口后，要记得关闭串口以释放资源，可以在FormClosed事件中进行关闭操作。

Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
    mySerialPort.Close()
End Sub

以上是一个简单的VB串口通信的代码示例，代码中一些参数可以根据具体的需求进行修改，以适应实际应用中的情况。