资源描述：
《vb串口通讯方式解释》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、目前,VisualBasic(简称VB)已成为WINDOWS系统开发的主要语言,以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。VB支持面向对象的程序设计,具有结构化的事件驱动编程模式并可以使用无限扩增的控件。在VB应用程序中可以方便地调用WINDOWSAPI函数,使得编程效率提高,应用功能增强。利用VB提供的这些功能,我们可以有三种方法完成串口通信。一种是用VB提供的具有强大功能的通信控件;另一种方法是调用WINDOWSAPI函数,使用WINDOWS提供的通信函数编写移植性强的应用程序;第三是利用文件的输入/输出完成,该方法简便
2、易行,但有一定的局限性。一、利用通信控件(MSCOMM)完成串口通信VB提供了通信控件MSCOMM,文件名为MSCOMM.VBX。该控件可设置串行通信的数据发送和接收,对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触发OnComm事件,在该事件过程进行数据检验处理及检错,还可以通过编程访问CommEvent属性来了解通信的情况,进行收发数据的处理。每个通信控件对应一个串口,如果要访问多个通信口,则要设计多个通信控件。1.通信控件的事件及基本属性(1)事件OnComm:通信控件只提供了一个事件,该事件的触发可以对串口的通信事件及错误进行处理
3、。通过对CommEvent属性的判断可知当前的通信错误和事件,分别对每个Com2mEvent值进行编程就完成了对各个错误和事件的处理。如:CommEvent=MSCOMM—EV—SEND表示发送事件。这些信息可从VB提供的常量文件CONSTANT.TXT中查出。(2)属性CommPort:设置通信控件与哪个串口相连接,设置并返回通信口号。Setting:设置通信的信息格式,为字符型。顺序为:波特率、校验、数据位、停止位。PortOpen:布尔型、开关通信口。InputLen:从接收缓冲区读取字符个数。Input,Output:读取接收缓冲区或写入发送缓冲
4、区字符以上五种属性对串口完成基本的设置和操作,下面的三种属性是描述如何利用VB提供的事件驱动机制来实现通信。CommEvent:返回通信过程中产生的错误信息及事件,了解通信状况。SThreshold:设置并返回不触发OnComm事件时发送缓冲区被允许的最少字符数。当缓冲区的字符少于设置的值时,则触发OnComm事件,并把CommEvent设为MSCOMMM—EV—SEND。当SThreshold=0则禁止发送触发OnComm事件,当SThreshold=1则发送缓冲区为空时就触发OnComm事件。利用这一属性,就可完成发送数据后的一系列操作。如:对刚发送
5、的数据进行处理,当串口是和MODEM通信时,发送完数据后可进行拆除线路联接、挂机等操作。RThreshold:设置并返回不触发OnComm事件时接收缓冲区被允许的最多字符数。当缓冲区的字符多于设置的值时,则触发OnComm事件,并把CommEvent设为MSCOMM—EV—RECEIVE,当RThreshold=0则禁止接收触发OnComm事件,当RThreshold=1则接收缓冲区有一个或更多字符时就触发OnComm事件。利用这一属性,就可完成对串口接收数据的处理。2.利用通信控件的实例SubForm1—load() form1.show ′设置COM
6、1 comm1.commport=1 comm1.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′每一个字符到接收缓冲区都触发接收事件 ′设置COM2 comm2.commport=2 comm2.Setting="24
7、00,e,8,1" ′波特率:2400偶验,8位数据,1位停止位 comm2.Inputlen=0′读取接收缓冲区的所有字符 comm2.OutBufferSize=512′设置发送缓冲区为512字节 comm2.InBufferSize=512′设置接收缓冲区为512字节 comm2.SThreshold=1′发送缓冲区空触发发送事件 comm2.RThreshold=0′禁止接收事件 ′打开COM1,COM2 comm1.Portopen=True comm2.Portopen=True Timer1.interval=5000EndSubSubCo
8、mm1—OnComm() DimInbuffasstring Dimiasint
