比特138

 找回密码
 立即注册
搜索
查看: 70|回复: 0

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

[复制链接]

485

主题

485

帖子

104

积分

初级会员

Rank: 2

金币
104
发表于 2020-4-29 16:32:57 | 显示全部楼层 |阅读模式
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 金币)
回复

使用道具 举报

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

本版积分规则

手机版|小黑屋|比特138 |网站地图

GMT+8, 2020-9-24 23:44 , Processed in 0.025653 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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