工控论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 0|回复: 0

用vb上位机控制51单片机测距的源码

[复制链接]

425

主题

431

帖子

296

积分

初级会员

Rank: 2

工控币
296
发表于 2020-4-29 16:33:39 | 显示全部楼层 |阅读模式
vb上位机的运行界面:
155441hcuugy8xpgy7uhdo.png

155456ioohyjoa7yzo9v77.png
单片机源程序:
/***********************************
   函数:uint Conut(void)
------------------------
   说明:计算测到的距离
   参数:无
返回值:测得的距离
***********************************/
uint Conut(void)
{
        uint time;                                               // 用于记录测得的时间
        uint ss;                                                // 用于记录测得的距离
        time = (TH0*256+TL0)*1.09;                // 总时间               
        TH0=0;
        TL0=0;
        if(flag==1)                                                   // 如果超出测量距离,则不传输数据
        {
                flag=0;
                ss=0;
        }
        else
        {
                ss=time*1.7/100;                           // 空气中声音的速度是340m/s
        }
        return ss;
}


/***********************************
   函数:void send(uint dat)
---------------------------
   说明:将测得的距离通过串口发送出去
   参数:dat是测得的距离
返回值:无
***********************************/        
void Send(uint dat)
{
        SBUF=(dat/100)+ 48;                        // 发送 百 位
        while(!TI);
        TI=0;
        SBUF=(dat%100/10)+48;                // 发送 十 位
        while(!TI);
        TI=0;
        SBUF=(dat%10)+48;                        // 发送 个 位
        while(!TI);
        TI=0;
}
详细代码见附件
51单片机测距上位机和下位机源码.zip  [预览压缩包] (44.63 KB, 售价: 1 工控币)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

免责声明: 工控技术网(www.eleok.com)所有内容均为网友自行发布,不代表网站立场。如有版权纠纷,请联系本站删除:1370723259@qq.com

QQ|小黑屋|手机版|工控技术网 |网站地图

GMT+8, 2020-9-30 08:10

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表