pililed.c

这是一个八路跑马灯的实验在单片机做跑马灯时经常用到 希望能对大家有帮助

/*******************************************************************************
* 花样流水灯                                                                   *
* P0---8个LED和P2---8个LED   硬件：8路指示灯接P0口，或者P2口                   *
********************************************************************************
*  日期:  2007-3-25                                                            *
*  版本:  3.0                                                                  *
*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
*  邮箱: [e-mail]                                                       *
*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
********************************************************************************
*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
********************************************************************************
* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
********************************************************************************/
#include <reg51.h>
#include <intrins.h>
#define uchar unsigned char
#define uint  unsigned int
uchar  scan_num;
/**********************************************************
  延时函数
**********************************************************/
void delay(uint ms) 
{
  uchar k;
  while(ms--)
  {
    for(k = 0; k < 120; k++);
  }
}       
/**********************************************************
  主函数
**********************************************************/
void main(void)
{
   uchar i;
   P0 = 0xff;
   P2 = 0xff;
   while(1)
   {
   	 scan_num = 0xfe;
   	 for(i=0;i<7;i++)
   	 {
   	   P0 = scan_num;
	   P2 = scan_num;
	   scan_num = (scan_num<<1)|0x01;
       delay(200);
	 }
     for(i=0;i<7;i++)
   	 {
   	   P0 = scan_num;
	   P2 = scan_num;
	   scan_num = (scan_num>>1)|0x80;
       delay(200);
	 }
   }
}
/**********************************************************/