找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開始

搜索
查看: 1502|回復(fù): 1
打印 上一主題 下一主題
收起左側(cè)

基于紅外反射式的行車測(cè)速單片機(jī)代碼

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:1006601 發(fā)表于 2022-2-24 16:04 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
程序源代碼
#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;  
        }        
}
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:8222 發(fā)表于 2022-2-25 10:05 | 只看該作者
紅外線速度很快,怎么用超聲波原理測(cè)速?請(qǐng)樓主賜教。
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表