1、VB.NET 开发全功能串口调试助手 （含完整工程）小记：VB.NET 的串口通信用了很长时间了，也只用 Write 和 Read 这样的方法，以前都是用这种方式做上位机软件，如此足矣。而前几天研究 GSM 模块时对串口返回的数据总是把握不好，参考开发板附送的例程，发现采用SerialPort 的 DataReceived 事件，可以实现中断触发式的数据接收。于是想到要自己做一个串口调试助手，在实现基本功能的前提下增加一些方便自己调试的功能。经过断断续续的编写，就做成了下面这个小软件：这个软件能够实现串口调试助手的全部功能，经过通信测试，数据接收性能不亚于呼啸工作室的 SComAssistan
2、t2.2，通过加大输入缓冲区，可以满足大量数据接收。VB.NET 的串口通信主要使用 VS 自带的 SerialPort 控件，而不是早先的MSComm，更具有兼容性，这也是很久以前就放弃 VB 改用.NET 的直接原因。该控件的主要方法、属性如下（该数据来自 VS 的 MSDN 帮助库）：方法 说明Open 打开一个新的串行端口连接。Close 关闭端口连接，将 IsOpen 属性设置为 false，并释放内部 Stream 对象。Read 已重载。 从 SerialPort 输入缓冲区中读取。ReadByte 从 SerialPort 输入缓冲区中同步读取一个字节。ReadChar 从 S
3、erialPort 输入缓冲区中同步读取一个字符。ReadExisting 在编码的基础上，读取 SerialPort 对象的流和输入缓冲区中所有立即可用的字节。ReadLine 一直读取到输入缓冲区中的 NewLine 值。ReadTo 一直读取到输入缓冲区中的指定 value 的字符串。Write 已重载。 将数据写入串行端口输出缓冲区。WriteLine 将指定的字符串和 NewLine 值写入输出缓冲区。DiscardInBuffer 丢弃来自串行驱动程序的接收缓冲区的数据。DiscardOutBuffer 丢弃来自串行驱动程序的传输缓冲区的数据。GetPortNames 获取当前计算
4、机的串行端口名称数组。属性 说明PortName 获取或设置通信端口，包括但不限于所有可用的COM 端口。BaudRate 获取或设置串行波特率。DataBits 获取或设置每个字节的标准数据位长度。Parity 获取或设置奇偶校验检查协议。StopBits 获取或设置每个字节的标准停止位数。IsOpen 获取一个值，该值指示 SerialPort 对象的打开或关闭状态。BytesToRead 获取接收缓冲区中数据的字节数。BytesToWrite 获取发送缓冲区中数据的字节数。Encoding 获取或设置传输前后文本转换的字节编码。ReadBufferSize 获取或设置 SerialPor
5、t 输入缓冲区的大小。ReceivedBytesThreshold 获取或设置 DataReceived 事件发生前内部输入缓冲区中的字节数。WriteBufferSize 获取或设置串行端口输出缓冲区的大小。想要通过串口收发数据，就需要对串口进行配置，包括设置端口、波特率、数据格式（如 COM1 端口、9600bps、8 位数据位、无校验位、1 位停止位）等属性，之后通过 Open 方法打开串口。打开串口可通过手动指定，也可以使用GetPortNames 方法获取计算机中存在的串口。如果打开出错，则可能是串口不存在或者已被占用。下面是相应代码：Private Sub SerialPortOp
6、en()On Error GoTo ErrIf SerialPort.IsOpen = True Then SerialPort.Close() 避免重复打开端口SerialPort.Open()LabelCOMStatus.Text = “串口已打开“Exit SubErr: MsgBox(“串口不存在或已被占用！ “ + vbNewLine + ErrorToString() 出现错误，显示错误信息End Sub如果想要在串口中支持中文字符收发，则可在初始化时设置串口控件的编码：SerialPort.Encoding = System.Text.Encoding.Default发送数据通过
7、 Write 方法来完成，由于串口调试助手需要支持文本和 16 进制，需要加入转换代码：Private Sub ButtonSendData_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles ButtonSendData.ClickOn Error GoTo ErrDim outDataBuf As String = TextBoxSend.TextIf outDataBuf = “ Then Exit Sub 如果输入文本框中没有数据则不发送If SerialPort.IsOpen = True
8、Then 判断串口是否打开If HexSendFlag = True Then-十六进制发送-outDataBuf = outDataBuf.Replace(“ “, “) 清除空格与回车outDataBuf = outDataBuf.Replace(vbNewLine, “)十六进制数据位数为偶数，例如：FF 00 15 AC 0DIf outDataBuf.Length Mod 2 0 ThenDim inBytes(inDataLen - 1) As Byte, bytes As ByteDim strHex As String = “SerialPort.Read(inBytes, 0
9、, inDataLen) 读取数据For Each bytes In inBytesstrHex = strHex + String.Format(“0:X2 “, bytes) 格式化成十六进制（不含&H）NextTextBoxRecieve.Invoke(RecieveRefresh, strHex) 调用委托，显示接收的数据BarCountRx.Text = (Val(BarCountRx.Text) + inDataLen).ToString 接收字节计数End IfElse-文本显示-Dim str As Stringstr = SerialPort.ReadExisting 读取全部可用字符串TextBoxRecieve.Invoke(RecieveRefresh, str)BarCountRx.Text = (Val(BarCountRx.Text) + str.Length).ToString 接收字节计数End IfEnd Sub至此就实现了串口收发的基本功能，另外的定时收发（使用 Timer 控件）、文件发送（使用 FileSystem）参见附带的源文件代码。（附件功能完全不给力呀，终于传上来了） SerialPortElf.rar在完成串口调试助手的功能后，还可以根据个人的使用习惯或需求，添加相应的功能。
