上位机软件，尤其是串口监听软件是我们常用到的工具。这里我讲解一下使用VB.NET时，串口控件的使用和串口的配置。

一、认识串口控件，名称SerialPort，调用方式如下图所示。

二、串口常用参数说明：

三、代码例程

1、串口配置代码

Sub PortStart()
'SerialPort1.PortName = COMX'计算机串口设置 X，是串口号。可以使用下列列表框选择。
SerialPort1.BaudRate = 9600 ‘波特率设置
SerialPort1.DataBits = 8 '数据位设置
SerialPort1.StopBits = StopBits.One '停止位设置

SerialPort1.Encoding = Encoding.UTF8

SerialPort1.DtrEnable = True
SerialPort1.ReadTimeout = 500'超时时间
SerialPort1.NewLine = vbCrLf '行结束符合

End Sub

2、计算机串口读取

Sub GetSerialPortNames()
'计算机串口读取
For Each sp As String In My.Computer.Ports.SerialPortNames
CompList.Items.Add(sp) ‘CompList是一个下列框控件，这里修改为你的下列框名称
Next
CompList.Text = CompList.Items(0)
End Sub

3、串口打开

Sub PortOpen()

Try
SerialPort1.Open()
Call PortStart()
Catch ex As UnauthorizedAccessException
MsgBox("串口被占用或串口错误！",MsgBoxStyle.Information,"提示！")
End Try

End Sub

4、串口关闭

Sub PortOpen()

Try
SerialPort1.Close()
Catch ex As Exception
MsgBox("串口未打开或串口异常！","提示！")
End Try
End Sub

5、串口读取数据

Sub ComRec()
Dim Rxstr As String

Try
Rxstr = SerialPort1.ReadLine ’读取一个新行
Application.DoEvents()
ComTxT.AppendText(Rxstr) ‘读取到的数据添加到文本框中显示
Catch e As TimeoutException ’当超时以后，读取串口所有的数据

Rxstr = SerialPort1.ReadExisting
ComTxT.AppendText(Rxstr)
Application.DoEvents()

End Try

6、发送数据

SerialPort.Write，将数据写入串行端口输出缓冲区。

名称 说明 SerialPort.Write (String) 将参数字符串写入输出。

由 .NET Compact Framework 支持。

由 .NET Compact Framework 支持。

由 .NET Compact Framework 支持。

以上就是VB.NET中对串口初始化和常用的参数内容，如果大家不明白，可以跟帖留言。