用2051做超聲波測(cè)距源程序和電路圖

《用2051做超聲波測(cè)距源程序和電路圖》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、用2051做超聲波測(cè)距的源程序和電路圖#include#definek1P3_4#definecsboutP3_5//超聲波發(fā)送#definecsbintP3_7//超聲波接收#definecsbc=0.034#definebgP3_3unsignedcharcsbds,opto,digit,buffer[3],xm1,xm2,xm0,key,jpjs;//顯示標(biāo)識(shí)unsignedcharconvert[10]={0x3F,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};//0~9段碼unsignedints,t,i,xx,

2、j,sj1,sj2,sj3,mqs,sx1;bitcl;voidcsbcj();voiddelay(j);//延時(shí)函數(shù)voidscanLED();//顯示函數(shù)voidtimeToBuffer();//顯示轉(zhuǎn)換函數(shù)voidkeyscan();voidk1cl();voidk2cl();voidk3cl();voidk4cl();voidoffmsd();voidmain()//主函數(shù){EA=1;//開(kāi)中斷TMOD=0x11;//設(shè)定時(shí)器0為計(jì)數(shù)，設(shè)定時(shí)器1定時(shí)ET0=1;//定時(shí)器0中斷允許ET1=1;//定時(shí)器1中斷允許TH0=0x00;TL0=0x00;TH1=0x9E;TL1=0x57

3、;csbds=0;csbint=1;csbout=1;cl=0;opto=0xff;jpjs=0;sj1=45;sj2=200;sj3=400;k4cl();TR1=1;while(1){keyscan();if(jpjs<1){csbcj();if(s>sj3){buffer[2]=0x76;buffer[1]=0x76;buffer[0]=0x76;}elseif(s

4、;scanLED();//顯示函數(shù)if(s>=1;//循環(huán)右移1位}}voidtimeToBuffer()//轉(zhuǎn)換段碼功能模塊{xm0=s/100;xm1=(s-100*xm0)/10;xm2=s-100*

5、xm0-10*xm1;buffer[2]=convert[xm2];buffer[1]=convert[xm1];buffer[0]=convert[xm0];}voiddelay(i){while(--i);}voidtimer1int(void)interrupt3using2{TH1=0x9E;TL1=0x57;csbds++;if(csbds>=40){csbds=0;cl=1;}}voidcsbcj(){if(cl==1){TR1=0;TH0=0x00;TL0=0x00;i=10;while(i--){csbout=!csbout;}TR0=1;i=mqs;//盲區(qū)while(i

6、--){}i=0;while(csbint){i++;if(i>=2450)//上限值csbint=0;}TR0=0;TH1=0x9E;TL1=0x57;t=TH0;t=t*256+TL0;s=t*csbc/2;TR1=1;cl=0;}}voidkeyscan()//健盤處理函數(shù){xx=0;if(k1!=1)//判斷開(kāi)關(guān)是否按下{delay(400);//延時(shí)去抖動(dòng)if(k1!=1)//判斷開(kāi)關(guān)是否按下{while(!k1){delay(30);xx++;}if(xx>2000){jpjs++;if(jpjs>4)jpjs=0;}xx=0;switch(jpjs){case1:k1cl()

7、;break;case2:k2cl();break;case3:k3cl();break;case4:k4cl();break;}}}}voidk1cl(){sj1=sj1+5;if(sj1>100)sj1=30;s=sj1;}voidk2cl(){sj2=sj2+5;if(sj2>500)sj2=40;s=sj2;}voidk3cl(){sj3=sj3+10;if(sj3>500)sj3=100;s=sj3;}void