左右流水灯,蜂鸣器响

/*******************************************************************************
* 实 验 名 : 左右流水灯，蜂鸣器响实验
* 使用的IO : P2
* 实验效果 : 点亮的LED从右边往左边移动，到达左边再往右边移动，蜂鸣器同时响，间隔500ms,依此循环。
* 注 意 ：
*******************************************************************************/
#include
#include //因为要用到左右移函数，所以加入这个头文件
#define uchar unsigned char
#define GPIO_LED P2 //将P2口另外取名为GPIO_LED
sbit beep = P1^5;

void delay(uchar c)
{
for(;c>0;c--);
}

void Delay10ms(unsigned int); //误差 0us
/*******************************************************************************
* 函 数 名 : main
* 函数功能 : 主函数
* 输 入 : 无
* 输 出 : 无
*******************************************************************************/

void main(void)
{
unsigned char n,a;
GPIO_LED=0xfe;//1111_1110->1111_1101
while(1)
{
for(n=0;n<7;n++) //左移7次，这样子就会到达最左边
{
GPIO_LED=_crol_(GPIO_LED,1); //将GPIO_LED左移一位
Delay10ms(43); //延时
for(a=1000;a>0;a--)
{ beep=~beep;
delay(14);
}
}
for(n=0;n<7;n++) //右移7次，这样子就会到达最右边
{
GPIO_LED=_cror_(GPIO_LED,1); //将GPIO_LED右移一位
Delay10ms(50); //延时
for(a=1000;a>0;a--)
{ beep=~beep;
delay(14);
}
}
}
}
/*******************************************************************************
* 函 数 名 : Delay10ms
* 函数功能 : 延时函数，延时10ms
* 输 入 : 无
* 输 出 : 无
*******************************************************************************/
void Delay10ms(unsigned int c) //误差 0us
{
unsigned char a,b;
for(;c>0;c--)
for(b=38;b>0;b--)
for(a=130;a>0;a--);
}