单片机加矩阵按键控制蜂鸣器唱歌,按一下一个键是前一首,另一个是后一首,还有一个按键是用来控制的
迪丽瓦拉
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);

}

}


已经一具有一

相关内容

热门资讯

十月,你得来大理“赏一赏” 寒意渐起进入秋天大理迎来一年中绝美的赏景时节此前大理融媒介绍了大理市的赏秋地点现在,从大理出发前往周...
新华鲜报|山河锦绣 国庆节假期...   新华社北京10月9日电 题:山河锦绣 国庆节假期8.26亿人次竞出游  新华社记者徐壮  山河迎...
新华社消息|国庆节假期国内出游...   记者:徐壮、周玮  编导:季晓庄  新华社音视频部制作
19.6万人次游客国庆长假游自... 封面新闻记者 刘恪生国庆长假结束,2026年自贡市沿滩区中秋国庆双节系列文旅活动圆满落幕。假日期间,...
新华视点|当车变成“移动的家”...   新华社北京10月9日电 题:当车变成“移动的家”:这种旅行方式火了  新华社“新华视点”记者张申...
“零碳海岛”的全电暖时光   刚刚过去的“十一”黄金周,辽宁丹东东港市獐岛村碧海环绕、秋山含翠,前来度假的游客穿梭在街巷之间,...
草坪被游客踩出一条路,深圳湾公... “走的人多了也便有了路。”10月7日,有博主在社交平台发帖,并晒出深圳湾公园内一块温馨提示牌。图片显...
国庆假期泰安26家旅游景区(点... 齐鲁网·闪电新闻10月9日讯 金秋十月庆华诞,国泰民安迎客来。国庆假期,泰安市认真贯彻落实国庆假期各...
别跑空!新疆多家景区季节性停运... 记者从新疆文化和旅游厅了解到,因冬季即将来临,新疆部分景区季节性停运、调整开放时间。巴音布鲁克景区自...
甲秀时评 | 激活文旅新动能贵... 国庆假期,花溪区黔陶乡九道拐·追风里日均客流超千人次。在这里,喝咖啡、看画展、赏美景,多元业态交织共...