我们从2011年坚守至今,只想做存粹的技术论坛。  由于网站在外面,点击附件后要很长世间才弹出下载,请耐心等待,勿重复点击不要用Edge和IE浏览器下载,否则提示不安全下载不了

 找回密码
 立即注册
搜索
查看: 772|回复: 4

51单片机“呼吸灯”程序

[复制链接]

该用户从未签到

77

主题

359

回帖

0

积分

二级逆天

积分
0

社区居民终身成就奖金点子奖

QQ
发表于 2021-6-26 02:05:01 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区

您需要 登录 才可以下载或查看,没有账号?立即注册

×
[paragraph]

51单片机“呼吸灯”程序



#include
#define uchar unsigned char
#define uint unsigned int
uint f=100; /*????????f????????????1~10khz*/
uint H=6;/*????????·§????????0~10000/f????H>L*/
uint L=0;/*????????·§????????0~10000/f????H>L*/
uchar code wela[]={0xfe,0xfd,0xfb,0xf7};
uchar code dula[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xD8,0x80,0x90};
uint m=0,t;
uchar amp=0,frequency=100;
sbit pwm=P1^7;
sbit pwm_=P1^6;
sbit hkey=P3^5;
sbit lkey=P3^3;
void diskey();
void delay(uint z);
void display();
void xunhuan();
void main()
{
EA=1;
ET0=1;
TMOD=0x02;
TH0=146;
t=10000/f;
TR0=1;
while(1)
{
if(hkey==0)diskey();
if(lkey==0)diskey();
display();
xunhuan();
}
}
void TRT0() interrupt 1
{
m++;
if(m>=t)m=0;
if(m==L){pwm=0;}
if(m==H){pwm=1;pwm_=0;}
}
void diskey()
{
display();
if(hkey==0&&H<100)H++;
delay(10);
if(lkey==0&&H>0)H--;
display();
}
void xunhuan()
{
if(amp==1)H++;
if(H>99)amp=0;
if(amp==0)H--;
if(H<1)amp=1;
delay(frequency);
}
void delay(uint z)
{
uint x,y;
for(y=z;y>0;y--)
for(x=12;x>0;x--);
}
void display()
{
delay(2);
P2=dula[H/1000];
P0=wela[0];
delay(5);
P0=0xff;
P2=dula[H00/100];
P0=wela[1];
delay(5);
P0=0xff;
P2=dula[H0/10];
P0=wela[2];
delay(5);
P0=0xff;
P2=dula[H];
P0=wela[3];
delay(5);
P0=0xff;
}




来源于网络,仅供学习


回复

使用道具 举报

该用户从未签到

1

主题

6740

回帖

1280

积分

二级逆天

积分
1280

终身成就奖特殊贡献奖原创先锋奖优秀斑竹奖

发表于 2021-6-26 07:33:17 | 显示全部楼层
回复

使用道具 举报

该用户从未签到

1

主题

4703

回帖

5

积分

二级逆天

积分
5

终身成就奖特殊贡献奖原创先锋奖优秀斑竹奖

发表于 2021-6-26 10:23:32 | 显示全部楼层
回复

使用道具 举报

该用户从未签到

77

主题

359

回帖

0

积分

二级逆天

积分
0

社区居民终身成就奖金点子奖

QQ
 楼主| 发表于 2021-7-25 02:15:16 | 显示全部楼层
回复

使用道具 举报

该用户从未签到

77

主题

359

回帖

0

积分

二级逆天

积分
0

社区居民终身成就奖金点子奖

QQ
 楼主| 发表于 2021-8-10 00:22:15 | 显示全部楼层
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

每日签到,有金币领取。


Copyright ©2011-2024 NTpcb.com All Right Reserved.  Powered by Discuz! (NTpcb)

本站信息均由会员发表,不代表NTpcb立场,如侵犯了您的权利请发帖投诉

( 闽ICP备2024076463号-1 ) 论坛技术支持QQ群171867948 ,论坛问题,充值问题请联系QQ1308068381

平平安安
TOP
快速回复 返回顶部 返回列表