用VB控制单片机串口(正确版)

如何用VB实现电脑串口通信

无协技术顾问：陈文斯

什么是串口，为何要学习串口

串口是计算机上一种非常通用设备通信的协

议。大多数台式计算机包含两个基于RS232的串口

（一般用9针公头接出其中一个接口，如图1所示）。

串口同时也是仪器仪表设备通用的通信协议；很多

GPIB兼容的设备也带有RS-232口。鉴于串口应用

如此广泛，大多数单片机也内置了串口。通过串口，

单片机可以很轻松地与其它设备交换信息。

用VB编写串口通信的好处

Windows操作系统由于其友好的用户界面赢得了很多用户的青睐。Visual Basic 即是微软公司基于Windows操作系统的可视化编程平台。有些同学会疑问：我又不是计算机专业的，学习VB是不是十分痛苦。我告诉你们，非也！要是你对它感兴趣，很快，你会爱上它的。VB十分容易入门。设计用户界面就像我们平时制作PPT的界面一样。只需把你需要的控件拖到界面上并调整即可。VB的代码也很通俗易懂。其实基本上都是调用系统函数的。为抛砖引玉，现举个例子，简要介绍一下VB编写。（以下的所有例程都是基于VB6.0的，对于较高.net版本，可能有所不同）

任务1：软件界面上有一个文本框和按钮，当点击按钮时，文本框上显示“爱电子，

爱生活。华南理工大学电子爱好者协会”

1、运行VB，在新建程序的界面上画出一个

文本框（textbox）和按钮（command botton）。如图2所示；

2、双击按钮，出现代码编辑窗口。并在其中

输入代码，如图3所示；

3、运行程序，点击按钮，即可看到如图4

所示的效

果：是不是很简单呢？！

图2

图3

图1

图4

个人建议大一大二的师弟师妹应该学习如何用VB操作串口，特别是学会如何实现电脑跟单片机的通信。这样子，我们日后设计的电子作品必定增色不少。现在详细讲解一下如何用VB操作串口。（读者可去图书馆借阅相关图书，掌握串口跟VB的基础知识）

要用VB操作串口，需要用到Mscomm控件。VB的工具箱默认是没有该控件的。可通过“工程—>“部件”—>“Microsoft Comm Control6.0”，添加该控件。

在开始使用MSComm控件之前，需要先了解其主要的属性和事件

属性描述

CommPort设置或返回通信端口号

Settings以字符串的形式设置或返回波特率、奇偶校验、数据位和停止位PortOpen设置或返回通信端口的状态。也可以打开和关闭端口

Input返回和删除接收缓冲区中的字符

Output将字符串写入发送缓冲区

通信事件包含了下面的设置：

常量值描述

ComEvSend1发送缓冲区中的字符数比Sthreshold值低ComEvReceive2接收到了Rthreshold个字符。持续产生该事件，直到使

用了Input属性删除了接收缓冲区中的数据

ComEvCTS3CTS（Clear To Send）线改变

ComEvDSR4DSR（Data Set Ready）线改变。当DSR从1到0改变时，

该事件发生

ComEvCD5CD（Carrier Detect）线改变

ComEvRing6检测到响铃信号

ComEvEOF7收到了EOF字符（ASCII字符26）

以上的事件中，我们一般只用到ComEvSend和ComEvReceive事件。

学习过单片机串口通讯的同学都知道，读写串口数据有两种方法：事件驱动（中断）和查询方式。VB方面也是如此。另外，Mscomm控件还有一个重要的属性，那就是InputMode。当其值为0时，为文本模式；为1时，为二进制模式。这两种模式，区别很大。下面我用几个简单实例工程来详解这两种模式的要点和注意事项。

任务2：电脑显示单片机发送过来的文本数据

单片机端：使用51系列单片机AT89S52。如果单片机与电脑端的RS-232串口通信，需要在其间连接电平转换芯片（如MAX232）。当然，也可以使用USB转串口芯片完成单片

机跟电脑的硬件连接。注意，单片机使用11.0592M晶振。有些同学可能纳闷为什么会有这么一个精确到小数点后四位的晶振。我猜想那是为单片机和电脑通信而设计的。电脑的串口波特率不像单片机那样，可以随意设置。电脑端的合法波特率有“110,300,600,1200,2400, 4800,9600,14400,19200,38400,56000,57600,115200,128000,256000”，默认为9600。那我们看看如何编写单片机和电脑的代码来完成这个任务。

单片机端源代码：

#include//单片机的寄存器说明的头文件

#include//printf函数的头文件

void main()

{

SCON=0X40;//串口:方式1

TMOD=0X20;//定时器1：模式2，8位自动重装模式，用于产生波特率

TH1=0XFD;//初值设定波特率为9600，晶振：11.0592M

TL1=TH1;

EA=1;//开启总允许开关

TR1=1;//开启定时器1

printf("%s","我love你");//调用printf函数，将文本从串口输出

while(1);

}

电脑端源代码：（只需在前面的例子中添加Mscomm控件）

Private Sub Form_Load()‘窗体加载时运行的函数

mPort=4‘我用的是USB转串口，设备管理器中看到端口号为4 MSComm1.Settings="9600,n,8,1"‘波特率为9600，无检验，8位数据，1位停止位MSComm1.InputMode=comInputModeText‘该任务中只用到文本，使用文本模式MSComm1.RThreshold=1‘串口每收到1字节的数据，即产生接收中断MSComm1.PortOpen=True‘打开串口

End Sub

Private Sub MSComm1_OnComm()‘串口中断事件入口函数

If(mEvent=comEvReceive)Then‘如果串口收到数据Text1.Text=Text1.Text+MSComm1.Input‘在文本框中予以显示

End If

End Sub

运行效果如图5所示：

注意：实际上，单片机的发送数据线上传送了

8B的数据（十六进制表示为：CE D26C6F76

65C4E3）。而文本框中的“我love你”占用

了12B的内存。这又是为什么呢？因为VB中

使用的编码为Unicode。每个字符均占用2B。

串口的接收缓冲区中的数据为CE D26C6F

7665C4E3。由于将串口的接收模式为文本

模式，这就告诉系统，接收区中的数据均为文

图5本。当我们把串口接收的数据直接赋予文本框显示时，系统自动将其转换