#include <reg51.h>
unsigned char m;   //m為頻率常數(shù)
unsigned char n=0; //n為節(jié)拍常數(shù) 
unsigned char i=0;
sbit bell=P1^0;
unsigned char code music_tab[] ={
0x18, 0x30, 0x1C , 0x10, //格式為: 頻率常數(shù), 節(jié)拍常數(shù), 頻率常數(shù), 節(jié)拍常數(shù),
0x20, 0x40, 0x1C , 0x10,
0x18, 0x10, 0x20 , 0x10,
0x1C, 0x10, 0x18 , 0x40,
0x1C, 0x20, 0x20 , 0x20,
0x1C, 0x20, 0x18 , 0x20,
0x20, 0x80, 0xFF , 0x20,
0x30, 0x1C, 0x10 , 0x18,
0x20, 0x15, 0x20 , 0x1C,
0x20, 0x20, 0x20 , 0x26,
0x40, 0x20, 0x20 , 0x2B,
0x20, 0x26, 0x20 , 0x20,
0x20, 0x30, 0x80 , 0xFF,
0x20, 0x20, 0x1C , 0x10,
0x18, 0x10, 0x20 , 0x20,
0x26, 0x20, 0x2B , 0x20,
0x30, 0x20, 0x2B , 0x40,
0x20, 0x20, 0x1C , 0x10,
0x18, 0x10, 0x20 , 0x20,
0x26, 0x20, 0x2B , 0x20,
0x30, 0x20, 0x2B , 0x40,
0x20, 0x30, 0x1C , 0x10,
0x18, 0x20, 0x15 , 0x20,
0x1C, 0x20, 0x20 , 0x20,
0x26, 0x40, 0x20 , 0x20,
0x2B, 0x20, 0x26 , 0x20,
0x20, 0x20, 0x30 , 0x80,
0x20, 0x30, 0x1C , 0x10,
0x20, 0x10, 0x1C , 0x10,
0x20, 0x20, 0x26 , 0x20,
0x2B, 0x20, 0x30 , 0x20,
0x2B, 0x40, 0x20 , 0x15,
0x1F, 0x05, 0x20 , 0x10,
0x1C, 0x10, 0x20 , 0x20,
0x26, 0x20, 0x2B , 0x20,
0x30, 0x20, 0x2B , 0x40,
0x20, 0x30, 0x1C , 0x10,
0x18, 0x20, 0x15 , 0x20,
0x1C, 0x20, 0x20 , 0x20,
0x26, 0x40, 0x20 , 0x20,
0x2B, 0x20, 0x26 , 0x20,
0x20, 0x20, 0x30 , 0x30,
0x20, 0x30, 0x1C , 0x10,
0x18, 0x40, 0x1C , 0x20,
0x20, 0x20, 0x26 , 0x40,
0x13, 0x60, 0x18 , 0x20,
0x15, 0x40, 0x13 , 0x40,
0x18, 0x80, 0x00
};

void time0(void)  interrupt 1 using 1  //產生10MS精確定時
{  TH0=(65536-10000)/256;
   TL0=(65536-10000)%256;
   n--;
}
void delayms(unsigned char a)  //微秒延時程序
{
  while(--a);                  
}
void delay(void)   //延遲程序
{
 int i,j;
 for(i=50;i--;i>0)
  for(j=10000;j--;j>0)
  ;
}


void main()
{ 
 
    TMOD=(TMOD&0xf0)|0x01;
     TH0=(65536-10000)/256;
     TL0=(65536-10000)%256;
     EA=1;
     ET0=1;
     TR0=0;   
     while(1)
     {
     switch(music_tab[i])
     {
        case 0x00:
            i=0;delay(); break; // 曲終停頓一定時間
        case 0xff:
            i=i+1;delayms(100);break;  //遇到休止符停頓一定時間100微秒,再取下一個頻率
        default:
               m=music_tab[i++];n=music_tab[i++];//取頻率到m，取節(jié)拍到n
  
                 TR0=1;
                 while(n!=0)
                  {
              	   P1=bell;
                  delayms(4*m);//調整產生的頻率，可以通過在m前的值來修正音調的高低
       			   bell=!bell;
                   }
    TR0=0;
      }
     }
}