单片机加矩阵按键控制蜂鸣器唱歌,按一下一个键是前一首,另一个是后一首,还有一个按键是用来控制的
迪丽瓦拉
2025-07-08 19:42:54
0
单片机加矩阵按键控制蜂鸣器唱歌,按一下一个键是前一首,另一个是后一首,还有一个按键是用来控制的

#include 

#include 

#define uchar unsigned char

#define uint unsigned int

uchar Song_Index = 0,Tone_Index = 0;

sbit SPK = P3^7;

sbit K1 = P1^0;

uchar code DSY_CODE[]=

{

  0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x90

};

uchar code HI_LIST[]=

{

  0,266,229,232,233,236,238,240,241,242,244,245,246,247,248

};

uchar code LO_LIST[]=

{

  0,4,13,10,20,3,8,6,2,23,5,26,1,4,3

};

uchar code Song[][50]=

{

  {1,2,3,1,1,2,3,1,3,4,5,3,4,5,3,4,5,5,6,1,2,3,6,2,6,6,2,3,4,5,2,5,2,3,-1},

{3,3,3,5,6,2,3,4,6,2,6,4,2,1,2,3,6,2,5,6,3,4,5,6,2,3,1,2,3,5,1,2,3,-1},

{3,2,1,3,2,1,1,2,3,1,3,5,1,5,4,6,2,6,3,4,2,3,6,2,3,4,2,1,1,1,2,2,2,3,3,2,6,3,5,3,5,1,2,6,4,5,-1}

};

uchar code 运宴Len[][50]=

{

  {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,2,2,2,2,2,2,2,2,2,2,2,1,1,-1},

{1,1,1,1,1,1,1,1,1,1,1,2,2,1,1,1,2,2,2,2,1,1,1,1,1,1,1,1,-1},

{1,1,2,1,1,2,1,1,1,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,1,1,2,1,2,1,2,1,2,1,1,1,1,1,2,2,-1}

};

void EX0_INT() interrupt 0

{

  TR0 = 0;

Song_Index = (Song_Index+1)%3;

Tone_Index = 0;

P2 = DSY_CODE[Song_Index];

}

void T0_INT() interrupt 1

{

  SPK = !SPK;

TH0 = HI_LIST[Song[Song_Index][Tone_Index]];

TL0 = LO_LIST[Song[Song_Index][Tone_Index]];

}

void delay(uint ms)

{

  uchar i;

while(ms--)

{

for(i=0;i<120;i++);

}

}

void main()

{

  P2 = 0xc0;

IE = 0x83;

TMOD = 0x00;

IT0 = 1;

IP = 0x02;

while(1)

{

  while(K1==1);

while(K1==0);

TR0 = 1;

Tone_Index 滚悄春= 0;

while(Song[Song_Index][Tone_Index]!=-1&&K1==1&&TR0==1)

{

  delay(300*Len[Song_Index][Tone_Index]);

Tone_Index++;

}

TR0 = 大耐0;

while(K1==0);

}

}


已经一具有一

相关内容

热门资讯

北京:景山公园“牡丹路”迎最佳... 本文转自:人民网-北京频道北京景山公园最美园路“牡丹路”迎来一年中的最佳观赏期。人民网北京4月18日...
枣庄台儿庄涛沟桥湿地古桥春水间... 齐鲁网·闪电新闻4月13日讯 春风拂面,万物复苏。眼下,枣庄市台儿庄区邳庄镇涛沟桥湿地迎来了踏青热潮...
张家界遇见极致云海 张家界遇见... 来源:央视新闻微博近日,湖南张家界武陵源景区出现云海景观,峡高百丈云如烟。峰林刺破云层,宛如海上仙岛...
白墙藏古韵 老宅焕新生 白墙藏... 春日,大理喜洲古镇的麦田翻着绿浪。田埂上,往来游客举着手机,以远处错落的白族院落为背景拍照打卡。青瓦...
奔赴彩虹 荆彩绽放!西安秦岭生... 来源:环球网春满秦岭,紫荆竞艳。近日,由西安市文化和旅游局、中共西安市鄠邑区委、西安市鄠邑区人民政府...
城北·贵德双城联动文旅推介活动... 本文转自:人民网-青海频道人民网西宁4月13日电 (记者况玉)为积极融入全省“一芯一环多带”生态旅游...
北京:郁金香迎来盛花期 北京郁... 本文转自:人民网2026年4月12日,北京,国家植物园内的郁金香绽放,园内游人如织。刘宪国摄(人民图...
太突然!无锡网红干饭10年 爆... 最近春光明媚、风景正好相信不少市民游客都会去惠山古镇的“天下第二泉”游玩可谁能想到天下第二泉的这条与...
重庆黔江:野生紫荆花开山村美 ... 时下,重庆市黔江区阿蓬江镇柒坨村的山野间,紫荆花竞相绽放,形成一片紫色花海。紫红的花朵与苍翠的山峦相...
春染大别山,有空来安徽六安看看... 东风又绿大别山,沪六同心共春晖。4月10日至11日,2026上海·六安文旅嘉年华之“邀春山”专场推介...
醉美梨花海,相约在日庄!莱西市... 齐鲁晚报·齐鲁壹点 宋祖锋 顾俊伟 朱天麒4月11日,“醉美梨花海・相约在日庄”莱西市第十一届梨花节...
“Color Walk”火了!... 春风拂过春城,万物晕染出斑斓色彩,继“City Walk”之后,一种以色彩为线索的休闲新方式——“C...
都江堰龙池杜鹃盛放引客来 珍稀... 四川在线记者赵明尹梦奇4月11日,成都都江堰龙池国家森林公园华西亚高山植物园人气满满,众多市民、游客...
外滩“绝世美景”!99%的人不... 外滩,江西中路211号。这座承载着上海百年记忆的老市府大楼,如今正以一种全新的面貌向市民敞开怀抱——...
图集|“樱”你而美,共赴金徽春... 原标题:图集|“樱”你而美,共赴金徽春日之约4月10日,2026第八届金徽酒秦岭樱花节在金徽酒文化生...
视窗|唤醒春日文旅潮,佳木斯“... 4月10日,2026“趣”佳木斯·喊江节在黑龙江佳木斯市启航广场启幕。“喊江节”即在开江季将江水“喊...
泰山赏花季 免票玩遍彩石溪!1... 齐鲁网·闪电新闻4月10日讯 春风送暖,万物复苏。为深化文旅融合,落实文旅惠民乐民、共享美好生活主题...
圈占百年祖坟,景区开发不能断了... 评论员 邱延波清明时节雨纷纷,祭祖之人欲断魂。借问道路何处有,后人遥望祖宗坟。据媒体报道,广东清远长...
闪电评论丨一城国色半城诗,且向... 四月,菏泽进入了一年中最动人的时节。万亩牡丹竞相绽放,将这座鲁西南小城装点成一片花的海洋。2026年...
长城脚下梨花绽 河北青龙梨花节... 本文转自:人民网-河北频道春风拂过燕山,长城脚下春意正浓。随着气温回暖,河北省青龙满族自治县官场乡迎...