#include<reg52.h>
#define uint unsigned int
#define uchar unsigned char
#define ulong unsigned long 
sbit BEEP=P2^4;
sbit K1= P3^2;     

uchar keyscan(uchar key);//鍵盤(pán)輸入函數(shù)
void delay(uint t);//延時(shí)函數(shù)
void scan(uint i);//掃描顯示函數(shù)
void bi(ulong t);

uchar table[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,0x80,0x90,0x88,0x83,0xC6,0xA1,0x86,0x8E};
uchar th0_f; //在中斷中裝載的T0的值高8位 
uchar tl0_f; //在中斷中裝載的T0的值低8位 

/******T0的值,及輸出頻率對(duì)照表******/
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 
};

//****************************** 
//音樂(lè)符號(hào)串解釋函數(shù) 
//入口:要解釋的音樂(lè)符號(hào)串,輸出的音調(diào)串,輸出的時(shí)長(zhǎng)串 
changedata(uchar *song,uchar *diao,uchar *jie) 
{ 
    uchar i,i1,j; 
    char gaodi; //高低+/-12音階 
    uchar banyin;//有沒(méi)有半個(gè)升音階 
    uchar yinchang;//音長(zhǎng) 
    uchar code jie7[8]={0,12,14,16,17,19,21,23}; //C調(diào)的7個(gè)值 
 
    *diao=*song; 
    for(i=0,i1=0;;) 
    { 
        gaodi=0; //高低=0 
        banyin=0;//半音=0 
        yinchang=4;//音長(zhǎng)1拍 
        if((*(song+i)=='|') || (*(song+i)==' ')) i++;   //拍子間隔和一個(gè)空格過(guò)濾 
        switch(*(song+i))  
        {     
            case ',': gaodi=-12;i++;//低音 
            break; 
     
            case '`': gaodi=12;i++; //高音 
            break; 
        } 
 
        if(*(song+i)==0)  //遇到0結(jié)束 
        { 
            *(diao+i1)=0; //加入結(jié)束標(biāo)志0 
            *(jie+i1)=0; 
            return; 
        } 
 
        j=*(song+i)-0x30; i++; //取出基準(zhǔn)音 
        j=jie7[j]+gaodi; //加上高低音 
       
 
		yinc:   switch(*(song+i))  
        {     
            case '#': //有半音j加一個(gè)音階  
            	i++;j++; 
    			goto yinc;  
             
 
            case '-': //有一個(gè)音節(jié)加長(zhǎng) 
                yinchang+=4; 
                i++;  
                goto yinc; 
 
            case '_': //有一個(gè)音節(jié)縮短 
                yinchang/=2; 
                i++;  
    			goto yinc; 
             
             
            case '.': //有一個(gè)加半拍 
                yinchang=yinchang+yinchang/2;
    			i++; 
    			goto yinc; 
        } 
 
        *(diao+i1)=j; //記錄音符 
        *(jie+i1)=yinchang; //記錄音長(zhǎng) 
        i1++;     
    } 
} 
//****************************************** 
//奏樂(lè)函數(shù) 
//入口:要演奏的音樂(lè)符號(hào)串 
void play(uchar *songdata) 
{ 
    uchar i,c,j=0; 
    uint  n; 
    uchar xdata diaodata[112]; //音調(diào)緩沖 
    uchar xdata jiedata[112];  //音長(zhǎng)緩沖 
 
    changedata(songdata,diaodata,jiedata); //解釋音樂(lè)符號(hào)串 
    TR0=1; 
    for(i=0;diaodata[i]!=0;i++)  //逐個(gè)符號(hào)演奏 
    { 
        tl0_f=freq[diaodata[i]*2]; //取出對(duì)應(yīng)的定時(shí)值送給T0 
        th0_f=freq[diaodata[i]*2+1]; 
        for(c=0;c<jiedata[i];c++) //按照音長(zhǎng)延時(shí) 
  		{ 
            for(n=0;n<32000;n++); 
   			if(K1==0)//發(fā)現(xiàn)按鍵,立即退出播放 
   			{  
   				delay(1);
				if(K1==0)
					{TR0=0;scan(0);} 
				return; 
   			} 
  		} 
        TR0=0; 
        for(n=0;n<500;n++);    //音符間延時(shí) 
   
        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--" 
}; 

//我是一只菠蘿 
uchar code boluo[]={ 
"1-|2_4_3_2_55|5_6_3_4_22|2_4_3_2_1_`1_7_6_|5_4_2_3_11|" 
"2_4_3_2_55|5_6_3_4_22|2_4_3_2_1_5_2_3_|1---|" 
}; 
//小星星 
uchar code xingxing[]={ 
"1155|665-|4433|221-|" 
"5544|332-|5544|332-|" 
"1155|665-|4433|221-|" 
}; 
 
//老鼠愛(ài)大米 
uchar code dami[]={ 
"321-|3.2_1-|3231|3_6.5-|3_5_665|65-3_2_|122_3_2|12--|" 
}; 
 

/******主函數(shù)******/
void main(void) // 主程序 
{ 
	uchar k; 	
	uchar code jie8[8]={12,14,16,17,19,21,23,24};//1234567`1八個(gè)音符在頻率表中的位置 
	TMOD = 0x01;  //使用定時(shí)器0的16位工作模式 
	TR0 = 0; 
	ET0 = 1; 
	EA = 1; 
 
	while(1)
	{
		k=keyscan();
		switch(k)
		{
			case 1:{scan(1);tl0_f=freq[jie8[0]*2];th0_f=freq[jie8[0]*2+1]; TR0 = 1;delay(400);BEEP=1;}break;
			case 2:{scan(2);tl0_f=freq[jie8[1]*2];th0_f=freq[jie8[1]*2+1]; TR0 = 1;delay(400);BEEP=1;}break;
			case 3:{scan(3);tl0_f=freq[jie8[2]*2];th0_f=freq[jie8[2]*2+1]; TR0 = 1;delay(400);BEEP=1;}break;
			case 4:{scan(4);tl0_f=freq[jie8[3]*2];th0_f=freq[jie8[3]*2+1]; TR0 = 1;delay(400);BEEP=1;}break;
			case 5:{scan(5);tl0_f=freq[jie8[4]*2];th0_f=freq[jie8[4]*2+1]; TR0 = 1;delay(500);BEEP=1;}break;
			case 6:{scan(6);tl0_f=freq[jie8[5]*2];th0_f=freq[jie8[5]*2+1]; TR0 = 1;delay(500);BEEP=1;}break;
			case 7:{scan(7);tl0_f=freq[jie8[6]*2];th0_f=freq[jie8[6]*2+1]; TR0 = 1;delay(500);BEEP=1;}break;
			case 8:scan(8);play(xianjian); break;
			case 9:scan(9);play(song3); break;
			case 10:scan(10);play(boluo); break;
			case 11:scan(11);play(xingxing); break;
			case 12:scan(12);play(mamahao); break;
			case 13:scan(13);play(dami); break;
		} 
		TR0 = 0;
	}
} 
/******鍵盤(pán)輸入函數(shù)******/
uchar keyscan(uchar key)
{
   	uchar n;
   	P1=0xfe;
   	n=P1;
  	n&=0xf0;
  	if(n!=0xf0)
  	{
    	delay(20);
    	P1=0xfe;
		n=P1;
	 	n&=0xf0;
	 	if(n!=0xf0)
		{
	     	switch(n)
		 	{
		   		case(0xe0):key=12;break;
				case(0xd0):key=9;break;
				case(0xb0):key=5;break;
    			case(0x70):key=1;break;
    		}
   	 	}
   	}

   	P1=0xfd;
   	n=P1;
	n&=0xf0;
	if(n!=0xf0)
	{
		delay(20);
		P1=0xfd;
		n=P1;
		n&=0xf0;
		if(n!=0xf0)
		{
   			switch(n)
			{
    			case(0xe0):key=13;break;
    			case(0xd0):key=0;break;
	    		case(0xb0):key=6;break;
	    		case(0x70):key=2;break;
    		}	
  		}
	}

	P1=0xfb;
	n=P1;
	n&=0xf0;
	if(n!=0xf0)
	{
		delay(20);
		P1=0xfb;
		n=P1;
		n&=0xf0;
		if(n!=0xf0)
		{
   			switch(n)
			{
    			case(0xe0):key=14;break;
    			case(0xd0):key=10;break;
    			case(0xb0):key=7;break;
    			case(0x70):key=3;break;
    		}
   		}
	}

	P1=0xf7;
	n=P1;
	n&=0xf0;
	if(n!=0xf0)
	{
		delay(20);
		P1=0xf7;
		n=P1;
		n&=0xf0;
		if(n!=0xf0)
		{
	   		switch(n)
			{
	    		case(0xe0):key=15;break;
	    		case(0xd0):key=11;break;
	    		case(0xb0):key=8;break;
	    		case(0x70):key=4;break;
	    	}
	   }
	}	
	return (key);
}

/******延時(shí)函數(shù)******/
void delay(uint t)
{
	uint i,j;
	for(i=0;i<t;i++)
	{
		for(j=0;j<250;j++)
		{;}
	}
}

/******顯示函數(shù)******/
void scan(uint i)
{
	
	P2=0xf0;
	P0=table[i];
}

/******峰鳴器函數(shù)******/
void bi(ulong t) 
{ 
	ulong c; 
	uint n; 
	for(c=0;c<t;c++) 
	{ 
		for(n=0;n<50;n++); //延時(shí) 
		BEEP=~BEEP;      //取反輸出到喇叭的信號(hào) 
	} 
} 

//定時(shí)中斷0,用于產(chǎn)生唱歌頻率 
timer0() interrupt 1  
{ 
    TL0=tl0_f;TH0=th0_f;  //調(diào)入預(yù)定時(shí)值 
    BEEP=~BEEP;           //取反音樂(lè)輸出IO 
}