led.c

Embest ATEB40x开发板led测试程序

/*********************************************************************************************
*文件：		LED.c
*公司：		深圳市英蓓特信息技术有限公司
*部门：		硬件研发部
*作者：		谢文辉	2005.04.06
*说明：		LED程序，实现跑马灯程序
*注释:		
*********************************************************************************************/
#include	"LED.h"

/*********************************************************************************************
* 名称:		TimeDly(uint32  dly)
* 功能:		长软件延时
* 参数:		dly    延时数，越大越长
* 返回:		无
* 修改:		
* 注释:		
*********************************************************************************************/
void  time_dly(uint32  dly)
{  
	uint32  i;

	for(; dly>0; dly--) 
		for(i=0; i<1000; i++);
}

/*********************************************************************************************
* 名称:		Main()
* 功能:		主程序，实现LED交换显示
* 参数:		无
* 返回:		无
* 修改:		
* 注释:		
*********************************************************************************************/
void Main()
{
	uint8	i, j;
	
	PIO->PER = LEDALL;		// 配制引脚与PIO关联
	
	PIO->OER = LEDALL;		// 配制使用IO口为输出
	
	while(1)				// 针对需要对IO进行电平编程
	{
		for(i = 0; i < 14; i++)
		{					// 实现跑马灯效果
			if (i < 8)
				j = i;
			else
				j = 14 - i;
			PIO->SODR = LEDALL;
			PIO->CODR = LED[j];
			time_dly(200);
		}		
	}
}