VB上位机+单片机下位机串口通信的源码

ID:211920 · 发表于 2017-6-16 18:02

网上找的一些VB串口通信的源码大家可以学习一下

上位机和下位机的源码都有：

首先烧写程序到单片机晶振 11.0592MHZ

连接好串口线

打开上位机软件选择好COM端口

设置波特率为9600

单片机源程序如下:

#include <reg51.h>
#include <intrins.h>
unsigned char tmp;
#define DataPort P1 //定义数据端口程序中遇到DataPort 则用P0 替换
sbit LATCH1=P2^2;//定义锁存使能端口段锁存
sbit LATCH2=P2^3;// 位锁存
unsigned char code DuanMa[10]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};// 显示段码值0~9
unsigned char code WeiMa[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f};//分别对应相应的数码管点亮,即位码
unsigned char TempData[8]; //存储显示值的全局变量
void DelayUs2x(unsigned char t);//函数声明
void DelayMs(unsigned char t);
void Display(unsigned char FirstBit,unsigned char Num);
void send_char(unsigned char txd);
main()
{
TMOD = 0x20; // 定时器1工作于8位自动重载模式, 用于产生波特率
TH1 = 0xFD; // 波特率9600
TL1 = 0xFD;
SCON = 0x50; // 设定串行口工作方式
PCON &= 0xef; // 波特率不倍增
TR1 = 1; // 启动定时器1
IE = 0x0; // 禁止任何中断
while(1)
{
if(RI) // 是否有数据到来
{
RI = 0;
tmp = SBUF; // 暂存接收到的数据
P0 = tmp; // 数据传送到P0口
send_char(tmp); // 回传接收到的数据
}
TempData[5]=DuanMa[tmp/100];//分解显示信息，如要显示68，则68/10=6 68%10=8
if(tmp>99) TempData[6]=DuanMa[tmp/10%10];
if(tmp<100)TempData[6]=DuanMa[tmp/10];
TempData[7]=DuanMa[tmp%10];
Display(0,8); //显示全部8位
}
}
void send_char(unsigned char txd)
// 传送一个字符
{
SBUF = txd;
while(!TI); // 等特数据传送
TI = 0; // 清除数据传送标志
}
/*------------------------------------------------
显示函数，用于动态扫描数码管
输入参数 FirstBit 表示需要显示的第一位，如赋值2表示从第三个数码管开始显示
如输入0表示从第一个显示。
Num表示需要显示的位数，如需要显示99两位数值则该值输入2
------------------------------------------------*/
void Display(unsigned char FirstBit,unsigned char Num)
{
unsigned char i;
for(i=0;i<Num;i++)
{
DataPort=0; //清空数据，防止有交替重影
LATCH1=1; //段锁存
LATCH1=0;
DataPort=WeiMa[i+FirstBit]; //取位码
LATCH2=1; //位锁存
LATCH2=0;
DataPort=TempData[i]; //取显示数据，段码
LATCH1=1; //段锁存
LATCH1=0;
DelayMs(2); // 扫描间隙延时，时间太长会闪烁，太短会造成重影
}
}
void DelayUs2x(unsigned char t)
{
while(--t);
……………………
…………限于本文篇幅余下代码请从51黑下载附件…………