一個超聲波測距的程序源碼

1、一個超聲波測距的程序源碼下面是一個超聲波測距的程序，硬件電路由于電腦格盤已丟失，下面的代碼是從樣機(jī)上復(fù)制的。硬件電路包括液晶顯示、超聲波的發(fā)射、超聲波的接受、濾波、單片機(jī)處理。液晶顯示采用LCD1602模塊，下面的代碼里有液晶的驅(qū)動，可以拷貝用于它處。超聲波發(fā)射電路包括壓電換能器及其支持電路，發(fā)射約44KHz的超聲波。超聲波的接收電路包含一塊CD40106處理芯片。技術(shù)指標(biāo)大約是測距范圍在三米左右，測量精度約在厘米級別。大量用于倒車?yán)走_(dá)的測距中。#include<reg51.h>#include <intrins.h>#define Busy  &#

2、160; 0x80  /用于檢測LCM狀態(tài)字中的Busy標(biāo)識#define LCM_Data  P0 #define uchar unsigned char#define uint  unsigned int#define ulong unsigned longextern void cs_t(void);extern void delay(uint);void LCMInit(void);void DisplayOneChar(uchar X, uchar Y, uchar DData);void DisplayListChar(u

3、char X, uchar Y, uchar  *DData);void Delay5Ms(void);void Delay100Ms(void);void WriteDataLCM(uchar WDLCM);void WriteCommandLCM(uchar WCLCM,BuysC);data float distant=0.0;uchar ReadDataLCM(void);uchar ReadStatusLCM(void);uchar  cdle_net = "-Daoche_Leida-"uchar  e

4、mail = "Juli:"uchar  cls="         "uchar DIS7;data ulong time;float distant;sbit LCM_RS=P11;  /定義LCD引腳sbit LCM_RW=P12; sbit LCM_E=P13; sbit P10=P10;data uchar flag;void zhuanhuan(float juli)unsigned long juli1;juli

5、1=juli*100;DIS6=juli1%10+0x30;juli1=juli1/10;DIS5=juli1%10+0x30;juli1=juli1/10;DIS4='.'DIS3=juli1%10+0x30;juli1=juli1/10;DIS2=juli1%10+0x30;juli1=juli1/10;DIS1=juli1%10+0x30;DIS0=juli1/10+0x30;void main(void)        Delay100Ms(); /啟動等待，等LCM講入工作狀態(tài)  

6、;  P10=1;        TMOD=0x01;             /計(jì)數(shù)器0工作在方式1    TH0=0;    TL0=0;                

7、60; /計(jì)數(shù)值初始化    IT1=0;                 /低電平觸發(fā)中斷    EA=1;                /開總中斷    /IP=0

8、x04;             /設(shè)置外部中斷1為高優(yōu)先級中斷    flag=0;    LCMInit(); /LCM初始化            while(1)         cs_t()

9、;     Delay5Ms();             ET0=1;         /打開計(jì)數(shù)器0中斷     EX1=1;         /打開外部中斷1     TR0

10、=1;     while(!flag)            DisplayListChar(0, 0, cdle_net);      DisplayListChar(0, 1, email);          if(flag=1)       

11、0;   time=TH0;      time=(time<<8)|TL0;      distant=time*1.72/100;      zhuanhuan(distant);      if(DIS0='0')      Displ

12、ayOneChar(5,1,' ');      else   DisplayOneChar(5,1,DIS0);      if(DIS0='0')&&(DIS1='0')      DisplayOneChar(6,1,' ');      else &#

13、160; DisplayOneChar(6,1,DIS1);      if(DIS0='0')&&(DIS1='0')&&(DIS2='0')  DisplayOneChar(7,1,' ');      else   DisplayOneChar(7,1,DIS2);    &#

14、160; DisplayOneChar(8,1,DIS3);      DisplayOneChar(9,1,DIS4);      DisplayOneChar(10,1,DIS5);      DisplayOneChar(11,1,DIS6);      DisplayOneChar(12,1,'c');  

15、;    DisplayOneChar(13,1,'m');      flag=0;           else           DisplayListChar(5,1,"error!      "

16、;);      flag=0;          TH0=0;     TL0=0;    Delay100Ms();    void cs_r(void) interrupt 2TR0=0;EX1=0;ET0=0;flag=1;void overtime(void) interrupt 1EX1=0;TR0=0;ET0=0;flag=

17、2;/寫數(shù)據(jù)void WriteDataLCM(uchar WDLCM)     ReadStatusLCM(); /檢測忙    LCM_Data=WDLCM;    LCM_RS=1;    LCM_RW=0;    LCM_E=0; /若晶振速度太高可以在這后加小的延時    LCM_E=0; /延時    LC

18、M_E=1;/寫指令void WriteCommandLCM(uchar WCLCM,BuysC) /BuysC為0時忽略忙檢測    if (BuysC) ReadStatusLCM(); /根據(jù)需要檢測忙    LCM_Data = WCLCM;    LCM_RS = 0;    LCM_RW = 0;        LCM_E = 0; &

19、#160;  LCM_E = 0;    LCM_E = 1;    /讀數(shù)據(jù)uchar ReadDataLCM(void)    LCM_RS = 1;     LCM_RW = 1;    LCM_E = 0;    LCM_E = 0;    LCM_E = 1;  

20、60; return(LCM_Data);/讀狀態(tài)uchar ReadStatusLCM(void)    LCM_Data=0xFF;     LCM_RS=0;    LCM_RW=1;    LCM_E=0;    LCM_E=0;    LCM_E=1;    while(LCM_Data &

21、 Busy); /檢測忙信號    return(LCM_Data);void LCMInit(void) /LCM初始化    LCM_Data=0;    WriteCommandLCM(0x38,0); /三次顯示模式設(shè)置，不檢測忙信號    Delay5Ms();     WriteCommandLCM(0x38,0);    Delay5Ms();

22、     WriteCommandLCM(0x38,0);    Delay5Ms();     WriteCommandLCM(0x38,1); /顯示模式設(shè)置,開始要求每次檢測忙信號    WriteCommandLCM(0x08,1); /關(guān)閉顯示    WriteCommandLCM(0x01,1); /顯示清屏    WriteCommandLCM

23、(0x06,1); / 顯示光標(biāo)移動設(shè)置    WriteCommandLCM(0x0F,1); / 顯示開及光標(biāo)設(shè)置/按指定位置顯示一個字符void DisplayOneChar(uchar X, uchar Y, uchar DData)    Y &= 0x1;    X &= 0xF; /限制X不能大于15，Y不能大于1    if (Y) X |= 0x40; /當(dāng)要顯示第二行時地址碼+0x40; &

24、#160;  X |= 0x80; /算出指令碼    WriteCommandLCM(X, 1); /發(fā)命令字    WriteDataLCM(DData); /發(fā)數(shù)據(jù)/按指定位置顯示一串字符void DisplayListChar(uchar X, uchar Y, uchar  *DData)    uchar ListLength;  ListLength = 0;   

25、0;Y &= 0x1;    X &= 0xF; /限制X不能大于15，Y不能大于1    while (DDataListLength>0x20) /若到達(dá)字串尾則退出                    if (X <= 0xF) /X坐標(biāo)應(yīng)小于0xF   

26、;                                 DisplayOneChar(X, Y, DDataListLength); /顯示單個字符          &