《VB串口通讯方式解释》由会员分享，可在线阅读，更多相关《VB串口通讯方式解释（8页珍藏版）》请在金锄头文库上搜索。
1、目前,Visual Basic (简称 VB) 已成为 WINDOWS 系统开发的主要语言,以其高效、简单易学 及功能强大的特点越来越为广大程序设计人员及用户所青睐。VB 支持面向对象的程序设计,具 有结构化的事件驱动编程模式并可以使用无限扩增的控件。在 VB 应用程序中可以方便地 调用 WINDOWS API 函数,使得编程效率提高,应用功能增强。利用 VB 提供的这些功能,我们可以有三种方法完成串口通信。一种是用 VB 提供的具有强 大功能的通信控件;另一种方法是调用 WINDOWS API 函数,使用 WINDOWS 提供的通信函数编 写移植性强的应用程序;第三是利用文件的输入/ 输出完
2、成,该方法简便易行,但有一定的局 限性。一、利用通信控件(MSCOMM) 完成串口通信 VB 提供了通信控件 MSCOMM,文件名为 MSCOMM. VBX。该控件可设置串行通信的数据发送和 接收,对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触发 OnComm 事件,在该事件过程进行数据检验处理及检错,还可以通过编程访问 CommEvent 属性来了解 通信的情况,进行收发数据的处理。每个通信控件对应一个串口,如果要访问多个通信口,则 要设计多个通信控件。1. 通信控件的事件及基本属性 (1) 事件 OnComm:通信控件只提供了一个事件,该事件的触发可以对串口的通信事件及错
3、误进行处理。 通过对 CommEvent 属性的判断可知当前的通信错误和事件,分别对每个 Com2mEvent 值进行 编程就完成了对各个错误和事件的处理。如: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 事件。利用这一属性,就可完成发
5、送数据后的一系列操作。如:对刚发送的数据 进行处理,当串口是和 MODEM 通信时,发送完数据后可进行拆除线路联接、挂机等操作。 RThreshold :设置并返回不触发 OnComm 事件时接收缓冲区被允许的最多字符数。当缓冲区 的字符多于设置的值时,则触发 OnComm 事件,并把 CommEvent 设为 MSCOMMEVRECEIVE, 当 RThreshold = 0 则禁止接收触发 OnComm 事件,当 RThreshold = 1 则接收缓冲区有一 个或更多字符时就触发 OnComm 事件。利用这一属性,就可完成对串口接收数据的处理。2. 利用通信控件的实例Sub Form1
6、load ()form1. show设置 COM1comm1. commport = 1comm1. Setting = “ 9600 ,o ,8 ,1“ 波特率:9600 奇校验,8 位数据,1 位停止位comm1. Inputlen = 0 读取接收缓冲区的所有字符comm1. OutBufferSize = 512 设置发送缓冲区为 512 字节comm1. InBufferSize = 512 设置接收缓冲区为 512 字节comm1. SThreshold = 0 禁止发送事件comm1. RThreshold = 1 每一个字符到接收缓冲区都触发接收事件设置 COM2comm2.
7、commport = 2comm2. Setting = “2400 ,e ,8 ,1“波特率:2400 偶验,8 位数据,1 位停止位comm2. Inputlen = 0 读取接收缓冲区的所有字符comm2. OutBufferSize = 512 设置发送缓冲区为 512 字节comm2. InBufferSize = 512 设置接收缓冲区为 512 字节comm2. SThreshold = 1 发送缓冲区空触发发送事件comm2. RThreshold = 0 禁止接收事件打开 COM1 ,COM2comm1. Portopen = Truecomm2. Portopen = Tr
8、ueTimer1. interval = 5000 End SubSub Comm1 OnComm()Dim Inbuff as stringDim i as integer ,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 wInQueue 、wOutQueue :分别 以字节为单位说明发送、接收缓冲区的大小。该函数调用成功返
9、回打开的设备号,否则返回 一负数代表错误信息码。(2) SetCommState ( IpDCB As DCB) IpDCB :是 DCB 结构存放设备所希望的通信设置(DCB 结构如 COMM.BAS 中所示) ,其中 DCB 的 ID 成员必须标识该设备。如果函数调用成功返回 0 ;否则,返回值小于 0。(3) ReadComm(nCid As Integer , IpBuf As String ,nSize AsInteger) WriteComm(nCid As Integer , IpBuf As String ,nSize As Integer)这是用来对通信设备进行读写的函数,n
10、Cid :说明要读写的通信设备号, IpBuf :为读写缓 冲区,nSize :为要读写的字节数。如果读写成功,返回读写的字节数,否则是小于 0 的值, 并且其绝对值为读写的字节数。(4) Closecomm(nCid As Integer) 该函数关闭 nCid 所指定的通信设备,并且释放分配给设备的发送,接收缓冲存储器,调用成 功返回 0 ;否则,返回值小于 0。(5) BuildCommDCB( IpDef As String , IpDCB As DCB) lpDef : 为一字符串指定设备控制信息,此字符串具有 MS-DOS 中 MODE 命令所使用的参数 形式。IpDCB :为一
11、DCB 数据结构。该函数将 IpDef 字符串转换成串行设备控制块(DCB) 代码。(6) GetCommError (nCid As Integer , IpStat As COMSTAT) 该函数检取 nCid 指定的设备最近的错误值和当前状态,IpStat :是 COMSTAT 结构,具体形 式如 COMM.BAS 中所定义的。返回值为 COMM.BAS 中带 CE- 的常量的某种组合。3. 用 API 函数编程实例 这个例子是一仿真发送机,将从键盘输入的字符发送给 COM 端口。在 FORM 中加一按钮 COMMAND1 来关闭通信口Type DCBId As String 3 1Ba
12、udRate 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
13、1EvtChar As String 3 1TxDelay As Integer End TypeType COMSTATBits As String 3 1cbInQue As IntegercbOutQue As Integer End TypeDeclare Function OpenComm Lib User(ByVal IpComName As String , ByVal wInQueue As Integer , ByVal wOutQueue As Integer) As Integer Declare Function SetCommState Lib User ( IpDC
14、B As DCB)As Integer Declare Function ReadComm Lib User(ByVal nCid As Integer , ByVal IpBuf As String , ByVal nSize As Integer) As Integer Declare Function WriteComm Lib User(ByVal nCid As Integer , ByVal IpBuf As String , ByVal nSize As Integer) As Integer Declare Function Closecomm Lib User(ByVal n
15、Cid As Integer) As Integer Declare Function BuildCommDCB Lib User (ByVal IpDef As String , IpDCB As DCB) As Integer Declare Function GetCommError Lib User (ByVal nCid As Integer , IpStat As COMSTAT) As IntegerGlobal IpDCB As DCB Global nCid As IntegerSub Form1 load ()Dim comset As Stringcomset =“COM
16、2“nCid = OpenComm(comset ,512 ,512) 打开 COM2 设置接收,发送缓冲区为 512 字节If nCid 0 Then 处理错误MsgBox“不能打开 COM:“ + Str (nCid) +“Error Number :“ + Str (nCid) ,16endend ifCommand1. Caption =“关闭通信口“ 设置串口 DCB 设备控制块comset =“COM2 :9600 ,n ,8 ,1“If (BuildCommDCB(comset ,LpDCB) ) ThenMsgBox“不能建立 COMM DCB“ ,16endend ifLpDCB. Id = Chr (nCid)If (SetCommState (LpDCB) ) Then 设置串口状态MsgBox“不能设置串口状态“ ,16endendif End SubSub Form1-keyPress (keyAscii As Integer)Dim nsend As i
