用Visual Basic 实现串口通信的三种方法

网络用V isual Basic实现串口通信的三种方法●赵海燕目前,V isual Basic(简称V B)已成为WINDOWS系统开发的主要语言,以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。

V B支持面向对象的程序设计,具有结构化的事件驱动编程模式并可以使用无限扩增的控件。

在V B应用程序中可以方便地调用WINDOWS API 函数,使得编程效率提高,应用功能增强。

利用V B提供的这些功能,我们可以有三种方法完成串口通信。

一种是用V B提供的具有强大功能的通信控件;另一种方法是调用WINDOWS API函数,使用WINDOWS提供的通信函数编写移植性强的应用程序;第三是利用文件的输入/输出完成,该方法简便易行,但有一定的局限性。

一、利用通信控件(MSCOMM)完成串口通信V B提供了通信控件M SCOM M,文件名为M SCOM M.V BX。

该控件可设置串行通信的数据发送和接收,对串口状态及串行通信的信息格式和协议进行设置。

在通信过程中可以触发OnC omm事件,在该事件过程进行数据检验处理及检错,还可以通过编程访问C ommE vent属性来了解通信的情况,进行收发数据的处理。

每个通信控件对应一个串口,如果要访问多个通信口,则要设计多个通信控件。

1.通信控件的事件及基本属性(1)事件OnC omm:通信控件只提供了一个事件,该事件的触发可以对串口的通信事件及错误进行处理。

通过对C ommE vent属性的判断可知当前的通信错误和事件,分别对每个C om2 mE vent值进行编程就完成了对各个错误和事件的处理。

如: C ommE vent=M SCOM M—EV—SEND表示发送事件。

这些信息可从V B提供的常量文件CONST ANT.T XT中查出。

(2)属性C ommP ort:设置通信控件与哪个串口相连接,设置并返回通信口号。

S ettin g:设置通信的信息格式,为字符型。

顺序为:波特率、校验、数据位、停止位。

P ortO p en:布尔型、开关通信口。

In p utLen:从接收缓冲区读取字符个数。

In p ut,Out p ut:读取接收缓冲区或写入发送缓冲区字符。

以上五种属性对串口完成基本的设置和操作,下面的三种属性是描述如何利用V B提供的事件驱动机制来实现通信。

C ommE vent:返回通信过程中产生的错误信息及事件,了解通信状况。

ST hresh old:设置并返回不触发OnC omm事件时发送缓冲区被允许的最少字符数。

当缓冲区的字符少于设置的值时,则触发OnC omm事件,并把C ommE vent设为M SCOM M M—EV—SEND。

当ST hresh old=0则禁止发送触发OnC omm事件,当ST hresh old=1则发送缓冲区为空时就触发OnC omm事件。

利用这一属性,就可完成发送数据后的一系列操作。

如:对刚发送的数据进行处理,当串口是和M ODEM通信时,发送完数据后可进行拆除线路联接、挂机等操作。

RT hresh old:设置并返回不触发OnC omm事件时接收缓冲区被允许的最多字符数。

当缓冲区的字符多于设置的值时,则触发OnC omm事件,并把C ommE vent设为M SCOM M—EV—RECEIVE,当RT hresh old=0则禁止接收触发OnC omm事件,当RT hresh old=1则接收缓冲区有一个或更多字符时就触发OnC omm事件。

利用这一属性,就可完成对串口接收数据的处理。

2.利用通信控件的实例Sub F orm1—load()form1.sh ow′设置COM1m p ort=1comm1.S ettin g="9600,o,8,1"′波特率:9600奇校验,8位数据,1位停止位comm1.In p utlen=0′读取接收缓冲区的所有字符comm1.OutBufferS ize=512′设置发送缓冲区为512字节comm1.InBufferS ize=512′设置接收缓冲区为512字节comm1.ST hresh old=0′禁止发送事件comm1.RT hresh old=1′每一个字符到接收缓冲区都触发接收事件′设置COM2m p ort=2comm2.S ettin g="2400,e,8,1"网络′波特率:2400偶验,8位数据,1位停止位comm2.In p utlen=0′读取接收缓冲区的所有字符comm2.OutBufferS ize=512′设置发送缓冲区为512字节comm2.InBufferS ize=512′设置接收缓冲区为512字节comm2.ST hresh old=1′发送缓冲区空触发发送事件comm2.RT hresh old=0′禁止接收事件′打开COM1,COM2comm1.P orto p en=T ruecomm2.P orto p en=T rueT im er1.interval=5000End SubSub C omm1—OnC omm()Dim Inbuff as strin gDim i as inte g er,n as inte g er,t as inte g erS elect C ase C omm1.C ommE vencase M SCOM M—EV—RECEIVEInbuff=C omm1.In p utn=len(Inbuff)F or i=1to nt=Asc(M id(Inbuff,i,1))or&HFFp rint fNext iEnd S electEnd SubSub C omm2—OnC omm()S elect C ase C omm2.C ommE ventC ase M SCOM M—EV—SENDPrint tim eEnd S electEnd SubSub T im er1—T im er()C omm2.out p ut=S econd(N ow)End sub二、通过调用API函数实现通信以上说明了用V B提供的控件实现通信的方法,只要理解了V B控件的机制就很容易完成对串口的操作,但可移植性差。

但V B可以很容易调用API函数实现通信。

1.VB对API的调用V B使用动态链接库DLL(D y nam ic Link Libraries)的能力,大大扩展了其功能。

WINDOWS本身提供了API函数包括三大动态链接库:KERNE L库、G DI库、USER库,通过V B用户可以直接调用这些库中的函数。

调用之前,必须首先在V B中声明。

该声明可为模块级或窗体级,当作为模块级声明时,其作用域为所有FORM和M ODU LE,而作为窗体级声明时其作用域为该声明所在的FORM。

V B调用DLL的格式:Declare Sub过程名Lib″库名″Alias″别名″]([B y Val参数As类型])Declare Function函数名Lib″库名″[Alias″别名″]([B y Val 参数As类型])As类型在声明中:DEC LARE表示声明DLL中的函数,当声明是不具有返回值的过程时用SU B关键字,而如果调用的函数具有返回值,则必须用FUNCTION关键字将其声明为函数并在声明语句的最后用AS指明函数返回值的类型。

LI B关键字表示当前声明的过程或函数是库名所指定的库中函数而非V B 本身的函数。

库名,就是对应动态链接库的名称,其中通信函数在USER库中。

B y Val关键字将原参数数据类型一一对应到V B类型中。

WINDOWS的HE LP文件WINS DK.H LP中包含了完整的WINDOWS API函数信息,可用该文件查看联机函数、数据结构及错误信息。

2.API提供的通信函数为了方便说明,我们将有关通信的函数及相关的数据结构放在全局模块中,文件名为COM M.BAS(见API编程函数实例)。

以下是这些函数的基本介绍:(1)O p enC omm(I p C omNam e As Strin g,wInQueue As Inte2g er,w OutQueue As Inte g er)I p C omNam e:设备名,以“COM n”的形式来说明,n为设备号;wInQueue、w OutQueue:分别以字节为单位说明发送、接收缓冲区的大小。

该函数调用成功返回打开的设备号,否则返回一负数代表错误信息码。

(2)S etC ommState(I p DC B As DC B)I p DC B:是DC B结构存放设备所希望的通信设置(DC B结构如COM M.BAS中所示),其中DC B的I D成员必须标识该设备。

如果函数调用成功返回0;否则,返回值小于0。

(3)ReadC omm(nC id As Inte g er,I p Buf As Strin g,nS ize As Inte g er)W riteC omm(nC id As Inte g er,I p Buf As Strin g,nS ize As In2 te g er)这是用来对通信设备进行读写的函数,nC id:说明要读写的通信设备号,I p Buf:为读写缓冲区,nS ize:为要读写的字节数。

如果读写成功,返回读写的字节数,否则是小于0的值,并且其绝对值为读写的字节数。

(4)C losecomm(nC id As Inte g er)该函数关闭nC id所指定的通信设备,并且释放分配给设备的发送,接收缓冲存储器,调用成功返回0;否则,返回值小于0。

(5)BuildC omm DC B(I p Def As Strin g,I p DC B As DC B)l p Def:为一字符串指定设备控制信息,此字符串具有M S-DOS中M ODE命令所使用的参数形式。

I p DC B:为一DC B 数据结构。

该函数将I p Def字符串转换成串行设备控制块(DC B)代码。

(6)G etC ommError(nC id As Inte g er,I p Stat As COM ST AT)该函数检取nC id指定的设备最近的错误值和当前状态, I p Stat:是COM ST AT结构,具体形式如COM M.BAS中所定义的。

返回值为COM M.BAS中带CE-的常量的某种组合。

3.用API函数编程实例这个例子是一仿真发送机,将从键盘输入的字符发送给COM端口。

在FORM中加一按钮COM M AND1来关闭通信口。

SS网络(下转第20页)S S S S S T y p e DC BId As Strin g 31BaudRate As Inte g er B y teS ize As Strin g 31Parit y As Strin g 31Sto p Bits As Strin g 31R lsT im eout As Inte g er CtsT im eout As Inte g er DsrT im eout As Inte g er Bits1As Strin g 31Bits2As Strin g 31X onChar As Strin g 31X offChar As Strin g 31X onLim As Inte g er X offLim As Inte g er PeChar As Strin g 31E ofChar As Strin g 31E vtChar As Strin g 31T xDela y As Inte g er End T y p e T y p e COM ST ATBits As Strin g 31cbInQue As Inte g er cbOutQue As Inte g erEnd T y p eDeclare Function O p enC omm Lib ″User ″(B y Val I p C omNam e As Strin g ,B y Val wInQueue As Inte g er ,B y Val w OutQueue As In 2te g er )As Inte g erDeclare Function S etC ommState Lib ″User ″(I p DC B As DC B )As Inte g erDeclare Function ReadC omm Lib ″User ″(B y Val nC id As Inte 2g er ,B y Val I p Buf As Strin g ,B y Val nS ize As Inte g er )As Inte 2g erDeclare Function W riteC omm Lib ″User ″(B y Val nC id As Inte 2g er ,B y Val I p Buf As Strin g ,B y Val nS ize As Inte g er )As Inte 2g erDeclare Function C losecomm Lib ″User ″(B y Val nC id As Inte 2g er )As Inte g erDeclare Function BuildC omm DC B Lib ″User ″(B y Val I p Def As Strin g ,I p DC B As DC B )As Inte g erDeclare Function G etC ommError Lib ″User ″(B y Val nC id As Inte g er ,I p Stat As COM ST AT )As Inte g er G lobal I p DC B As DC B G lobal nC id As Inte g er Sub F orm1—load ()Dim comset As Strin g comset =“COM 2"nC id =O p enC omm (comset ,512,512)′打开COM 2设置接收,发送缓冲区为512字节I f nC id <0T hen′处理错误M s g Box “不能打开COM:"+Str (nC id )+“Error Num 2ber :"+Str (nC id ),16end end ifC omm and1.C a p tion =“关闭通信口"′设置串口DC B 设备控制块comset =“COM 2:9600,n ,8,1"I f (BuildC omm DC B (comset ,L p DC B ))T hen M s g Box “不能建立COM M DC B",16end end ifL p DC B.Id =Chr (nC id )I f (S etC ommState (L p DC B ))T hen′设置串口状态M s g Box"不能设置串口状态",16end endif End SubSub F orm1-ke y Press (ke y AsciiAs Inte g er )Dim nsend As inte g er ,x As inte g er Dim L p state As COM ST AT ′通信状态块Static inbuff as strin ginbuff =imbuff +Chr (K e y Ascii )x =G etC ommError (ncid ,L p state )′读取当前串口错误或状态if l p state.cbOutQue <512T hen ′送缓冲区有空间否?Nsend =W riteC omm (nC id ,inbuff ,Len (inbuff ))′发送inbuff if Nsend <=0then Nsend =-Nsend ′忽略错误inbuff =M id (inbuff ,Nsend +1)′清除已发送的字符end if end if End SubSub C omm and1-C lick ()Dim N close As inte g er N close =C loseC omm (nC id )I f N close <0T henM s g Box “不能关闭COM M 口:"+Str (nC id ),16end else ncid =0end ifCmm and1.C a p tion =“通信已关闭”End Sub三、用文件输入/输出技术完成通信用V B 提供的以上两种方法已足以应付各种串行通信的问题。