VB串口通信详细讲解

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 设置COM1

comml. commport = 1 End Sub

comml. 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 = 2

comm2. 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 = 1

comm2. RThreshold = 0

发送缓冲区空触发发送事件 禁止接收事件

打开 COM1 , COM2 comm1. Portope n = True

comm2. Portope n =

Timer1. i nterval = 5000

Sub Comml —On Comm ()

Dim Inbuf as stri ng

Dim i as integer , n as integer , t as integer Select Case Comm1. CommEve n

case MSCOMM —EV—RECEIVE

Inbuf = Comm1. In put

n = len ( Inbuf )

For i = 1 to n

t = Asc (Mid ( In buff , i , 1) ) or & HFF print f

Next i

End Select

End Sub

Sub Comm2 —On Comm ()

Select Case Comm2. CommEve nt

Case MSCOMM —EV—SEND

Print time

End Select

End Sub

Sub Timer1 —Timer ()

Comm2. output = Second ( Now )

End sub