xl8led.c

51单片机 延时实现p1口LED流水灯效果 （用循环移位指令）

/********************************************************************************
*  标题:  xl系列单片机实验仪演示程序                                           *
*  文件:   XL8LED.c                                                            *
*  日期:  2006-1-5                                                             *
*  版本:  3.0 （试验通过版）可用xl600-xl1000单片机综合试验仪试验               *
*  邮箱:  [e-mail]                                                      *
*  网站： http://www.51c51.com    www.8951.com                                 *
********************************************************************************
*  描述:                                                                       *
*         延时实现p1口LED流水灯效果 （用循环移位指令）                         *
*                                                                              *
*                                                                              *
*                                                                              *
********************************************************************************
* 【版权】 Copyright(C)深圳市学林电子有限公司 www.51c51.com                    *
* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
*  【技术支持】请访问http://www.51c51.com/bbs/index.asp  官方论坛              *
********************************************************************************/

#include<reg51.h>
#include <intrins.h>


void delayms(unsigned char ms)	
// 延时子程序
{						
	unsigned char i;
	while(ms--)
	{
		for(i = 0; i < 120; i++);
	}
}

main()
{
	unsigned char LED;
	LED = 0xfe;
	P0 = LED;
	
	while(1)
	{
		delayms(250);			
		LED = _crol_(LED,1);		//循环右移1位，点亮下一个LED
		P1 = LED;
	}
}