長沙航空職業(yè)技術學院超聲波測距論文-資料下載頁
2025-06-26 15:25本頁面
【正文】 占操，梁厚琴，[18] ：武漢華中科技大學出版社，2002 .5[19] 繼興，2003[20] ， 附 錄附錄一 超聲波測距電路原理圖附錄二超聲波測距電路 附錄三程序清單INCLUDE DEFINE K1 P3_4DEFINE CSBOUT P3_5 //超聲波發(fā)送DEFINE CSBINT P3_7 //超聲波接收DEFINE CSBC=DEFINE BG P3_3UNSIGNED CHAR CSBDS,OPTO,DIGIT,BUFFER[3],XM1,XM2,XM0,KEY,JPJS。//顯示標識UNSIGNED CHARCONVERT[10]={0X3F,0X06,0X5B,0X4F,0X66,0X6D,0X7D,0X07,0X7F,0X6F}。//0~9段碼UNSIGNED INT S,T,I, XX,J,SJ1,SJ2,SJ3,MQS,SX1。BIT CL。VOID CSBCJ()。VOID DELAY(J)。 //延時函數(shù)VOID SCANLED()。 //顯示函數(shù)VOID TIMETOBUFFER()。 //顯示轉換函數(shù)VOID KEYSCAN()。VOID K1CL()。VOID K2CL()。VOID K3CL()。VOID K4CL()。VOID OFFMSD()。VOID MAIN() //主函數(shù){EA=1。 //開中斷TMOD=0X11。 //設定時器0 為計數(shù)，設定時器1 定時ET0=1。 //定時器0 中斷允許ET1=1。 //定時器1 中斷允許TH0=0X00。TL0=0X00。TH1=0X9E。TL1=0X57。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(JPJS1){CSBCJ()。IF(SSJ3){BUFFER[2]=0X76。BUFFER[1]=0X76。BUFFER[0]=0X76。}ELSE IF(SSJ1){BUFFER[2]=0X40。BUFFER[1]=0X40。BUFFER[0]=0X40。}ELSE TIMETOBUFFER()。}ELSE TIMETOBUFFER()。 //將值轉換成LED 段碼OFFMSD()。SCANLED()。 //顯示函數(shù)IF(SSJ2)BG=0。BG=1。}}VOID SCANLED() //顯示功能模塊{DIGIT=0X04。FOR( I=0。 I3。 I++) //3 位數(shù)顯示{P3=~DIGITamp。OPTO。 //依次顯示各位數(shù)P1=~BUFFER。 //顯示數(shù)據(jù)送P1 口DELAY(20)。 //延時處理P1=0XFF。 //P1 口置高電平（關閉）IF((P3amp。0X10)==0) //判斷3 位是否顯示完KEY=0。DIGIT=1。 //循環(huán)右移1 位}}VOID TIMETOBUFFER() //轉換段碼功能模塊{XM0=S/100。XM1=(S100*XM0)/10。XM2=S100*XM010*XM1。BUFFER[2]=CONVERT[XM2]。BUFFER[1]=CONVERT[XM1]。BUFFER[0]=CONVERT[XM0]。}VOID DELAY(I){WHILE(I)。}VOID TIMER1INT (VOID) INTERRUPT 3 USING 2{TH1=0X9E。TL1=0X57。CSBDS++。IF(CSBDS=40){CSBDS=0。CL=1。}}VOID CSBCJ(){IF(CL==1){TR1=0。TH0=0X00。TL0=0X00。I=10。WHILE(I){CSBOUT=!CSBOUT。}TR0=1。I=MQS。 //盲區(qū)WHILE(I)I=0。WHILE(CSBINT){I++。IF(I=2450) //上限值2 5CSBINT=0。}TR0=0。TH1=0X9E。TL1=0X57。T=TH0。T=T*256+TL0。S=T*CSBC/2。TR1=1。CL=0。}}VOID KEYSCAN() //健盤處理函數(shù){XX=0。IF(K1!=1) // 判斷開關是否按下{DELAY(400)。 //延時去抖動IF(K1!=1) // 判斷開關是否按下{WHILE(!K1){DELAY(30)。XX++。}IF(XX2000){ JPJS++。IF(JPJS4)JPJS=0。}XX=0。SWITCH(JPJS){CASE 1: K1CL()。BREAK。CASE 2: K2CL()。BREAK。CASE 3: K3CL()。BREAK。CASE 4: K4CL()。BREAK。}}}}VOID K1CL(){ SJ1=SJ1+5。IF(SJ1100)SJ1=30。S=SJ1。}VOID K2CL(){SJ2=SJ2+5。IF(SJ2500)SJ2=40。S=SJ2。}VOID K3CL(){SJ3=SJ3+10。IF(SJ3500)SJ3=100。S=SJ3。}VOID K4CL(){SX1=SJ11。SX1=SX1/CSBC。MQS=SX1/。}VOID OFFMSD(){IF (BUFFER[0] == 0X3F)BUFFER[0] = 0X00。
環(huán)評公示相關推薦
鄂ICP備17016276號-1