永发信息网

用KEIL 为89S51单片机写个C语言音乐程序

答案:1  悬赏:70  手机版
解决时间 2021-11-07 14:49
用KEIL 为89S51单片机写个C语言音乐程序
最佳答案
//此程序在硬件上调试通过
//本程序的单片机晶振采用11.0592M
#include
sbit speaker=P1^1;
unsigned char timer0h,timer0l,time;
//世上只有妈妈好数据表
code unsigned char sszymmh[]={ 6,2,3, 5,2,1, 3,2,2, 5,2,2, 1,3,2, 6,2,1, 5,2,1,
6,2,4, 3,2,2, 5,2,1, 6,2,1, 5,2,2, 3,2,2, 1,2,1,
6,1,1, 5,2,1, 3,2,1, 2,2,4, 2,2,3, 3,2,1, 5,2,2,
5,2,1, 6,2,1, 3,2,2, 2,2,2, 1,2,4, 5,2,3, 3,2,1,
2,2,1, 1,2,1, 6,1,1, 1,2,1, 5,1,6, 0,0,0
};
// 音阶频率表 高八位
code unsigned char FREQH[]={
0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8,
0xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC, //1,2,3,4,5,6,7,8,i
0xFC,0xFD,0xFD,0xFD,0xFD,0xFE,
0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF,
} ;
// 音阶频率表 低八位
code unsigned char FREQL[]={
0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,
0x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F, //1,2,3,4,5,6,7,8,i
0xEE,0x44, 0x6B,0xB4,0xF4,0x2D,
0x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16,
};
void delay(unsigned char t)
{
unsigned char t1;
unsigned long t2;
for(t1=0;t1 {
for(t2=0;t2<8000;t2++)
{
;
}
}
TR0=0;
}
void t0int() interrupt 1
{
TR0=0;
speaker=!speaker;
TH0=timer0h;
TL0=timer0l;
TR0=1;
}
void song()
{
TH0=timer0h;
TL0=timer0l;
TR0=1;
delay(time);
}

void main(void)
{
unsigned char k,i;
TMOD=1; //置CT0定时工作方式1
EA=1;
ET0=1;//IE=0x82 //CPU开中断,CT0开中断
while(1)
{
i=0;
while(i<100){ //音乐数组长度 ,唱完从头再来
k=sszymmh[i]+7*sszymmh[i+1]-1;
timer0h=FREQH[k];
timer0l=FREQL[k];
time=sszymmh[i+2];
i=i+3;
song();
}
}
}
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
甘孜县公安局交警大队科一考场地址在什么地方
大华电子秤400电话
光的色散的现象举例
默写,或根据课文填空。(1)加入世贸组织后
惠普6520s哪个键是一键恢复
汉源县齐鑫车辆检测服务有限公司地址在什么地
取环和上环能同时吗
中华联合财产保险甘孜中心支公司折多塘业务点
jzc350型搅拌机配电箱怎样连接
注册公司时企业类型怎么分类
野狼战队是做什么的???
基督教中的博爱精神的含义
投诉移动乱给我开通业务怎么投诉
【今天真是个愉快的一天】 用英语怎么说?
古诗 清乐平 村居中的溪上青青草是什么意思
推荐资讯
中国有哪些业余篮球联赛?
氧气疗法的作用
【银色神官】成就怎么做
马龙龙泉路邮政支局地址在什么地方,想过去办
∫dx/(7-5x)∧3
求《ワルキューレ调教・ザーメンタンク
大陆人上澳门车牌
父姓何,母姓叶如取名宝典
大润发超市是周润发的吗
选车牌号哪3位数好吉利一点
亲姐妹怎样处我家姐弟妹三人,我是姐姐,我
太阳能光伏发电与市电如何切换?
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?