欧美成人精品高清视频在线,久久人人爽人人爽人人av片,安全配资平台

標(biāo)題: 帶溫度補(bǔ)償?shù)膯纹瑱C(jī)超聲波測(cè)距程序（Proteus仿真超聲波+DHT11） [打印本頁(yè)]

作者: 之一知足 時(shí)間: 2020-4-20 22:54
標(biāo)題: 帶溫度補(bǔ)償?shù)膯纹瑱C(jī)超聲波測(cè)距程序（Proteus仿真超聲波+DHT11）
溫度補(bǔ)償?shù)某暡y(cè)距（仿真超聲波+DHT11）Proteus8.6版本
仿真原理圖如下（proteus仿真工程文件可到本帖附件中下載）

單片機(jī)源程序如下:
#include <reg51.h>
#include "lcd.h"
#include <intrins.h>
/*對(duì)數(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低電平過(guò)去
   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來(lái)接收數(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() //超聲波測(cè)距
{
      static u16 time=0;
      TH0=0;
  TL0=0;

      Trig=1; //啟動(dòng)一次模塊
  //時(shí)間要求很?chē)?yán)格，否則會(huì)影響精度
      _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;                         //開(kāi)啟計(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;//算出來(lái)是CM,帶溫度補(bǔ)償

      if((Distance>=700)||flag==1) //超出測(cè)量范圍顯示“-”
      {
            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;                         //開(kāi)啟總中斷
}
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(); //超聲波測(cè)距
            DHT11_delay_ms(20);
      }
}
void Timer0() interrupt 1                //T0中斷用來(lái)計(jì)數(shù)器溢出,超過(guò)測(cè)距范圍
{
      flag=1;       //中斷溢出標(biāo)志
}

全部資料51hei下載地址：

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

作者: waxx12345 時(shí)間: 2020-4-21 16:14
感謝樓主，

作者: aktuan007 時(shí)間: 2020-4-25 23:13
沒(méi)看明白是怎么根據(jù)溫度進(jìn)行修正的？

作者: 791783213 時(shí)間: 2020-4-26 13:08
感謝樓主

作者: 之一知足 時(shí)間: 2020-4-26 14:41

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

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

作者: 123456789nm 時(shí)間: 2020-6-12 00:06
感謝樓主

作者: 1667718282 時(shí)間: 2020-6-19 02:12
感洗樓主呀謝謝

作者: 南暖暖 時(shí)間: 2020-10-19 20:16
程序編譯時(shí)出現(xiàn)錯(cuò)誤，說(shuō)宏過(guò)于嵌套，怎么搞

作者: 過(guò)云雨12 時(shí)間: 2021-5-2 13:43
特別感謝，我也是溫度補(bǔ)償加超聲波測(cè)距，但是我溫度哪里用了AD轉(zhuǎn)換，導(dǎo)致仿真不顯示，但兩個(gè)模塊單獨(dú)作用都沒(méi)問(wèn)題，但不能合在一起。一直找不到原因，希望有用

作者: zhou1600105834 時(shí)間: 2021-5-5 16:04
我現(xiàn)在把溫度做完了，也就差個(gè)超聲波測(cè)距了，

歡迎光臨 (http://www.torrancerestoration.com/bbs/)