流星燈（拖尾燈）
現象大概是一排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)
2019-4-30 19:10 上傳
點擊文件名下載附件
流星燈 下載積分: 黑幣 -5
|
[復制鏈接]
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
