VB串口通讯方式解释
目前'Visual Basic简称VB)已成为WINDOWS系统开发的主要语言，以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。VB 支持面向对象的程序设计,具有结构化的事件驱动编程模式并可以使用无限扩增的控件。在VB应用程序中可以方便地调用WINDOWS AP函数使得编程效率提高,应用功能增强。
利用VB提供的这些功能，我们可以有三种方法完成串口通信。一种是用VB
提供的具有强大功能的通信控件另一种方法是调用WINDOWS AP函数，使用WINDOWS提供的通信函数编写移植性强的应用程序；第三是利用文件的输入/输出完成,该方法简便易行,但有一定的局限性。
一、利用通信控件(MSCOMM完成串口通信
VB提供了通信控件MSCOMM文件名为MSCOMM.VBX该控件可设置串行通信的数据发送和接收,对串口状态及串行通信的信息格式和协议进行设置。在通信过程中可以触发On Comm事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent属性来了解通信的情况，进行收发数据的处理。每个通信控件对应一个串口,如果要访问多个通信口,则要设计多个通信控件。
1. 通信控件的事件及基本属性
(1)事件
On Comm:通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。
通过对CommEvent属性的判断可知当前的通信错误和事件，分别对每个
Com2mEve nt值进行编程就完成了对各个错误和事件的处理。
如:CommEve nt=MSCOMM- EV-SEND表示发送事件。
这些信息可从VB提供的常量文件CONSTANT. TX中查出。
(2)属性
CommPort :设置通信控件与哪个串口相连接,设置并返回通信口号。
Setting :设置通信的信息格式,为字符型。顺序为:波特率、校验、数据位、停止位。
PortOpen :布尔型、开关通信口。
InputLen :从接收缓冲区读取字符个数。
Input ,Output : 读取接收缓冲区或写入发送缓冲区字符以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB提供的事件驱动机制来实现通信。
CommEvent :返回通信过程中产生的错误信息及事件,了解通信状况。
SThreshold设置并返回不触发On Comm事件时发送缓冲区被允许的最少字符数。当缓冲区的字符少于设置的值时，则触发On Comm事件，并把CommEve nt 设为MSCOMMM—EV-SEND当SThreshold = 0则禁止发送触发On Comm事件, 当SThreshold = 1则发送缓冲区为空时就触发On Comm事件。利用这一属性，就可完成发送数据后的一系列操作。如:对刚发送的数据进行处理,当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、挂机等操作。
RThreshold :设置并返回不触发OnComm 事件时接收缓冲区被允许的最多字符数。当缓冲区的字符多于设置的值时，则触发On Comm事件，并把CommEve nt 设为MSCOMM- EV—RECEIVE, RThreshold = 0则禁止接收触发On Comm 事件, 当RThreshold = 1则接收缓冲区有一个或更多字符时就触发On Comm事件。利
用这一属性,就可完成对串口接收数据的处理。
2. 利用通信控件的实例
Sub Form1—load ()
form1. show
设置C0M1
comm1. commport = 1
comm1. Setting = " 9600 ,o ,8 ,1"波特率:9600奇校验,8位数据,1位停止位comm1. I np utle n二0读取接收缓冲区的所有字符
comml. OutBufferSize = 512设置发送缓冲区为512字节
comml. InBufferSize = 512设置接收缓冲区为512字节
comml. SThreshold = 0禁止发送事件
comm1. RThreshold = 1每一个字符到接收缓冲区都触发接收事件设置COM2
comm2. commport = 2
comm2. Setting = "2400 ,e ,8 ,1"
波特率:2400偶验,8位数据,1位停止位
comm2. I np utle n二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 = 5000
End Sub
Sub Comm1—OnComm()
Dim Inbuff as string
Dim i as integer ,n as integer ,t as integer
Select Case Comm1. CommEven
case MSCOMM—EV—RECEIVE
Inbuff = Comm1. Input
n = len ( Inbuff)
For i = 1 to n
t = Asc (Mid ( Inbuff ,i ,1) ) or &HFF
print f
Next i
End Select
End Sub
Sub Comm2—OnComm()
Select Case Comm2. CommEvent
Case MSCOMM—EV—SEND
Print time
End Select
End Sub
Sub Timer1—Timer ()
Comm2. output = Second (Now)
End sub
二、通过调用API函数实现通信
以上说明了用VB提供的控件实现通信的方法，只要理解了VB控件的机制就很容易完成对串口的操作，但可移植性差。但VB可以很容易调用API函数实现通信。
1. VB对API的调用
VB使用动态链接库DLL（DynamicLinkLibraries的能力,大大扩展了其功能。WINDOWS
本身提供了API函数包括三大动态链接库：KERNE库、GDI库、USER 库，通过VB用户可以直接调用这些库中的函数。调用之前，必须首先在VB中声明。该声明可为模块级或窗体级，当作为模块级声明时，其作用域为所有FORM和MODULE而作为窗体级声明时其作用域为该声明所在的FORM。
VB调用DLL的格式:
Declare Sub过程名Lib 库名〃Alia别名〃］（［ByVa参数As 类型］）
Declare Function 函数名Lib 库名〃[Alia别名〃]([ByVa参数As 类型])As 类型
在声明中：DECLARE!示声明DLL中的函数，当声明是不具有返回值的过程时用SUB 关键字，而如果调用的函数具有返回值，则必须用FUNCTION关键字将其声明为函数并在声明语句的最后用AS指明函数返回值的类型。LIB关键字表示当前声明的过程或函数是库名所指定的库中函数而非VB本身的函数。库名，就是对应动态链接库的名称，其中通信函数在USEF库中。ByVal关键字将原参数数据类型一一对应到VB类型中。
WINDOWS的HELP文件WINSDK. HL冲包含了完整的WINDOWS AP函数信息,可用该文件查看联机函数、数据结构及错误信息。
2. API提供的通信函数
为了方便说明,我们将有关通信的函数及相关的数据结构放在全局模块中,文
件名为COMM.BAS见A PI编程函数实例）。以下是这些函数的基本介绍：
(1) OpenComm( IpComName As String ,wInQueue As Integer ,wOutQueue As In teger)I pComName设备名，以“ COM 的形式来说明,n为设备号;win Queue、
wOutQueue:分别以字节为单位说明发送、接收缓冲区的大小。该函数调用成功返回打开的设备号,否则返回一负数代表错误信息码。
(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)
这是用来对通信设备进行读写的函数,nCid说明要读写的通信设备号，1 pBuf: 为读写缓冲区,nSize为要读写的字节数。如果读写成功，返回读写的字节数，否则是小于0 的值，并且其绝对值为读写的字节数。
(4) Closecomm(nCid As Integer)
该函数关闭nCid所指定的通信设备，并且释放分配给设备的发送，接收缓冲存储器，调用成功返回0 ;否则，返回值小于0。
(5) BuildCommDCB( IpDef As String , IpDCB As DCB)
Ip Def:为一字符串指定设备控制信息，此字符串具有MS-DOS中MODE命令所使用的参数形式。IpDCB为一DCB数据结构。该函数将IpDef字符串转换成串行设备控制块（DCB 代码。
(6) GetCommError (nCid As Integer , IpStat As COMSTAT)
该函数检取nCid指定的设备最近的错误值和当前状态，lpStat:是COMSTAR 构，具体形式如COMM.BAS中所定义的。返回值为COMM.BAS中带CE的常量的某种组合。
3. 用API函数编程实例
这个例子是一仿真发送机，将从键盘输入的字符发送给COM端口。在FORM 中加一按钮COMMAND1来关闭通信口
Type DCB
Id As String 3 1
BaudRate As Integer
ByteSize As String 3 1
Parity As String 3 1
StopBits As String 3 1
RlsTimeout As Integer CtsTimeout As Integer DsrTimeout As Integer Bits1 As String 3 1 Bits2 As String 3 1 XonChar As String 3 1 XoffChar As String 3 1 XonLim As Integer XoffLim As Integer PeChar As String 3 1 EofChar As String 3 1 EvtChar As String 3 1 TxDelay As Integer End Type
Type COMSTAT