VB串口通信目前，Visual Basic （简称VB）已成为WINDOWS 系统开发的主要语言,以其高效、简单易学及功能强大的特点越来越为广大程序设计人员及用户所青睐。
VB支持面向对象的程序设计，具有结构化的事件驱动编程模式并可以使用无限扩增的控件。
在VB应用程序可以方便地调用WINDOWS API函数，使得编程效率提高，应用功能增强。
利用VB提供的这些功能，我们可以有三种方法完成串口通信。
一种是用VB提供的具有强大功能的通信控件；另一种方法是调用WINDOWS API函数，使用WINDOWS 提供的通信函数编写移植性强的应用程序；第三是利用文件的输入/输出完成，该方法简便易行，但有一定的局限性。
一、利用通信控件（MSCOMM）完成串口通信VB提供了通信控件MSCOMM，文件名为MSCOMM. VBX。
该控件可设置串行通信的数据发送和接收，对串口状态及串行通信的信息格式和协议进行设置。
在通信过程中可以触发On Comm 事件，在该事件过程进行数据检验处理及检错，还可以通过编程访问CommEvent属性来了解通信的情况，进行收发数据的处理。
每个通信控件对应一个串口，如果要访问多个通信口，则要设计多个通信控件。
1、通信控件的事件及基本属性（1）事件On Comm :通信控件只提供了一个事件，该事件的触发可以对串口的通信事件及错误进行处理。
通过对CommEvent属性的判断可知当前的通信错误和事件，分别对每个CommEvent 值进行编程就完成了对各个错误和事件的处理。
如：CommEvent = MSCOMM —EV—SEND表示发送事件。
这些信息可从VB提供的常量文件CONSTANT.TXT中查出。
(2)属性CommPort :设置通信控件与哪个串口相连接，设置并返回通信口号。
Setting :设置通信的信息格式，为字符型。
顺序为：波特率、校验、数据位、停止位。
PortOpen :布尔型、开关通信口。
InputLen :从接收缓冲区读取字符个数。
In put ，Output :读取接收缓冲区或写入发送缓冲区字符。
以上五种属性对串口完成基本的设置和操作，下面的三种属性是描述如何利用VB提供的事件驱动机制来实现通信。
CommEvent :返回通信过程中产生的错误信息及事件，了解通信状况。
SThreshold :设置并返回不触发On Comm 事件时发送缓冲区被允许的最少字符数。
当缓冲区的字符少于设置的值时，则触发On Comm 事件，并把CommEve nt设为MSCOMMM —EV—SEND。
当SThreshold = 0 则禁止发送触发On Comm 事件，当SThreshold = 1 则发送缓冲区为空时就触发On Comm 事件。
利用这一属性，就可完成发送数据后的一系列操作。
女口：对刚发送的数据进行处理，当串口是和MODEM通信时，发送完数据后可进行拆除线路联接、挂机等操作。
RThreshold :设置并返回不触发On Comm 事件时接收缓冲区被允许的最多字符数。
当缓冲区的字符多于设置的值时，则触发On Comm 事件，并把CommEve nt设为MSCOMM—EV—RECEIVE 当RThreshold = 0 则禁止接收触发On Comm 事件，当RThreshold = 1 则接收缓冲区有一个或更多字符时就触发On Comm事件。
利用这一属性，就可完成对串口接收数据的处理。
2、利用通信控件的实例Sub Forml — load () forml. show 设置COM1comml. commport = 1 End Subcomml. Setti ng = " 9600,o , 8,1"波特率:9600奇校验，8位数据1位停止位comm1. In putle n = 0 读取接收缓冲区的所有字符 comm1. OutBufferSize = 512 设置发送缓冲区为 512字节 comm1. I nBufferSize = 512设置接收缓冲区为 512字节 comm1. SThreshold = 0 comm1. RThreshold = 1 设置COM2'禁止发送事件'每一个字符到接收缓冲区都触发接收事comm2. commport = 2comm2. Setti ng = "2400,e , 8 , 1 "波特率:2400偶验，8位数据，1位停止位comm2. In putle n = 0 读取接收缓冲区的所有字符 comm2. OutBufferSize = 512 设置发送缓冲区为 512字节 comm2. I nBufferSize = 512'设置接收缓冲区为 512字节 comm2. SThreshold = 1comm2. RThreshold = 0发送缓冲区空触发发送事件 禁止接收事件打开 COM1 , COM2 comm1. Portope n = Truecomm2. Portope n =Timer1. i nterval = 5000Sub Comml —On Comm ()Dim Inbuf as stri ngDim i as integer , n as integer , t as integer Select Case Comm1. CommEve ncase MSCOMM —EV—RECEIVEInbuf = Comm1. In putn = len ( Inbuf )For i = 1 to nt = Asc (Mid ( In buff , i , 1) ) or & HFF print fNext iEnd SelectEnd SubSub Comm2 —On Comm ()Select Case Comm2. CommEve ntCase MSCOMM —EV—SENDPrint timeEnd SelectEnd SubSub Timer1 —Timer ()Comm2. output = Second ( Now )End sub二、通过调用API函数实现通信以上说明了用VB提供的控件实现通信的方法，只要理解了VB控件的机制就很容易完成对串口的操作，但可移植性差。
但VB可以很容易调用API函数实现通信。
1、VB对API的调用VB使用动态链接库DLL（Dynamic Link Libraries）的能力，大大扩展了其功能。
WINDOWS 本身提供了API函数包括三大动态链接库：KERNEL库、GDI库、USER库，通过VB用户可以直接调用这些库中的函数。
调用之前，必须首先在VB中声明。
该声明可为模块级或窗体级，当作为模块级声明时，其作用域为所有FORM和MODULE，而作为窗体级声明时其作用域为该声明所在的FORM。
VB调用DLL的格式：Declare Sub 过程名Lib 〃库名〃［Alias 〃别名〃］（［ByVai 参数As 类型］）Declare Function 函数名Lib "库名"［Alias "别名"］（［ByVai 参数As 类型］）As 类型在声明中：DECLARE表示声明DLL中的函数，当声明是不具有返回值的过程时用SUB关键字，而如果调用的函数具有返回值，则必须用FUNCTION关键字将其声明为函数并在声明语句的最后用AS指明函数返回值的类型。
LIB关键字表示当前声明的过程或函数是库名所指定的库中函数而非VB 本身的函数。
库名，就是对应动态链接库的名称，其中通信函数在USER库中。
ByVai关键字将原参数数据类型一一对应到VB类型中。
WINDOWS 的HELP文件WINSDK. HLP 中包含了完整的WINDOWS API 函数信息，可用该文件查看联机函数、数据结构及错误信息。
2、API提供的通信函数为了方便说明，我们将有关通信的函数及相关的数据结构放在全局模块中，文件名为COMM.BAS （见API编程函数实例）。
以下是这些函数的基本介绍：（1）Open Comm （IpComName As String ，win Queue As In te-ger ，wOutQueue As Integer）IpComName :设备名，以“COMn "的形式来说明，n为设备号;wI nQueue 、wOutQueue :分别以字节为单位说明发送、接收缓冲区的大小。
该函数调用成功返回打开的设备号，否则返回一负数代表错误信息码。
（2）SetCommState （IpDCB As DCB ）IpDCB :是DCB结构存放设备所希望的通信设置（DCB结构如COMM.BAS 中所示），其中DCB的ID成员必须标识该设备。
如果函数调用成功返回0 ；否则，返回值小于0。
（3）ReadComm （nCid As Integer ，IpBuf As String ，nSize As Integer ）WriteComm （nCid As Integer ，IpBuf As String ，nSize As In-teger ）这是用来对通信设备进行读写的函数，nCid :说明要读写的通信设备号，IpBuf :为读写缓冲区，nSize :为要读写的字节数。
如果读写成功，返回读写的字节数，否则是小于0 的值，并且其绝对值为读写的字节数。
（4）Closecomm （nCid As Integer ）该函数关闭nCid所指定的通信设备，并且释放分配给设备的发送，接收缓冲存储器，调用成功返回0 ;否则，返回值小于0。
(5)BuildCommDCB ( IpDef As String , IpDCB As DCB )IpDef :为一字符串指定设备控制信息，此字符串具有MS-DOS中MODE命令所使用的参数形式。
IpDCB :为一DCB数据结构。
该函数将IpDef字符串转换成串行设备控制块(DCB) 代码。
(6)GetCommError (nCid As Integer ，IpStat As COMSTAT )该函数检取nCid指定的设备最近的错误值和当前状态，IpStat :是COMSTAT结构，具体形式如COMM.BAS中所定义的。
返回值为COMM.BAS中带CE-的常量的某种组合。
3. 用API函数编程实例这个例子是一仿真发送机，将从键盘输入的字符发送给COM端口。
在FORM中加一按钮COMMAND1 来关闭通信口。
Type DCBId As Stri ng 3 1BaudRate As In tegerByteSize As Stri ng 3 1Parity As Stri ng 3 1StopBits As String 3 1RlsTimeout As In tegerCtsTimeout As In tegerDsrTimeout As In tegerBits1 As Stri ng 3 1Bits2 As Stri ng 3 1Xon Char As Stri ng 3 1XoffChar As Stri ng 3 1Xon Lim As In tegerXoffLim As In tegerPeChar As Stri ng 3 1EofChar As Stri ng 3 1EvtChar As String 3 1TxDelay As In tegerEnd TypeType COMSTATBits As Stri ng 3 1cbln Que As In tegercbOutQue As In tegerEnd TypeDeclare Fun cti on Ope nComm Lib "User" ByVal IpComName AsStri ng , ByVal win Queue As In teger , ByVal wOutQueue As In teger ) As In tegerDeclare Function SetCommState Lib "User" ( IpDCB As DCB )As In tegerDeclare Function ReadComm Lib "User" ByVal nCid As Integer , ByVal IpBuf As String , ByVal n Size As In teger ) As In tegerDeclare Function WriteComm Lib "User" ByVal nCid As Integer , ByVal IpBuf AsString , ByVal n Size As In teger ) As In tegerDeclare Fun cti on Closecomm Lib "User" ByVal n Cid As In teger ) As In tegerDeclare Function BuildCommDCB Lib "User" ( ByVai IpDef AsString , IpDCB As DCB ) As IntegerDeclare Function GetCommError Lib "User" ( ByVai nCid AsInteger , IpStat As COMSTAT ) As IntegerGlobal IpDCB As DCBGlobal nCid As IntegerSub Forml —load ()Dim comset As Stringcomset = “ COM2"512 nCid = OpenComm (comset , 512 , 512) 打开COM2 设置接收,发送缓冲区为字节If n Cid < 0 The n '处理错误MsgBox 不能打开COM:" + Str ( nCid) + Error Num2ber :" + Str (nCid) ，16endend ifCommandl. Caption = 关闭通信口” ’设置串口DCB设备控制块comset = COM2 :9600 , n , 8 , 1"If (BuildCommDCB (comset , LpDCB) ) ThenMsgBox 不能建立COMM DCB" , 16end end ifLpDCB. Id = Chr ( nCid )If (SetCommState (LpDCB) ) Then 设置串口状态MsgBox"不能设置串口状态”，16enden difEnd SubSub Form1-keyPress ( keyAscii As Integer )Dim nsend As integer , x As integerDim Lpstate As COMSTAT '通信状态块Static inbuff as stringin buff = imbuff + Chr ( KeyAscii )x = GetCommError (ncid , Lpstate )'读取当前串口错误或状态if lpstate. cbOutQue < 512 The n 送缓冲区有空间否？Nsend = WriteComm ( n Cid ，in buff ，Len (in buff ))'发送in buff if Nsend < = 0 then Nse nd = - Nse nd 忽略错误in buff = Mid (in buff , Nse nd + 1 ) 清除已发送的字符end ifend ifEnd SubSub Comma nd1-Click ()Dim Nclose As in tegerNclose = CloseComm (nCid )If Nclose < 0 The nMsgBox 不能关闭COMM 口:" + Str （nCid ） , 16endelsencid = 0end ifCmmand1. Caption = 通信已关闭”End Sub三、用文件输入/输出技术完成通信用VB提供的以上两种方法已足以应付各种串行通信的问题。