简单的VB串口通讯入门.docVIP

我的VB串口读写入门首先需要的是在VB中增加一个microsoft?? comm?? control?? 6.0的控件。步骤就是：工程）-部件-点击microsoft?? comm?? control?? 6.0”点击前面的矩形框，确定。 先介绍一下必须熟悉几个属性： CommPort 设置并返回通讯端口号。Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。PortOpen 设置并返回通讯端口的状态。也可以打开和关闭端口。Input 从接收缓冲区返回和删除字符。Output 向传输缓冲区写一个字符串。 然后给大家一个读串口的小例程： Private Sub Form_Load()Mscomm1.CommPort = 1 选择com1Mscomm1.Settings = 9600,N,8,1 设置波特率为，没有奇偶校验，8位数据位，1位结束位Mscomm1.InputLen = 0 读取全部的输入缓冲区If Mscomm1.PortOpen = False Then Mscomm1.PortOpen = True 端口打开Mscomm1.RThreshold = 2 Mscomm1.SThreshold = 2 End Sub Private Sub Mscomm1_OnComm() 所有的通讯事件都可以激发MSComm1控件的OnComm事件Select Case Mscomm1.CommEvent Case comEvReceive 此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理Text4 = Text4 Mscomm1.Input Case comEvSend 此处的代码可以进行当串口的发送缓冲区里有SThreshold个字符的处理End Select End Sub Unload 事件是当窗体从屏幕上删除时发生。将 cancel 设置为任何非零的值可防止窗体被删除，但不能阻止其它事件，诸如从 Microsoft Windows 操作环境中退出等。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写下传数据-完毕后关闭串口。