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写下传数据->完毕后关闭串口。

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

详细出处参考：http://www.itqun.net/content-detail/138636.html