向东博客 专注WEB应用 构架之美 --- 构架之美，在于尽态极妍 | 应用之美，在于药到病除|赢在IT，Playin' with IT,Focus on Killer Application,Marketing Meets Technology.

今天说下利用VB如何进行串口读写。

首先需要的是在VB中增加一个microsoft   comm   control   6.0的控件。步骤就是：工程->部件->点击microsoft   comm   control   6.0->确定。

先介绍一下必须熟悉几个属性：

CommPort 设置并返回通讯端口号。
Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。
PortOpen 设置并返回通讯端口的状态。也可以打开和关闭端口。
Input 从接收缓冲区返回和删除字符。
Output 向传输缓冲区写一个字符串。

然后利用给大家一个读串口的小例程：

Private Sub Form_Load()
Mcom.CommPort = 1 '选择com1
Mcom.Settings = "115200,N,8,1" '设置波特率为115.2kpbs，没有奇偶校验，8位数据位，1位结束位
Mcom.InputLen = 0 '读取全部的输入缓冲区
If Mcom.PortOpen = False Then Mcom.PortOpen = True '端口打开
Mcom.RThreshold = 2
Mcom.SThreshold = 2
End Sub

Private Sub Mcom_OnComm() '所有的通讯事件都可以激发MSComm1控件的OnComm事件
Select Case Mcom.CommEvent
Case comEvReceive'此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理
    Text4 = Text4 & Mcom.Input
Case comEvSend'此处的代码可以进行当串口的发送缓冲区里有SThreshold个字符的处理
  
End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Mcom.PortOpen = True Then Mcom.PortOpen = False
End Sub

利用上面的小程序，我们就可以通过读到外设给串口发出的数据了。

如果要发数据到串口就更简单了:

Private Sub SendC_Click()
    Dim sendbuff as string
    sendbuff = Text3
    Mcom.Output = sendbuff
End Sub

这样就可以将Text3中的数据发送到串口了。这就是一个最简单的串口读写例程了，操作的过程就是：初始化串口（端口、波特率等）－>打开端口－>利用接收buff读上传数据+发送buff写下传数据->完毕后关闭串口。

因为我也是最近在学习这个串口的读写，还没有深入下去。希望这个小例程能够帮到那些想要学习串口读写的人。

作者：jackxiang@向东博客 专注WEB应用 构架之美 --- 构架之美，在于尽态极妍 | 应用之美，在于药到病除
地址：https://jackxiang.com/post/1349/
版权所有。转载时必须以链接形式注明作者和原始出处及本声明！