用VB来实现单片机与PC之间通信

VB入门中
最简单入门教程
基于VB单片机与PC通信
一、目的和要求
1、掌握利用VB软件制做出通信界面；
2、掌握在VB中添加程序并能够写出发送数据的程序；
3、掌握单片机串行口通信原理；
4、掌握单片机接受串行口通信数据程序；
二、设备
1、Keilc51软件及电脑一台；
2、89C51单片机开发板一块；
3、Microsoft Visual Basic 6.0软件；
三、实验内容
本次课程设计就是利用Microsoft Visual Basic 6.0软件制作一个通信界面在界面上添加三个按钮，当按第一个按钮时单片机上的LED灯正转，当按第二个按
钮时单片机上的LED灯反转，当按第三个按钮时单片机上的LED灯闪烁。

单片机能正确接受并显示。

四、原理
串口是计算机上一种非常通用设备通信的协议〔不要与通用串行总线Universal Serial Bus或者USB混淆〕。

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

串口同时也是仪器仪表设备通用的通信协议；很多GPIB兼容的设备也带有RS-232口。

同时，串口通信协议也可以用于获取远程采集设备的数据。

串口通信的概念非常简单，串口按位〔bit〕发送和接收字节。

尽管比按字节〔byte〕的并行通信慢，但是串口可以在使用一根线发送数据的同时用另一根线接收数据。

它很简单并且能够实现远距离通信。

比方IEEE488定义并行通行状态时，规定设备线总常不得超过20米，并且任意两个设备间的长度不得超过2米；而对于串口而言，长度可达1200米。

五、步骤
1、在桌面上启动Microsoft Visual Basic 6.0软件
弹出对话框，点击标准EXE确定。

2、添加串口控件
点击工程-部件-Microsoft Comm control 6.0 即可
会在左方的工具栏出现该工具，双击此工具会在form1中出现。

3、初始化串口
双击form1中的空白区域
添加程序
MSComm1.Settings = "9600,n,8,1"
mPort = 4
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
mPort 取决你使用的串行口，在设备管理器中查看。

4、添加命令按钮并添加程序
双击左方工具栏commnd button添加三个按钮
在右下方的属性框中caption中更改名称；双击按钮添加程序。

分别在三个按钮中添加。

MSComm1.Output = "1"
MSComm1.Output = "2"
MSComm1.Output = "3"
5、运行
6、烧录单片机接收程序#include<reg51.h>
unsigned char flag;
unsigned char w,i;
unsigned int j;
void main()
{
TMOD=0x20;
TH1=0xfd;
TL1=0xfd;
TR1=1;
SCON=0x50;
PCON=0x00;
EA=1;
ES=1;
while(1);
}
void ser() interrupt 4
{
RI=0;
flag=SBUF;
if(flag=='1')
{
w=0xfe;
for(i=0;i<8;i++)
{
w=~((~w)<<i);
P1=w;
for(j=0;j<10000;j++);
}
}
else if(flag=='2')
{
w=0x7f;
for(i=0;i<8;i++)
{
w=~((~w)>>i);
P1=w;
for(j=0;j<10000;j++);
}
}
else if(flag=='3')
{
P1=0xff;
for(j=0;j<10000;j++);
P1=0x00;
for(j=0;j<10000;j++);
}
}
注：波特率9600,；
使用的I/O口：P1口接LED灯；
7、连接调试
将单片机通过串口线和PC相连，通过调试优化，即可实现。

六、感想
七、参考书目
09电子科学与技术本一班
吴帆。