#define uchar unsigned char //界说一下方便运用
#define uint unsigned int
#define ulong unsigned long
#include
char code dx516[3] _at_ 0x003b;//这是为了仿真设置的
sbit BEEP=P1^7; //喇叭输出脚
sbit P10=P1^0;
sbit K1= P3^2;
sbit K2= P3^5;
sbit K3= P2^4;
sbit K4= P2^5;
uchar th0_f; //在中止中装载的T0的值高8位
uchar tl0_f; //在中止中装载的T0的值低8位
//T0的值,及输出频率对照表
uchar code freq[36*2]={
0xA9,0xEF,//00220HZ ,1 //0
0x93,0xF0,//00233HZ ,1#
0x73,0xF1,//00247HZ ,2
0x49,0xF2,//00262HZ ,2#
0x07,0xF3,//00277HZ ,3
0xC8,0xF3,//00294HZ ,4
0x73,0xF4,//00311HZ ,4#
0x1E,0xF5,//00330HZ ,5
0xB6,0xF5,//00349HZ ,5#
0x4C,0xF6,//00370HZ ,6
0xD7,0xF6,//00392HZ ,6#
0x5A,0xF7,//00415HZ ,7
0xD8,0xF7,//00440HZ 1 //12
0x4D,0xF8,//00466HZ 1# //13
0xBD,0xF8,//00494HZ 2 //14
0x24,0xF9,//00523HZ 2# //15
0x87,0xF9,//00554HZ 3 //16
0xE4,0xF9,//00587HZ 4 //17
0x3D,0xFA,//00622HZ 4# //18
0x90,0xFA,//00659HZ 5 //19
0xDE,0xFA,//00698HZ 5# //20
0x29,0xFB,//00740HZ 6 //21
0x6F,0xFB,//00784HZ 6# //22
0xB1,0xFB,//00831HZ 7 //23
0xEF,0xFB,//00880HZ `1
0x2A,0xFC,//00932HZ `1#
0x62,0xFC,//00988HZ `2
0x95,0xFC,//01046HZ `2#
0xC7,0xFC,//01109HZ `3
0xF6,0xFC,//01175HZ `4
0x22,0xFD,//01244HZ `4#
0x4B,0xFD,//01318HZ `5
0x73,0xFD,//01397HZ `5#
0x98,0xFD,//01480HZ `6
0xBB,0xFD,//01568HZ `6#
0xDC,0xFD,//01661HZ `7 //35
};
//守时中止0,用于发生歌唱频率
timer0() interrupt 1
{
TL0=tl0_f;TH0=th0_f; //调入预守时值
BEEP=~BEEP; //取反音乐输出IO
}
//******************************
//音乐符号串解说函数
//进口:要解说的音乐符号串,输出的腔调串,输出的时长串
changedata(uchar *song,uchar *diao,uchar *jie)
{
uchar i,i1,j;
char gaodi; //凹凸+/-12音阶
uchar banyin;//有没有半个升音阶
uchar yinchang;//音长
uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C调的7个值
*diao=*song;
for(i=0,i1=0;;)
{
gaodi=0; //凹凸=0
banyin=0;//半音=0
yinchang=4;//音长1拍
if((*(song+i)==|) || (*(song+i)== )) i++;
//拍子距离和一个空格过滤
switch(*(song+i))
{
case ,: gaodi=-12;i++;//低声
break;
case `: gaodi=12;i++; //高音
break;
}
if(*(song+i)==0) //遇到0完毕
{
*(diao+i1)=0; //参加完毕标志0
*(jie+i1)=0;
return;
}
j=*(song+i)-0x30; i++; //取出基准音
j=jie7[j]+gaodi; //加上凹凸音
yinc: switch(*(song+i))
{
case #: //有半音j加一个音阶
i++;j++;
goto yinc;
case -: //有一个音节加长
yinchang+=4;
i++;
goto yinc;
case _: //有一个音节缩短
yinchang/=2;
i++;
goto yinc;
case .: //有一个加半拍
yinchang=yinchang+yinchang/2;
i++;
goto yinc;
}
*(diao+i1)=j; //记载音符
*(jie+i1)=yinchang; //记载音长
i1++;
}
}
//******************************************
//吹打函数
//进口:要演奏的音乐符号串
void play(uchar *songdata)
{
uchar i,c,j=0;
uint n;
uchar xdata diaodata[112]; //腔调缓冲
uchar xdata jiedata[112]; //音长缓冲
changedata(songdata,diaodata,jiedata); //解说音乐符号串
TR0=1;
for(i=0;diaodata[i]!=0;i++) //逐一符号演奏
{
tl0_f=freq[diaodata[i]*2]; //取出对应的守时值送给T0
th0_f=freq[diaodata[i]*2+1];
for(c=0;c
for(n=0;n<32000;n++);
if((!K1)||(!K2)||(!K3)||(!K4))//发现按键,当即退出播映
{
TR0=0;
return;
}
}
TR0=0;
for(n=0;n<500;n++); //音符间延时
TR0=1;
}
TR0=0;
}
//仙剑
uchar code xianjian[]={
“|3_3_3_2_3-|2_3_2_2_,6,6_,7_|12_1_,7,6_,5_|,6—|”
“3_3_3_2_3.6_|5_6_5_5_22_3_|45_4_32_1_|3.–3_|”
“67_6_55_3_|5–3_5_|26_5_32_3_|3—|”
“26_6_6-|16_6_66_7_|`17_6_76_7_|3.–3_|”
“67_6_55_3_|5–3_5_|67_6_76_7_|3—|”
“26_6_6-|16_6_66_7_|`17_6_7.5_|6—|”
};
uchar code song3[]={
“5-5_3_2_1_|3—|6-6_4_2_1_”
“,7–,5_|1.3_5.1_|,7.3_5 5_|”
“6.7_`1.6_|6_5_5-3_2_|1.1_13_2_|”
“1.1_12_3_|2.1_,62_3_|2– ,5_|”
“1.3_5.1_|,7.3_55_|6.7_`1.6_|”
“6_5_5-3_2_|1.1_13_2_|1.1_12_3_”
“2.,6_,71_2_|1–“
};
//世上只要妈妈好
uchar code mamahao[]={
“6.5_35|`16_5_6-|35_6_53_2_|1_,6_5_3_2-|”
“2.3_55_6_|321-|5.3_2_1_,6_1_|,5–“
};
//三个按键挑选三首不同的音乐播映,一个键中止播映
void main(void) // 主程序
{
TMOD = 0x01; //运用守时器0的16位作业形式
TR0 = 0;
ET0 = 1; //守时器0中止
EA = 1; //翻开总中止
while(1)
{
if(!K1)
{
while(!K1);
play(xianjian); //播映音乐
}
if(!K2)
{
while(!K2);
play(song3); //播映音乐
}
if(!K3)
{
while(!K3);
play(mamahao); //播映音乐
}
}
}
