SerialPort控件

SerialPort常用属性、方法和事件

名称说明

BaseStream获取SerialPort对象的基础Stream对象。BaudRate获取或设置串行波特率。

BreakState获取或设置中断信号状态。

BytesToRead获取接收缓冲区中数据的字节数。

BytesToWrite获取发送缓冲区中数据的字节数。

CDHolding获取端口的载波检测行的状态。

Container 获取IContainer，它包含Component。

（从Component继承。）

CtsHolding获取“可以发送”行的状态。

DataBits获取或设置每个字节的标准数据位长度。

DiscardNull获取或设置一个值，该值指示Null 字节在端口和接收缓

冲区之间传输时是否被忽略。

DsrHolding获取数据设置就绪(DSR) 信号的状态。

DtrEnable获取或设置一个值，该值在串行通信过程中启用数据终端

就绪(DTR) 信号。

Encoding获取或设置传输前后文本转换的字节编码。Handshake获取或设置串行端口数据传输的握手协议。

IsOpen获取一个值，该值指示SerialPort 对象的打开或关闭状

态。

NewLine获取或设置用于解释ReadLine和WriteLine方法调用

结束的值。

Parity获取或设置奇偶校验检查协议。

ParityReplace获取或设置一个字节，该字节在发生奇偶校验错误时替换

数据流中的无效字节。

PortName获取或设置通信端口，包括但不限于所有可用的COM 端

口。

ReadBufferSize获取或设置SerialPort 输入缓冲区的大小。

ReadTimeout获取或设置读取操作未完成时发生超时之前的毫秒数。

ReceivedBytesThreshold获取或设置DataReceived事件发生前内部输入缓冲区

中的字节数。

RtsEnable获取或设置一个值，该值指示在串行通信中是否启用请求

发送(RTS) 信号。

Site 获取或设置Component 的 ISite。

（从 Component 继承。）

StopBits获取或设置每个字节的标准停止位数。WriteBufferSize获取或设置串行端口输出缓冲区的大小。WriteTimeout获取或设置写入操作未完成时发生超时之前的毫秒数

代码例程

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 puter.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("串口被占用或串口错误！", rmation, "提示！")

End Try

End Sub

4、串口关闭

Sub PortOpen()

Try

SerialPort1.Close()

Catch ex As Exception

MsgBox("串口未打开或串口异常！", rmation, "提示！") 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

End Sub

6、发送数据

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

名称说明

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

由 .NET Compact Framework 支持。

SerialPort.Write (Byte[], Int32, Int32)将指定数量的字节写入输出缓冲区中的指定偏移量处。

由 .NET Compact Framework 支持。

SerialPort.Write (Char[], Int32, Int32)将指定数量的字符写入输出缓冲区中的指定偏移量处。

由 .NET Compact Framework 支持。