VB串口通信详解

VB串口通信目前，VisualBasic（简称VB）已成为WINDOWS系统开发的主要语言，以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。VB支持面向对象的程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件。在VB应用程序可以方便地调用WINDOWSAPI函数，使得编程效率提高，应用功能增强。利用VB提供的这些功能，我们可以有三种方法完成串口通信。一种是用VB提供的具有强大功能的通信控件;另一种方法是调用WINDOWSAPI函数，使用WINDOWS提供的通信函数编写移植性强的应用程序;第三是利用文件的输入/输出完成，该方法简便易行，但有一定的局限性。一、利用通信控件（MSCOMM）完成串口通信VB提供了通信控件MSCOMM，文件名为MSCOMM.VBX。该控件可设置串行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触发OnComm事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent属性来了解通信的情况，进行收发数据的处理。每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个通信控件。1、通信控件的事件及基本属性（1）事件OnComm：通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。通过对CommEvent属性的判断可知当前的通信错误和事件，分别对每个CommEvent值进行编程就完成了对各个错误和事件的处理。如：CommEvent=MSCOMM—EV—SEND表示发送事件。这些信息可从VB提供的常量文件CONSTANT.TXT中查出。（2）属性CommPort：设置通信控件与哪个串口相连接，设置并返回通信口号。Setting：设置通信的信息格式，为字符型。顺序为：波特率、校验、数据位、停止位。PortOpen：布尔型、开关通信口。InputLen：从接收缓冲区读取字符个数。Input，Output：读取接收缓冲区或写入发送缓冲区字符。以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB提供的事件驱动机制来实现通信。CommEvent：返回通信过程中产生的错误信息及事件，了解通信状况。SThreshold：设置并返回不触发OnComm事件时发送缓冲区被允许的最少字符数。当缓冲区的字符少于设置的值时，则触发OnComm事件，并把CommEvent设为MSCOMMM—EV—SEND。当SThreshold=0则禁止发送触发OnComm事件，当SThreshold=1则发送缓冲区为空时就触发OnComm事件。利用这一属性，就可完成发送数据后的一系列操作。如：对刚发送的数据进行处理，当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、挂机等操作。RThreshold：设置并返回不触发OnComm事件时接收缓冲区被允许的最多字符数。当缓冲区的字符多于设置的值时，则触发OnComm事件，并把CommEvent设为MSCOMM—EV—RECEIVE，当RThreshold=0则禁止接收触发OnComm事件，当RThreshold=1则接收缓冲区有一个或更多字符时就触发OnComm事件。利用这一属性，就可完成对串口接收数据的处理。2、利用通信控件的实例SubForm1—load（）form1.show′设置COM1mport=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′每一个字符到接收缓冲区都触发接收事件′设置COM2mport=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=TrueTerval=5000EndSubSubComm1—OnComm（）DimInbuffasstringDimiasinteger，nasinteger，tasintegerSelectCaseComm1.CommEvencaseMSCOMM—EV—RECEIVEInbuff=Comm1.Inputn=len（Inbuff）Fori=1tont=Asc（Mid（Inbuff，i，1））or&HFFprintfNextiEndSelectEndSubSubComm2—OnComm（）SelectCaseComm2.CommEventCaseMSCOMM—EV—SENDPrinttimeEndSelectEndSubSubTimer1—Timer（）Comm2.output=Second（Now）EndsubDeclareFunctionGetCommErrorLib″User″（ByValnCidAsInteger，IpStatAsCOMSTAT）AsIntegerGlobalIpDCBAsDCBGlobalnCidAsIntegerSubForm1—load（）DimcomsetAsStringcomset=“COM2"nCid=OpenComm（comset，512，512）′打开COM2设置接收，发送缓冲区为512字节IfnCid<0Then′处理错误MsgBox“不能打开COM:"+Str（nCid）+“ErrorNum2ber:"+Str（nCid），16endendifCommand1.Caption=“关闭通信口"′设置串口DCB设备控制块comset=“COM2:9600，n，8，1"If（BuildCommDCB（comset，LpDCB））ThenMsgBox“不能建立COMMDCB"，16endendifLpDCB.Id=Chr（nCid）If（SetCommState（LpDCB））Then′设置串口状态MsgBox"不能设置串口状态"，16endendifEndSubSubForm1-keyPress（keyAsciiAsInteger）DimnsendAsinteger，xAsintegerDimLpstateAsCOMSTAT′通信状态块Staticinbuffasstringinbuff=imbuff+Chr（KeyAscii）x=GetCommError（ncid，Lpstate）′读取当前串口错误或状态iflpstate.cbOutQue<512Then′送缓冲区有空间否?Nsend=WriteComm（nCid，inbuff，Len（inbuff））′发送inbuffifNsend<=0thenNsend=-Nsend′忽略错误inbuff=Mid（inbuff，Nsend+1）′清除已发送的字符endifendifEndSubSubCommand1-Click（）DimNcloseAsintegerNclose=CloseComm（nCid）IfNclose<0ThenMsgBox“不能关闭COMM口:"+Str（nCid），16endelsencid=0endifCmmand1.Caption=“通信已关闭”EndSub三、用文件输入/输出技术完成通信用VB提供的以上两种方法已足以应付各种串行通信的问题。另外还可以用文件输入/输出的方法完成简单的通信应用程序，如拨号。它用我们非常熟悉的BASIC输入/输出指令，如：OPEN、CLOSE、GET、PUT（PRINT、WRITE）、ERR来完成打开、关闭、读、写和检错通信口的功能。由于以上指令常在BASIC中使用，所以不在本文中详细介绍。仅举一小例子来说一个为拨号操作，一个为挂机操作，程序很简单。SubForm1—load（）DimTelnumAsStingCommand1.Caption=""Command2.Caption=""EndSubSubCommand1—Click（）Open“COM2"ForOutputAs#1print#1，TelnumEndSubSubCommand2—Click（）Telnum=“ATH"Print#1，TelnumClose#1EndSub这个小例子仅用了PRINT来发送数据，该命令自动在字符串后加了回车符。其他指令如PUT、WRITE亦可完成。但是注意变量TELNUM的格式，要在最后命令字符串后加回车符。WINDOWS使用DOS操作完成文件处理，所以将通信端口当成文件来操作，就仅使用了DOS系统。这种方法十分简便。但是，使用文件输入/输出就使得通信不可靠，进来的字符可能遗漏，尤其是在2400b/s以上的速率传输数据时