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

显示全部楼层 · 2020-4-29 16:33:39

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 工控币)

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

相关帖子