立即注冊 登錄
返回首頁

uid:277738的個人空間

日志

簡單C51交通燈的程序紅綠燈

已有 1079 次閱讀2018-1-19 14:41

 /**********************BST-M51實驗開發(fā)板例程************************
*  平臺:BST-M51 + Keil U4 + STC89C52
*  名稱:模擬交通燈顯示。
  其中,紅燈與綠燈顯示時間均為50s,中間的黃燈顯示時間為15s。
  綠燈用八位發(fā)光二極管流動閃爍作代表;
  紅燈用八位發(fā)光二極管全亮作代表;
  黃燈用八位發(fā)光二極管全亮全滅閃爍作代表。
  剛開始顯示的為綠燈。
  顯示順序:綠--黃--紅--黃--綠--黃--紅--………………
*  公司:深圳市亞博軟件開發(fā)有限公司       
*  日期:2015-6
*  晶振:11.0592MHZ
*  說明:免費開源,不提供源代碼分析.
******************************************************************/

#include<reg51.h>

#define uchar unsigned char
#define uint unsigned int

#define dula P0 //段選信號的鎖存器控制
#define wela P2 //位選信號的鎖存器控制,這里只用到P2.4-P2.7

sbit beep=P2^3;

unsigned int pp;
unsigned char code table[]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,
                        0x07,0x7f,0x6f,0x77,0x7c,0x39,0x5e,0x79,0x71};
uchar j,k,l=255;
uchar a1,a0;
uchar shijian,deng=2;
void delay(unsigned int i)
{
  for(j=i;j>0;j--)
    for(k=125;k>0;k--);
}

void display(unsigned char sh_c,unsigned char g_c)
{
   wela = wela&0x0f; 
   dula=table[g_c];
   wela = wela|0x80;
   delay(5);
   
   wela = wela&0x0f; 
   dula=table[sh_c];
   wela = wela|0x40;
   delay(5);
}

void main()
{
TMOD=0x01;
TR0=1;
TH0=(65536-46080)/256;// 由于晶振為11.0592,故所記次數(shù)應(yīng)為46080,計時器每隔50000微秒發(fā)起一次中斷。
TL0=(65536-46080)%256;//46080的來歷,為50000*11.0592/12
ET0=1;
EA=1;
while(1)
{
if(shijian==0)
{
switch(deng)
{
case 0: shijian=50;   //紅燈
deng=1;
break;
case 1: shijian=15;   //黃燈
deng=2;
break;
case 2: shijian=50;   //綠燈
deng=3;
break;
case 3: shijian=15;   //黃燈
deng=0;
break;
}
}
if(pp==20)
{ pp=0;
shijian--;
}
a0=shijian%10;
a1=shijian/10;
display(a1,a0);
switch(deng)
{
case 1: P1=0X00; //紅燈
break;
case 2: //黃燈
if(shijian%2==0)
P1=0x00;
if(shijian%2==1)
P1=0xff;
break;
case 3: //綠燈
if(shijian%2==0)
P1=0x55;
if(shijian%2==1)
P1=0xaa;
break;
case 0: if(shijian%2==0)   //黃燈
P1=0x00;
if(shijian%2==1)
P1=0xff;
break;
}
}
}

void time0() interrupt 1
{ TH0=(65536-46080)/256;
TL0=(65536-46080)%256;
pp++;
}


路過

雞蛋

鮮花

握手

雷人

評論 (0 個評論)

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

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

返回頂部