《VB串口通讯USB通讯,很有用哦》由会员分享，可在线阅读，更多相关《VB串口通讯USB通讯,很有用哦（10页珍藏版）》请在金锄头文库上搜索。
1、VB完成串口通信。一种是用VB提供的具有强大功能的通信控件;另一种方法是调用WINDOWSAPI函数，使用WINDOWS提供的通信函数编写移植性强的应用程序;第三是利用文件的输入/输出完成，该方法简便易行，但有一定的局限性。一、利用通信控件（MSCOMM）完成串口通信VB提供了通信控件MSCOMM,文件名为MSCOMM.VBX。该控件可设置串行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触发OnComm事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent属性来了解通信的情况，进行收发数据的处理。每个通信控件对应一个串口，如果要访
2、问多个通信口，则要设计多个通信控件。1、通信控件的事件及基本属性（1）事件OnComm：通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。通过对CommEvent属性的判断可知当前的通信错误和事件，分别对每个CommEvent值进行编程就完成了对各个错误和事件的处理。如：CommEvent=MSCOMMEVSEND表示发送事件。这些信息可从VB提供的常量文件CONSTANT.TXT中查出。（2）属性CommPort：设置通信控件与哪个串口相连接，设置并返回通信口号。Setting：设置通信的信息格式，为字符型。顺序为：波特率、校验、数据位、停止位。PortOpen：布尔
3、型、开关通信口。InputLen：从接收缓冲区读取字符个数。Input，Output：读取接收缓冲区或写入发送缓冲区字符。以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB提供的事件驱动机制来实现通信。CommEvent：返回通信过程中产生的错误信息及事件，了解通信状况。SThreshold:设置并返回不触发OnComm事件时发送缓冲区被允许的最少字符数。当缓冲区的字符少于设置的值时，则触发OnComm事件，并把CommEvent设为MSCOMMMEVSEND。当SThreshold=0则禁止发送触发OnComm事件，当SThreshold=1则发送缓冲区为空时就触发On
4、Comm事件。利用这一属性，就可完成发送数据后的一系列操作。如：对刚发送的数据进行处理，当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、挂机等操作。RThreshold:设置并返回不触发OnComm事件时接收缓冲区被允许的最多字符数。当缓冲区的字符多于设置的值时，则触发OnComm事件，并把CommEvent设为MSCOMMEVRECEIVE,当RThreshold=0则禁止接收触发OnComm事件，当RThreshold=1则接收缓冲区有一个或更多字符时就触发OnComm事件。利用这一属性，就可完成对串口接收数据的处理。2、利用通信控件的实例SubForm1load（）form1
5、.show设置COMmport=1comml.Setting=9600,o,8,1/波特率:9600奇校验，8位数据，1位停止位comml.Inputlen=0读取接收缓冲区的所有字符comml.OutBufferSize=512，设置发送缓冲区为512字节comml.InBufferSize=512，设置接收缓冲区为512字节comm1.SThreshold=0，禁止发送事件comm1.RThreshold=1每一个字符到接收缓冲区都触发接收事件/设置COMmport=2comm2.Setting=2400，e，8，1z波特率:2400偶验，8位数据，1位停止位comm2.Inputlen=
6、0读取接收缓冲区的所有字符comm2.OutBufferSize=512设置发送缓冲区为512字节comm2.InBufferSize=512设置接收缓冲区为512字节comm2.SThreshold=1，发送缓冲区空触发发送事件comm2.RThreshold=0，禁止接收事件/打开C0M1,COM2comm1.Portopen=Truecomm2.Portopen=TrueTimer1.interval=5000EndSubSubComm1OnComm（）DimInbuffasstringDimiasinteger，nasinteger，tasintegerSelectCaseComm1.
7、CommEvencaseMSCOMMEVRECEIVEInbuff=Comm1.Inputn=len（Inbuff）Fori=1tont=Asc（Mid（Inbuff，i，1）or&HFFprintfNextiEndSelectEndSubSubComm2OnComm（）SelectCaseComm2.CommEventCaseMSCOMMEVSENDPrinttimeEndSelectEndSubSubTimer1Timer（）Comm2.output=Second（Now）Endsub二、通过调用API函数实现通信以上说明了用VB提供的控件实现通信的方法，只要理解了VB控件的机制就很容易完
8、成对串口的操作，但可移植性差。但VB可以很容易调用API函数实现通信。1、VB对API的调用VB使用动态链接库DLL（DynamicLinkLibraries）的能力，大大扩展了其功能。WINDOWS本身提供了API函数包括三大动态链接库：KERNEL库、GDI库、USER库，通过VB用户可以直接调用这些库中的函数。调用之前，必须首先在VB中声明。该声明可为模块级或窗体级，当作为模块级声明时，其作用域为所有FORM和MODULE，而作为窗体级声明时其作用域为该声明所在的FORM。VB调用DLL的格式：DeclareSub过程名Lib库名Alias别名（ByVal参数As类型）DeclareFu
9、nction函数名Lib库名Alias别名（ByVal参数As类型）As类型在声明中：DECLARE表示声明DLL中的函数，当声明是不具有返回值的过程时用SUB关键字，而如果调用的函数具有返回值，则必须用FUNCTION关键字将其声明为函数并在声明语句的最后用AS指明函数返回值的类型。LIB关键字表示当前声明的过程或函数是库名所指定的库中函数而非VB本身的函数。库名，就是对应动态链接库的名称，其中通信函数在USER库中。ByVal关键字将原参数数据类型一一对应到VB类型中。WINDOWS的HELP文件WINSDK.HLP中包含了完整的WINDOWSAPI函数信息，可用该文件查看联机函数、数据结
10、构及错误信息。2、API提供的通信函数为了方便说明，我们将有关通信的函数及相关的数据结构放在全局模块中，文件名为COMM.BAS(见API编程函数实例)。以下是这些函数的基本介绍：(1) OpenComm(IpComNameAsString，wInQueueAsInte-ger，wOutQueueAsInteger)IpComName:设备名，以“COMn的形式来说明，n为设备号;wInQueue、wOutQueue：分别以字节为单位说明发送、接收缓冲区的大小。该函数调用成功返回打开的设备号，否则返回一负数代表错误信息码。(2) SetCommState(IpDCBAsDCB)IpDCB:是D
11、CB结构存放设备所希望的通信设置(DCB结构如COMM.BAS中所示)，其中DCB的ID成员必须标识该设备。如果函数调用成功返回0;否则，返回值小于0。(3) ReadComm(nCidAsInteger，IpBufAsString，nSizeAsInteger)WriteComm(nCidAsInteger，IpBufAsString，nSizeAsIn-teger)这是用来对通信设备进行读写的函数，nCid:说明要读写的通信设备号，IpBuf:为读写缓冲区，nSize:为要读写的字节数。如果读写成功，返回读写的字节数，否则是小于0的值，并且其绝对值为读写的字节数。(4) Closecomm
12、(nCidAsInteger)该函数关闭nCid所指定的通信设备，并且释放分配给设备的发送，接收缓冲存储器，调用成功返回0;否则，返回值小于0。(5) BuildCommDCB(IpDefAsString，IpDCBAsDCB)lpDef:为一字符串指定设备控制信息，此字符串具有MS-DOS中MODE命令所使用的参数形式IpDCB:为一DCB数据结构。该函数将IpDef字符串转换成串行设备控制块(DCB)代码。(6) GetCommError(nCidAsInteger，IpStatAsCOMSTAT)该函数检取nCid指定的设备最近的错误值和当前状态，IpStat：是COMSTAT结构，具体
13、形式如COMM.BAS中所定义的。返回值为COMM.BAS中带CE-的常量的某种组合。3. 用API函数编程实例这个例子是一仿真发送机，将从键盘输入的字符发送给COM端口。在FORM中加一按钮COMMAND1来关闭通信口。TypeDCBIdAsString31BaudRateAsIntegerByteSizeAsString31ParityAsString31StopBitsAsString31RlsTimeoutAsIntegerCtsTimeoutAsIntegerDsrTimeoutAsIntegerBits1AsString31Bits2AsString31XonCharAsStrin
14、g31XoffCharAsString31XonLimAsIntegerXoffLimAsIntegerPeCharAsString31EofCharAsString31EvtCharAsString31TxDelayAsIntegerEndTypeTypeCOMSTATBitsAsString31cbInQueAsIntegercbOutQueAsIntegerEndTypeDeclareFunctionOpenCommLibUser(ByValIpComNameAsString，ByValwInQueueAsInteger，ByValwOutQueueAsInteger)AsInteger
15、DeclareFunctionSetCommStateLib“User(IpDCBAsDCB)AsIntegerDeclareFunctionReadCommLibUser(ByValnCidAsInteger，ByValIpBufAsString，ByValnSizeAsInteger)AsIntegerDeclareFunctionWriteCommLibUser(ByValnCidAsInteger，ByValIpBufAsString，ByValnSizeAsInteger)AsIntegerDeclareFunctionClosecommLibUser(ByValnCidAsInteger)AsIntegerDeclareFunctionBuildCommDCBLibUser(ByValIpDefAsString，IpDCBAsDCB)AsIntegerDeclareFunctionGetCommErrorLibUser(ByValnCidAsInteger，IpStatAsCOMSTAT)AsIntegerGlobalIpDC
