標(biāo)題: 基于紅外反射式的行車測(cè)速單片機(jī)代碼 [打印本頁]

---

作者: 朱銀炳    時(shí)間: 2022-2-24 16:04
標(biāo)題: 基于紅外反射式的行車測(cè)速單片機(jī)代碼
程序源代碼
#include<reg52.h>
#define uint unsigned int
uint temp,qian,bai,shi,ge,aa,n;
sbit dula=P0;
sbit wela=P1;
sbit zd=P3^2;
uint code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};

void display(uint qian,uint bai,uint shi,uint ge);        
void delay (uint z);
void init();

void main()
{        
        EA=1;//開總中斷
        EX0=1;//開外部中斷0
        init();//初始化子程序
        while(1)
        {
          display(qian,bai,shi,ge);
        }
}

void delay(uint z)
{
        uint x,y;
        for(x=z;x>0;x--)
                for(y=110;y>0;y--);
}

void display(uint qian,uint bai,uint shi,uint ge)
{
        P0=table[qian];
        P1=0xf7;
        delay(1);

        P0=table[bai];
        P1=0xfb;
        delay(1);

        P0=table[shi];
        P1=0xfd;
        delay(1);

        P0=table[ge];
        P1=0xfe;
        delay(1);
}

void exter0() interrupt 0
{
    n++;
        while(zd==0);               
}

void init()
{        
        wela=0;
        dula=0;
        temp=0;
        TMOD=0x01;
        TCON|=0X04;
        TH0=(65536-50000)/256;
        TL0=(65536-50000)%256;
        EA=1;
        ET0=1;
        TR0=1;        
}

timer0() interrupt 1
{
        TH0=(65536-50000)/256;
        TL0=(65536-50000)%256;
        aa++;
        if(aa==20)
        {
          aa=0;
          temp=20*n;
          n = 0;
          qian=temp/1000;
          bai=temp%1000/100;
          shi=temp%100/10;
          ge=temp%10;  
        }        
}

---

作者: 溫xyz    時(shí)間: 2022-2-25 10:05
紅外線速度很快，怎么用超聲波原理測(cè)速？請(qǐng)樓主賜教。

---

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

Powered by Discuz! X3.1