VB串口通信详解培训讲学

1、VB 串 口 通 信 详 解VB串口通信目前，Visual Basic （简称VB）已成为WINDOWS系统开发的主要语言，以 其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青 睐。VB支持面向对象的程序设计，具有结构化的事件驱动编程模式并可以使 用无限扩增的控件。在VB应用程序可以方便地调用 WINDOWS API函数，使得编程效率提高，应用功能增强。利用VB提供的这些功能，我们可以有三种方法完成串口通信。一种是用VB提供的具有强大功能的通信控件；另一种方法是调用 WINDOWS API函数，使用 WINDOWS提供的通信函数编写移植性强的应用程序；第三是利用文件的输入/

2、输出完成，该方法简便易行，但有一定的局限性。一、利用通信控件（MSCOMM）完成串口通信VB提供了通信控件 MSCOMM，文件名为MSCOMM. VBX。该控件可设置串 行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设 置。在通信过程中可以触发 On Comm事件，在该事件过程进行数据检验处理及 检错，还可以通过编程访问 CommEve nt属性来了解通信的情况，进行收发数据 的处理。每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个 通信控件。1、通信控件的事件及基本属性（1）事件On Com m：通信控件只提供了一个事件，该事件的触发可以对串口的通信事件 及错误

3、进行处理。通过对 CommEve nt属性的判断可知当前的通信错误和事件， 分别对每个CommEvent值进行编程就完成了对各个错误和事件的处理。如：CommEve nt = MSCOMM EV SEND表示发送事件。这些信息可从 VB提供 的常量文件CONSTANT. TXT中查出。(2) 属性CommPort :设置通信控件与哪个串口相连接，设置并返回通信口号。Sett ing：设置通信的信息格式，为字符型。顺序为：波特率、校验、数据位、 停止位。PortOpen :布尔型、开关通信口。In putLen :从接收缓冲区读取字符个数。In put，Output :读取接收缓冲区或写入发送缓

4、冲区字符。以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB提供的事件驱动机制来实现通信。CommEve nt :返回通信过程中产生的错误信息及事件，了解通信状况。SThreshold :设置并返回不触发On Comm事件时发送缓冲区被允许的最少字符 数。当缓冲区的字符少于设置的值时，则触发 On Comm事件，并把CommEvent 设为 MSCOMMM EV SEND。当 SThreshold = 0 则禁止发送触 发On Comm事件，当SThreshold = 1则发送缓冲区为空时就触发 On Comm事 件。利用这一属性，就可完成发送数据后的一系列操作。如：对刚

5、发送的数据 进行处理，当串口是和 MODEM通信时，发送完数据后可进行拆除线路联接、 挂机等操作。RThreshold :设置并返回不触发On Comm事件时接收缓冲区被允许的最多字符 数。当缓冲区的字符多于设置的值时，则触发 On Comm事件，并把CommEvent 设为 MSCOMM EV RECEIVE，当 RThreshold = 0 则禁止接收触发On Comm事件，当RThreshold = 1则接收缓冲区有一个或更多字符时就触发On Comm事件。利用这一属性，就可完成对串口接收数据的处理。2、利用通信控件的实例Sub Forml load （）forml. show'

6、设置COM1comm1. commport = 1comm1. Setting = " 9600 , o , 8 , 1"'波特率9600奇校验，8位数据，1位停止位comm1. I nputle n = 0 '读取接收缓冲区的所有字符comm1. OutBufferSize = 512 '设置发送缓冲区为512字节comm1. InBufferSize = 512 '设置接收缓冲区为 512字节comm1. SThreshold = 0 '禁止发送事件comm1. RThreshold = 1 '每一个字符到接收缓冲区都触发

7、接收事件'设置COM2comm2. commport = 2comm2. Setting = "2400，e，8， 1"'波特率2400偶验，8位数据，1位停止位comm2. I nputle n = 0 '读取接收缓冲区的所有字符comm2. OutBufferSize = 512 '设置发送缓冲区为512字节comm2. InBufferSize = 512 '设置接收缓冲区为 512字节comm2. SThreshold = 1 '发送缓冲区空触发发送事件comm2. RThreshold = 0 '禁止接收事件

8、'打开COM1，COM2comm1. Portope n = Truecomm2. Portope n = TrueTimerl. i nterval = 5000End SubSub Comml On Comm ()Dim Inbuff as stri ngDim i as integer , n as integer, t as integerSelect Case Comm1. CommEve ncase MSCOMMEV RECEIVEInbuff = Comm1. In putn = len ( In buff)For i = 1 to nt = Asc (Mid ( In

9、buff , i , 1) ) or &HFFprint fNext iEnd SelectEnd SubSub Comm2 On Comm ()Select Case Comm2. CommEve ntCase MSCOMM EV SENDPrint timeEnd SelectEnd SubSub Timer1Timer ()Comm2. output = Second (Now)End sub二、通过调用API函数实现通信VB控件的机制就以上说明了用VB提供的控件实现通信的方法，只要理解了很容易完成对串口的操作，但可移植性差。但VB可以很容易调用API函数实现通信。1、VB对AP

10、I的调用VB使用动态链接库 DLL （Dynamic Link Libraries ）的能力，大大扩展了其功 能。WINDOWS本身提供了 API函数包括三大动态链接库：KERNEL库、GDI库、USER库，通过VB用户可以直接调用这些库中的函数。调用之前，必须 首先在VB中声明。该声明可为模块级或窗体级，当作为模块级声明时，其作 用域为所有FORM和MODULE，而作为窗体级声明时其作用域为该声明所在 的 FORM。VB调用DLL的格式：Declare Sub过程名Lib 库名Alias 别名了 （ ByVal参数As类型）Declare Function 函数名 Lib 库名Alias 别

11、名'（ByVal 参数 As 类型）As 类 型在声明中：DECLARE表示声明DLL中的函数，当声明是不具有返回值的过程 时用SUB关键字，而如果调用的函数具有返回值，则必须用FUNCTION关键字将其声明为函数并在声明语句的最后用 AS指明函数返回值的类型。LIB关键字表示当前声明的过程或函数是库名所指 定的库中函数而非VB本身的函数。库名，就是对应动态链接库的名称，其中 通信函数在USER库中。ByVal关键字将原参数数据类型一一对应到 VB类型 中。WINDOWS的HELP文件 WINSDK. HLP中包含了完整的 WINDOWS API函数 信息，可用该文件查看联机函数、数据

12、结构及错误信息。2、API提供的通信函数为了方便说明，我们将有关通信的函数及相关的数据结构放在全局模块中，文件名为COMM.BAS （见API编程函数实例）。以下是这些函数的基本介绍：（1）Ope nComm （ IpComName As Stri ng，win Queue As In te-ger，wOutQueueAs in teger）IpComName :设备名，以“COMn”的形式来说明，n为设备号;win Queue、wOutQueue :分别以字节为单位说明发送、接收缓冲区的大小。该函数调用成 功返回打开的设备号，否则返回一负数代表错误信息码。（2）SetCommState（ I

13、pDCB As DCB）IpDCB :是DCB结构存放设备所希望的通信设置（DCB结构如COMM.BAS中所示），其中DCB的ID成员必须标识该设备。如果函数调用成功返回0 ;否则，返回值小于0。（3） ReadComm （nCid As Integer， IpBuf As String ，nSize As Integer）WriteComm （ nCid As Integer， IpBuf As String ， nSize As In-teger）这是用来对通信设备进行读写的函数，n Cid :说明要读写的通信设备号，IpBuf :为读写缓冲区，nSize :为要读写的字节数。如果读写成功

14、，返回读写的字节数，否则是小于0的值，并且其绝对值为读写的字节数。（4）Closecomm（ nCid As Integer）该函数关闭nCid所指定的通信设备，并且释放分配给设备的发送，接收缓冲存储器，调用成功返回0 ;否则，返回值小于0。（5）BuildCommDCB （ IpDef As String， IpDCB As DCB）IpDef :为一字符串指定设备控制信息，此字符串具有 MS-DOS中MODE命令 所使用的参数形式。IpDCB :为一 DCB数据结构。该函数将IpDef字符串转换 成串行设备控制块（DCB）代码。(6) GetCommError (nCid As Integ

15、er， IpStat As COMSTAT)该函数检取nCid指定的设备最近的错误值和当前状态，IpStat :是 COMSTAT结构，具体形式如COMM.BAS中所定义的。返回值为COMM.BAS 中带 CE-的常量的某种组合。3.用API函数编程实例这个例子是一仿真发送机，将从键盘输入的字符发送给COM 端口。在 FORM中加一按钮COMMAND1来关闭通信口Type DCBId As Stri ng 3 1 BaudRate As In teger ByteSize As Stri ng 3 1 Parity As Stri ng 3 1 StopBits As Stri ng 3 1

16、RlsTimeout As In teger CtsTimeout As In teger DsrTimeout As In teger Bits1 As Stri ng 3 1 Bits2 As Stri ng 3 1 Xon Char As Stri ng 3 1 XoffChar As Stri ng 3 1 Xon Lim As In teger XoffLim As In teger PeChar As Stri ng 3 1 EofChar As Stri ng 3 1 EvtChar As Stri ng 3 1 TxDelay As In teger End Type Type

17、 COMSTAT Bits As Stri ng 3 1 cbln Que As In teger cbOutQue As In tegerEnd TypeDeclare Fun cti on Open Comm Lib "User" ByVal IpComName AsStri ng , ByVal win Queue As In teger , ByVal wOutQueue As In teger) As In tegerDeclare Function SetCommState Lib"User" ( IpDCB As DCB )As In te

18、gerDeclare Function ReadComm Lib "User" ByVal nCid As Integer , ByVal IpBufAs String , ByVal nSize As Integer) As IntegerDeclare Function WriteComm Lib "User" ByVal nCid As Integer , ByVal IpBufAs String , ByVal nSize As Integer) As IntegerDeclare Function Closecomm Lib "Use

19、r" ByVal nCid As Integer) As IntegerDeclare Function BuildCommDCB Lib "User" (ByVal IpDef AsString , IpDCB As DCB ) As IntegerDeclare Function GetCommError Lib "User" (ByVal nCid AsInteger , IpStat As COMSTAT ) As IntegerGlobal IpDCB As DCBGlobal nCid As IntegerSub Forml loa

20、d ()Dim comset As Stri ngcomset = “ COM2"nCid = OpenComm (comset, 512 , 512)'打开COM2 设置接收，发送缓冲区为512字节If nCid < 0 Then '处理错误MsgBox “不能打开COM:" + Str (nCid) + Error Num2ber :" + Str (nCid), 16endend ifComma ndl. Cap ti on = “关闭通信口，设置串口 DCB设备控制块 comset = COM2 :9600 , n , 8 , 1&q

21、uot;If ( BuildCommDCB (comset , LpDCB) ) ThenMsgBox “不能建立COMM DCB" , 16endend ifLpDCB. Id = Chr (n Cid)If ( SetCommState( LpDCB) ) Then '设置串口状态MsgBox"不能设置串口状态",16enden difEnd SubSub Form1-keyPress (keyAscii As Integer)Dim nsend As integer, x As integerDim Lpstate As COMSTAT '通

22、信状态块Static inbuff as stri ngin buff = imbuff + Chr ( KeyAscii)x = GetCommError (ncid , Lpstate)'读取当前串口错误或状态if lpstate. cbOutQue < 512 The n'送缓冲区有空间否？Nse nd = WriteComm (n Cid , in buff , Len (in buff)'发送nbuffif Nsend < = 0 then Nse nd = - Nse nd'忽略错误in buff = Mid (in buff , Nse

23、 nd + 1)'清除已发送的字符end ifend ifEnd SubSub Command1-Click ()Dim Nclose As in tegerNclose = CloseComm （nCid）If Nclose < 0 The nMsgBox “不能关闭COMM 口 :" + Str （nCid）, 16endelsencid = 0end ifCmma nd1. Caption = “通信已关闭”End Sub三、用文件输入/输出技术完成通信用VB提供的以上两种方法已足以应付各种串行通信的问题。另外还可以用文 件输入/输出的方法完成简单的通信应用程序，如拨号。它用我们非常熟悉的BASIC 输入/ 输出指令，如：OPEN、CLOSE、GET、PUT（PRINT、WRI