/*****************************************************************/
//《世上只有媽媽好》51單片機C語言程序和音樂彩燈程序
//按下按鍵INT0，即sw，蜂鳴器播放音樂，
//此時P0驅動流水燈隨音樂的節拍的快慢而動
/*****************************************************************/
#include <reg51.h>
sbit speaker = P3^2; 	//接蜂鳴器,		  
sbit sw = P1^4; 	//sw合上后就開始放音樂,燈開始閃動,sw斷開,音樂停止,燈也同時停止閃動
unsigned char timer0h,timer0l,time,led = 1,j = 0;
unsigned char  flagd = 0;
//世上只有媽媽好數據表
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 < t;t1 ++)                             
	for(t2 = 0;t2 < 8000;t2 ++);                             
   	TR0=0;
}
void t0int() interrupt 1
{
   	TR0 = 0;   	
	TH0 = timer0h;
   	TL0 = timer0l;
   	speaker = !speaker;
   	TR0 = 1;
}
void song()
{
	TH0 = timer0h;
	TL0 = timer0l;
	TR0 = 1;
	delay(time);                       
}
void main(void)
{
	unsigned char k,i;
	TMOD = 1;   //置T0定時工作方式1
	EA = 1;
	ET0 = 1;    //CPU開中斷,ET0開中斷 
	while(1)
	{
		i = 0;
		time = 1;
		sw = 1;                             
		while(time)
		{  
			if(sw)
			{
				P0 = 0;
				i = 0;
				continue;
			}
			if(j == 8)
			{
				j = 0;
				flagd = ~flagd;
				if(flagd)led = 0x80;
	           	else led=1;
         	} 
			else
        	{
         		P0 = ~led;
            	if(flagd)led = led >> 1;
               	else led = led << 1;
            	j++;                                     
         	}                                  
	        k = sszymmh[i] + 7*sszymmh[i + 1] - 1;
	        timer0h = FREQH[k];
	        timer0l = FREQL[k];
	        time = sszymmh[i + 2];
	        i = i + 3;
	        song();
         }
     } 
}