http://www.jackxiang.com/index.php zh-cn http://www.jackxiang.com/post// jack <xdy108@126.com> Mon, 03 Nov 2008 06:05:23 +0000 http://www.jackxiang.com/post//
首先需要的是在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.jackxiang.com/post//#blogcomment <user@domain.com> Thu, 01 Jan 1970 00:00:00 +0000 http://www.jackxiang.com/post//#blogcomment