标题:
VB上位机+单片机下位机串口通信的源码
[打印本页]
作者:
雪过留痕
时间:
2017-6-16 18:02
标题:
VB上位机+单片机下位机串口通信的源码
网上找的一些VB串口通信的源码大家可以学习一下
上位机和下位机的源码都有:
0.png
(38.01 KB, 下载次数: 219)
下载附件
2017-6-16 19:56 上传
首先 烧写程序到单片机 晶振 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黑下载附件…………
复制代码
所有资料51hei提供下载:
51CTO下载-原创 VB上位机控制LED灯程序.rar
(65.36 KB, 下载次数: 239)
2017-6-16 18:01 上传
点击文件名下载附件
下载积分: 黑币 -5
作者:
minisunelec
时间:
2017-11-28 19:15
显示函数,用于动态扫描数码管
输入参数 FirstBit 表示需要显示的第一位,如赋值2表示从第三个数码管开始显示
如输入0表示从第一个显示。
作者:
supercoko
时间:
2019-4-5 13:08
上位机不太会
作者:
big_zhuang
时间:
2019-6-22 15:21
正需要这个
作者:
hbthgsli
时间:
2019-7-12 19:07
正需要这个
作者:
tianshengcai1
时间:
2020-12-11 15:02
手上有个项目要做上位机控制,正好可以参考一下
作者:
wjp19851222
时间:
2021-5-15 12:42
请问楼主VB这块参考哪些方面素材可以短时间搞定
欢迎光临 (http://www.51hei.com/bbs/)
Powered by Discuz! X3.1