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

coolice

vb上位机的运行界面：



单片机源程序：

/***********************************
   函数：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 工控币)

2020-4-29 16:33 上传

点击文件名下载附件