帶溫度補(bǔ)償?shù)膯纹瑱C(jī)超聲波測距程序（Proteus仿真超聲波+DHT11）

ID:342451 · 發(fā)表于 2020-4-20 22:54

溫度補(bǔ)償?shù)某暡y距（仿真超聲波+DHT11）Proteus8.6版本
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）
TIM截圖20200420225331.png

單片機(jī)源程序如下:
#include <reg51.h>
#include "lcd.h"
#include <intrins.h>
/*對數(shù)據(jù)類型進(jìn)行聲明定義*/
typedef unsigned int u16;
typedef unsigned char u8;
/*外設(shè)IO定義*/
sbit Data = P3^7; //定義DHT11數(shù)據(jù)線
sbit Trig = P2^6;
sbit Echo = P2^7;
/*變量定義*/
u16 Distance=0;
bit flag =0;
u8 TEMP,HR;//采集值

void DHT11_delay_ms(u16 z)
{
u16 i,j;
for(i=z;i>0;i--)
   for(j=110;j>0;j--);
}
void DHT11_delay_us(u8 n)
{
while(--n);
}

void DHT11_start()
{
Data=1;
DHT11_delay_us(2);
Data=0;
DHT11_delay_ms(30); //延時(shí)18ms以上
Data=1;
DHT11_delay_us(30);
}

u8 DHT11_rec_byte()    //接收一個(gè)字節(jié)
{
u8 i,dat=0;
for(i=0;i<8;i++) //從高到低依次接收8位數(shù)據(jù)
{
   while(!Data); ////等待50us低電平過去
   DHT11_delay_us(8);    //延時(shí)60us，如果還為高則數(shù)據(jù)為1，否則為0
   dat<<=1;          //移位使正確接收8位數(shù)據(jù)，數(shù)據(jù)為0時(shí)直接移位
   if(Data==1) //數(shù)據(jù)為1時(shí)，使dat加1來接收數(shù)據(jù)1
      dat+=1;
   while(Data);  //等待數(shù)據(jù)線拉低
}
return dat;
}

void DHT11_receive()    //接收40位的數(shù)據(jù)
{
      u8 R_H,R_L,T_H,T_L,RH,RL,TH,TL,revise;
  DHT11_start();
  if(Data==0)
      {
            while(Data==0); //等待拉高
            DHT11_delay_us(40);  //拉高后延時(shí)80us
            R_H=DHT11_rec_byte(); //接收濕度高八位
            R_L=DHT11_rec_byte(); //接收濕度低八位
            T_H=DHT11_rec_byte(); //接收溫度高八位
            T_L=DHT11_rec_byte(); //接收溫度低八位
            revise=DHT11_rec_byte(); //接收校正位
            DHT11_delay_us(25); //結(jié)束
            if((R_H+R_L+T_H+T_L)==revise)    //校正
            {
                              RH=R_H;
                              RL=R_L;
                              TH=T_H;
                              TL=T_L;
            }
            /*數(shù)據(jù)處理，方便顯示*/
            TEMP=TH;
            HR=RH;
      }
      DisplayOneChar(5,0,'0'+(TEMP/10));
      DisplayOneChar(6,0,'0'+(TEMP%10));
      DisplayOneChar(12,0,'0'+(HR/10));
      DisplayOneChar(13,0,'0'+(HR%10));
}
void GetDistance() //超聲波測距
{
      static u16 time=0;
      TH0=0;
  TL0=0;

      Trig=1; //啟動一次模塊
  //時(shí)間要求很嚴(yán)格，否則會影響精度
      _nop_(); _nop_();_nop_(); _nop_(); _nop_(); _nop_();_nop_();
      _nop_(); _nop_();_nop_(); _nop_(); _nop_(); _nop_();_nop_();
      _nop_(); _nop_();_nop_(); _nop_(); _nop_(); _nop_();_nop_();
      Trig=0;

      while(!Echo);             //當(dāng)RX為零時(shí)等待
      TR0=1;                         //開啟計(jì)數(shù)
      while(Echo);             //當(dāng)RX為1計(jì)數(shù)并等待
      TR0=0;                               //關(guān)閉計(jì)數(shù)

      time=TH0*256+TL0;//計(jì)算時(shí)間
      TH0=0;
      TL0=0;
      Distance=(time*(331.4+0.607*TEMP))/20000;//算出來是CM,帶溫度補(bǔ)償

      if((Distance>=700)||flag==1) //超出測量范圍顯示“-”
      {
            flag=0;
            DisplayOneChar(5, 1, '-');
            DisplayOneChar(6, 1, '-');
            DisplayOneChar(7, 1, '-');
      }
      else
      {
            DisplayOneChar(5, 1, Distance/100+'0');
            DisplayOneChar(6, 1, Distance%100/10+'0');
            DisplayOneChar(7, 1, Distance%10+'0');
      }
}
void Timer0Init()//定時(shí)器0初始化
{
      TMOD|=0x01;                //設(shè)T0為方式1，GATE=1；
      TH0=0;
      TL0=0;
      ET0=1;       //允許T0中斷
      EA=1;                         //開啟總中斷
}
void main(void)
{
      Timer0Init();
      LcdInit();
      Trig=0;//初始化必不可少！！！
      DisplayListChar(0,0,"TEMP:");DisplayOneChar(7,0,'C');DisplayListChar(9,0,"HR:");DisplayOneChar(14,0,'%');
  DisplayListChar(0,1,"DIS:");DisplayListChar(9,1,"CM");
      while(1)
      {
            DHT11_receive();//溫濕度顯示
            GetDistance(); //超聲波測距
            DHT11_delay_ms(20);
      }
}
void Timer0() interrupt 1                //T0中斷用來計(jì)數(shù)器溢出,超過測距范圍
{
      flag=1;       //中斷溢出標(biāo)志
}

全部資料51hei下載地址：

溫度補(bǔ)償?shù)某暡y距.zip (142.65 KB, 下載次數(shù): 332)

ID:734442 · 發(fā)表于 2020-4-21 16:14

感謝樓主，

ID:582255 · 發(fā)表于 2020-4-25 23:13

沒看明白是怎么根據(jù)溫度進(jìn)行修正的？

ID:515664 · 發(fā)表于 2020-4-26 13:08

感謝樓主

ID:342451 · 發(fā)表于 2020-4-26 14:41

aktuan007 發(fā)表于 2020-4-25 23:13
沒看明白是怎么根據(jù)溫度進(jìn)行修正的？

看距離計(jì)算公式那里

ID:776782 · 發(fā)表于 2020-6-12 00:06

感謝樓主

ID:783739 · 發(fā)表于 2020-6-19 02:12

感洗樓主呀謝謝

ID:831814 · 發(fā)表于 2020-10-19 20:16

程序編譯時(shí)出現(xiàn)錯(cuò)誤，說宏過于嵌套，怎么搞

ID:900041 · 發(fā)表于 2021-5-2 13:43

特別感謝，我也是溫度補(bǔ)償加超聲波測距，但是我溫度哪里用了AD轉(zhuǎn)換，導(dǎo)致仿真不顯示，但兩個(gè)模塊單獨(dú)作用都沒問題，但不能合在一起。一直找不到原因，希望有用

ID:913005 · 發(fā)表于 2021-5-5 16:04

我現(xiàn)在把溫度做完了，也就差個(gè)超聲波測距了，

帳號		自動登錄	找回密碼
密碼			立即注冊

久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

帶溫度補(bǔ)償?shù)膯纹瑱C(jī)超聲波測距程序（Proteus仿真超聲波+DHT11）

評分