锐单电子商城 , 一站式电子元器件采购平台!
  • 电话:400-990-0325

51单片机LED流星雨拖尾灯程序+视频

时间:2024-05-20 16:07:11

流星雨就是几个亮度不同的灯一起滚动,亮度依次更暗,像流星雨拖着尾巴。
控制全彩(三色)led也可以用同样的概念编程。
用的是51的单片机pwm实现的拖尾效果


程序的解说以及视频演示请打开http://www.ruidan.com/bbs/dpj-22524-1.html里面有详细的说明.
程序源码:
#include
#define uint unsigned int
#define uchar unsigned char

uchar abit=16; //流到哪位
uchar atimer0_n;
uchar code abit8[9]={1,2,4,8,16,32,64,128,0};
uchar nn;
char a,b,c,d;

main()
{TMOD = 0x11;
TL0 = 0x00;//2.5ms
TH0 = 0xF7;
TF0 = 0;
TR0 = 1;
EA=1;ET0=1;
while(1)
{
a=abit;
if(a>7||a<0)
a=8;
b=abit-1;
if(b>7||b<0)
b=8;
c=abit-2;
if(c>7||c<0)
c=8;
d=abit-3;
if(d>7||d<0)
d=8;


atimer0_n++;
if(atimer0_n==255)
atimer0_n=0;
if(atimer0_n<5)
P1=0xff-abit8[a];
if(atimer0_n<40)
P1=0xff-abit8[b];
if(atimer0_n<150)
P1=0xff-abit8[c];
if(atimer0_n<255)
P1=0xff-abit8[d];
}
}

atimer0 () interrupt 1
{
TL0 = 0x00;//50ms
TH0 = 0x4C;
nn++;
if(nn==2)
{
nn=0;abit--;
if(abit==0)
abit=16;
}


}


-电子元器件采购网(www.ruidan.com)是本土元器件目录分销商,采用“小批量、现货、样品”销售模式,致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储,拥有自营库存超过50,000种,提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。
锐单商城拥有海量元器件数据手册IC替代型号,打造电子元器件IC百科大全!

相关文章