《vb串口通信详解》由会员分享，可在线阅读，更多相关《vb串口通信详解（6页珍藏版）》请在金锄头文库上搜索。
1、VB串口通信目前，Visual Basic （简称VB） 已成为WINDOWS 系统开发的主要语言，以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。VB 支持面向对象的程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件。在VB 应用程序可以方便地调用WINDOWS API函数，使得编程效率提高，应用功能增强。利用VB 提供的这些功能，我们可以有三种方法完成串口通信。一种是用VB 提供的具有强大功能的通信控件;另一种方法是调用WINDOWS API 函数，使用WINDOWS 提供的通信函数编写移植性强的应用程序;第三是利用文件的输入/ 输出完成，该方法简便易行
2、，但有一定的局限性。一、利用通信控件（MSCOMM） 完成串口通信VB 提供了通信控件MSCOMM，文件名为MSCOMM. VBX。该控件可设置串行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触发OnComm事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent 属性来了解通信的情况，进行收发数据的处理。每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个通信控件。1、通信控件的事件及基本属性（1）事件OnComm：通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。通过对CommEvent 属性的判
3、断可知当前的通信错误和事件，分别对每个CommEvent 值进行编程就完成了对各个错误和事件的处理。如：CommEvent = MSCOMMEVSEND 表示发送事件。这些信息可从VB 提供的常量文件CONSTANT. TXT中查出。（2）属性CommPort ：设置通信控件与哪个串口相连接，设置并返回通信口号。Setting ：设置通信的信息格式，为字符型。顺序为：波特率、校验、数据位、停止位。PortOpen ：布尔型、开关通信口。InputLen ：从接收缓冲区读取字符个数。Input ，Output ：读取接收缓冲区或写入发送缓冲区字符。以上五种属性对串口完成基本的设置和操作，下面的三
4、种属性是描述如何利用VB 提供的事件驱动机制来实现通信。CommEvent ：返回通信过程中产生的错误信息及事件，了解通信状况。SThreshold ：设置并返回不触发OnComm事件时发送缓冲区被允许的最少字符数。当缓冲区的字符少于设置的值时，则触发OnComm事件，并把CommEvent 设为MSCOMMMEVSEND。当SThreshold = 0 则禁止发送触发OnComm 事件，当SThreshold = 1 则发送缓冲区为空时就触发OnComm事件。利用这一属性，就可完成发送数据后的一系列操作。如：对刚发送的数据进行处理，当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、
5、挂机等操作。RThreshold ：设置并返回不触发OnComm事件时接收缓冲区被允许的最多字符数。当缓冲区的字符多于设置的值时，则触发OnComm 事件，并把CommEvent 设为MSCOMMEVRECEIVE，当RThreshold = 0 则禁止接收触发OnComm 事件，当RThreshold = 1 则接收缓冲区有一个或更多字符时就触发OnComm事件。利用这一属性，就可完成对串口接收数据的处理。2、利用通信控件的实例Sub Form1 load （）form1. show设置COM1comm1. commport = 1comm1. Setting = 9600 ，o ，8 ，1
6、 波特率:9600 奇校验，8位数据，1 位停止位comm1. Inputlen = 0 读取接收缓冲区的所有字符comm1. OutBufferSize = 512 设置发送缓冲区为512 字节comm1. InBufferSize = 512 设置接收缓冲区为512 字节comm1. SThreshold = 0 禁止发送事件comm1. RThreshold = 1 每一个字符到接收缓冲区都触发接收事件设置COM2comm2. commport = 2comm2. Setting = 2400 ，e ，8 ，1 波特率:2400 偶验，8 位数据，1 位停止位comm2. Inputle
7、n = 0 读取接收缓冲区的所有字符comm2. OutBufferSize = 512 设置发送缓冲区为512 字节comm2. InBufferSize = 512 设置接收缓冲区为512 字节comm2. SThreshold = 1 发送缓冲区空触发发送事件comm2. RThreshold = 0 禁止接收事件打开COM1 ，COM2comm1. Portopen = Truecomm2. Portopen = TrueTimer1. interval = 5000End SubSub Comm1 OnComm（）Dim Inbuff as stringDim i as intege
8、r ，n as integer ，t as integerSelect Case Comm1. CommEvencase MSCOMMEVRECEIVEInbuff = Comm1. Inputn = len （ Inbuff）For i = 1 to nt = Asc （Mid （ Inbuff ，i ，1） ） or &HFFprint fNext iEnd SelectEnd SubSub Comm2 OnComm（）Select Case Comm2. CommEventCase MSCOMMEVSENDPrint timeEnd SelectEnd SubSub Timer1Time
9、r （）Comm2. output = Second （Now）End sub二、通过调用API 函数实现通信以上说明了用VB 提供的控件实现通信的方法，只要理解了VB 控件的机制就很容易完成对串口的操作，但可移植性差。但VB 可以很容易调用API 函数实现通信。1、VB 对API 的调用VB 使用动态链接库DLL（Dynamic Link Libraries） 的能力，大大扩展了其功能。WINDOWS 本身提供了API 函数包括三大动态链接库： KERNEL 库、GDI 库、USER 库，通过VB 用户可以直接调用这些库中的函数。调用之前，必须首先在VB 中声明。该声明可为模块级或窗体级，当
10、作为模块级声明时，其作用域为所有FORM和MODULE，而作为窗体级声明时其作用域为该声明所在的FORM。VB 调用DLL 的格式：Declare Sub 过程名Lib库名Alias别名 （ ByVal 参数As 类型）Declare Function 函数名Lib库名Alias别名 （ ByVal参数As 类型） As 类型在声明中：DECLARE 表示声明DLL 中的函数，当声明是不具有返回值的过程时用SUB 关键字，而如果调用的函数具有返回值，则必须用FUNCTION 关键字将其声明为函数并在声明语句的最后用AS 指明函数返回值的类型。LIB 关键字表示当前声明的过程或函数是库名所指定的
11、库中函数而非VB本身的函数。库名，就是对应动态链接库的名称，其中通信函数在USER 库中。ByVal 关键字将原参数数据类型一一对应到VB 类型中。WINDOWS 的HELP 文件WINSDK. HLP 中包含了完整的WINDOWS API 函数信息，可用该文件查看联机函数、数据结构及错误信息。2、API 提供的通信函数为了方便说明，我们将有关通信的函数及相关的数据结构放在全局模块中，文件名为COMM.BAS（见API 编程函数实例） 。以下是这些函数的基本介绍：（1）OpenComm（ IpComName As String ，wInQueue As Inte-ger ，wOutQueue
12、As Integer）IpComName ：设备名，以“COMn”的形式来说明，n 为设备号;wInQueue 、wOutQueue ：分别以字节为单位说明发送、接收缓冲区的大小。该函数调用成功返回打开的设备号，否则返回一负数代表错误信息码。（2）SetCommState （ IpDCB As DCB）IpDCB ：是DCB 结构存放设备所希望的通信设置（DCB 结构如COMM.BAS 中所示） ，其中DCB 的ID 成员必须标识该设备。如果函数调用成功返回0 ;否则，返回值小于0。（3）ReadComm（nCid As Integer ， IpBuf As String ，nSize As
13、Integer）WriteComm（nCid As Integer ， IpBuf As String ，nSize As In-teger）这是用来对通信设备进行读写的函数，nCid ：说明要读写的通信设备号， IpBuf ：为读写缓冲区，nSize ：为要读写的字节数。如果读写成功，返回读写的字节数，否则是小于0 的值，并且其绝对值为读写的字节数。（4）Closecomm（nCid As Integer）该函数关闭nCid 所指定的通信设备，并且释放分配给设备的发送，接收缓冲存储器，调用成功返回0 ;否则，返回值小于0。（5）BuildCommDCB（ IpDef As String ，
14、IpDCB As DCB）lpDef ： 为一字符串指定设备控制信息，此字符串具有MS-DOS 中MODE 命令所使用的参数形式。IpDCB ：为一DCB数据结构。该函数将IpDef 字符串转换成串行设备控制块（DCB） 代码。（6）GetCommError （nCid As Integer ， IpStat As COMSTAT）该函数检取nCid 指定的设备最近的错误值和当前状态，IpStat ：是COMSTAT结构，具体形式如COMM.BAS 中所定义的。返回值为COMM.BAS 中带CE- 的常量的某种组合。3. 用API 函数编程实例这个例子是一仿真发送机，将从键盘输入的字符发送给C
15、OM端口。在FORM中加一按钮COMMAND1 来关闭通信口。Type DCBId As String 3 1BaudRate As IntegerByteSize As String 3 1Parity As String 3 1StopBits As String 3 1RlsTimeout As IntegerCtsTimeout As IntegerDsrTimeout As IntegerBits1 As String 3 1Bits2 As String 3 1XonChar As String 3 1XoffChar As String 3 1XonLim As IntegerXoffLim As IntegerPeChar As String 3 1EofChar As String 3 1EvtChar As String 3 1TxDelay As IntegerEnd TypeType COMSTATBits As String 3 1cbInQue As IntegercbOutQue As IntegerEnd Type
