lsd3.c

51单片机试验板-sch-pcb-4.0M.zip

/*-------------------------
试验名称：流水灯试验<2>  
功能：从上到下依次亮，再从下到上一次亮，间隔为0.5s
软件：Keil uVision2
硬件: SKY_A
作者：朱雷
日期：2007/12/29
版本：1.1
声明：源码均为自己独立完成，仅供所需朋友参考。
----------------------------*/
#include<reg52.h>
#include <intrins.h>

#define uchar unsigned char
#define uint  unsigned int
sbit   led_contr=P2^7;//选通74hc5273

void delay_50ms(uint t)   //延时50ms
{
  uint i;
  for(;t>0;t--)
    for(i=6245;i>0;i--);

}



void main() 
{   
   uchar  a,i;
   i=0;
   led_contr=0;   
   P1=0;           //点亮全部LED，测试led的好坏
   delay_50ms(20);
   P1=0xff;        //关闭
   while(1)
    {  P1=0xfe;    //点亮第一个灯
       a=P1;
       delay_50ms(10);
       for(i=1;i<8;i++)
       {
         P1=_crol_(a,i);//循环向左移
         delay_50ms(10);         
       }               
       for(i=2;i<8;i++)
       { 
         P1=_cror_(a,i);//循环向右移 
         delay_50ms(10);
       }
      
    }

}