流星灯（拖尾灯）
现象大概是一排LED上出现拖尾灯，虽然没什么用，但挺好看的……可加在你的任意程序上。
我是用51开发板做的
就这些灯，现象你们下载编译一下就看到了。
单片机源程序如下:
- #include<reg52.h>
- #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,num;
- char a,b,c,d;
- main()
- { TMOD=0x01;
- TH0=(65536-45872)/256; /////////////////3.00
- TL0=(65536-45872)%256;
- EA=1;
- ET0=1;
- TR0=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];
- } ///////流星灯
- }
- void T0_time() interrupt 1
- {
- TH0=(65536-45872)/256;
- TL0=(65536-45872)%256;
- num++;
- if(num==3)
- {
- num=0;
- abit--;
- if(abit==0)
- abit=16;
- }}
- }
所有资料51hei提供下载:
流星灯.rar
(547 Bytes, 下载次数: 70)
|
[复制链接]
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
淘帖
顶
踩
