c51led花样闪烁

c51led花样闪烁

#include


//#include “stdio.h“
//#include “stdlib.h“


#define uchar unsigned char
#define uint unsigned int 
#define lei unsigned char
lei q=0;
sbit KEY=P3^2;
	uchar before=0;
	int temp=0;

//延迟---还会用于消抖
void Delay（uint x） {
   uchar i;
   while（x--）{
	  for（i=0;i<120;i++）;
	 }
}
//延迟1
void delay_1（） {
	unsigned char ij;
	for（i=0;i<250;i++）
	{
	   for（j=0;j<250;j++）;
	}
}

//样式2  按下之前的流水灯
void a1（）{
	P2=0xff;
		if（temp>7）
		temp=0;
	if（before==1）{
		temp+=2;
		P2&=~（1<<（temp++））;
		before=0;
	}else{
		P2&=~（1<<（temp++））;
	}

	//temp++;	

	//Delay（150）;
}

//样式3
void a2（） {
	P2=0xff;
	if（temp<0）
		temp=7;	
	if（before==1）{
		temp-=2;
		P2&=~（128>>（7-（temp--）））;//P2的值向左循环移动
		before=0;
	}else
		P2&=~（128>>（7-temp--））;
	//Delay（150）;
}

//样式4  往外两端亮去
 void a3（）{
	 //before=0;
	 P2=0xff;
	 P2=0xcc;
	 delay_1（）;
	 P2=0xff;
	 P2=0x33;
	 delay_1（）;
 }
// void a4（）{
//	 P2=0xff;
//	 P2=rand（）%256;
// }
 //按

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1193  2019-12-25 17:36  problem\keil\26.c

    .......    177401  2019-12-25 17:36  problem\keil\26.uvgui.Apple

     文件      90862  2019-12-21 15:31  problem\keil\26.uvgui.senheju

    .......      6898  2019-12-25 13:24  problem\keil\26.uvopt

    .......     14439  2019-12-25 08:58  problem\keil\26.uvproj

    .......     55678  2019-12-23 21:13  problem\keil\26_uvopt.bak

    .......     14439  2019-12-20 17:47  problem\keil\26_uvproj.bak

     文件       3580  2019-12-25 17:36  problem\keil\Listings\26.lst

     文件       7586  2019-12-25 17:36  problem\keil\Listings\26.m51

     文件      14163  2019-12-25 10:56  problem\keil\Listings\STARTUP.lst

     文件       4479  2019-12-25 17:36  problem\keil\objects\26

     文件       1018  2019-12-25 17:36  problem\keil\objects\26.build_log.htm

     文件       1369  2019-12-25 17:36  problem\keil\objects\26.hex

     文件         93  2019-12-25 17:36  problem\keil\objects\26.lnp

     文件       4377  2019-12-25 17:36  problem\keil\objects\26.obj

     文件       9863  2019-12-25 00:25  problem\keil\objects\26.plg

     文件        110  2019-12-25 17:36  problem\keil\objects\26.__i

     文件        819  2019-12-25 10:56  problem\keil\objects\STARTUP.obj

     文件       6376  2015-07-08 16:02  problem\keil\STARTUP.A51

     文件      79397  2019-12-23 21:44  problem\protues2\26.DSN

     文件       1052  2019-12-23 21:44  problem\protues2\26.PWI

     文件      79447  2019-12-23 20:17  problem\protues2\Last Loaded 26.DBK

     目录          0  2019-12-25 17:36  problem\keil\Listings

     目录          0  2019-12-25 17:36  problem\keil\objects

     目录          0  2019-12-25 17:36  problem\keil

     目录          0  2019-12-23 23:46  problem\protues2

     目录          0  2019-12-23 23:46  problem

     文件       1585  2019-12-25 13:38  26.c

----------- ---------  ---------- -----  ----

               576224                    28

............此处省略1个文件信息