标题:
单片机流星灯程序(拖尾灯)挺好看的
[打印本页]
作者:
323
时间:
2019-4-30 19:10
标题:
单片机流星灯程序(拖尾灯)挺好看的
流星灯(拖尾灯)
现象大概是一排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
3.jpg
(32.08 KB, 下载次数: 85)
下载附件
2019-4-30 19:10 上传
嘻嘻
作者:
323
时间:
2019-4-30 19:11
大家有问题可以问哈!!
作者:
刚好中意
时间:
2019-7-6 16:24
对于我来说超牛啊,51黑有你更精彩。
作者:
323
时间:
2019-7-25 18:09
刚好中意 发表于 2019-7-6 16:24
对于我来说超牛啊,51黑有你更精彩。
谢谢你,你是第一个夸我的
作者:
hzw854025403
时间:
2020-4-20 11:06
厉害啊,代码这么少
作者:
放肆的小红
时间:
2020-5-6 11:28
51有你更精彩
作者:
三三两两在离别
时间:
2020-5-22 10:10
楼主,有proteus的仿真图吗
作者:
心羽家电
时间:
2020-5-22 19:49
感谢楼主 已在开发板上试验过啦!太感谢啦!
作者:
yechuan220
时间:
2020-5-22 22:01
厉害啊,代码这么少,感谢楼主
作者:
夏一
时间:
2020-5-23 10:23
下载了,发现里面空荡荡的
欢迎光临 (http://www.51hei.com/bbs/)
Powered by Discuz! X3.1