#include <reg51.h>
#define uchar unsigned char
#define uint unsinged int
 
sbit   speaker = P1^7;
uchar t0h,t0l,time;
//--------------------------------------
//單片機晶振采用11.0592MHz
// 頻率-半周期數據表 高八位     本軟件共保存了四個八度的28個頻率數據
uchar code FREQH[] = {0x01,        //0的時候沒有音符
    0xF2, 0xF3, 0xF5, 0xF5, 0xF6, 0xF7, 0xF8,    //低音1234567
    0xF9, 0xF9, 0xFA, 0xFA, 0xFB, 0xFB, 0xFC, 0xFC,//1,2,3,4,5,6,7,i
    0xFC, 0xFD, 0xFD, 0xFD, 0xFD, 0xFE,            //高音 234567
    0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFF};   //超高音 1234567
//-----------------------------------------
// 頻率-半周期數據表 低八位
uchar code FREQL[] = {0x01,        //0的時候沒有音符
    0x42, 0xC1, 0x17, 0xB6, 0xD0, 0xD1, 0xB6,    //低音1234567
    0x21, 0xE1, 0x8C, 0xD8, 0x68, 0xE9, 0x5B, 0x8F, //1,2,3,4,5,6,7,i
    0xEE, 0x44, 0x6B, 0xB4, 0xF4, 0x2D,             //高音 234567
    0x47, 0x77, 0xA2, 0xB6, 0xDA, 0xFA, 0x16};   //超高音 1234567
//--------------------------------------
//一個音符有三個數字。前為第幾個音、中為第幾個八度、后為時長（以1/4拍為單位）。
//6, 2, 6 分別代表：６, 中音, 6個1/4拍;
//5, 2, 2 分別代表：５, 中音, 2個1/4拍;
//3, 2, 4 分別代表：３, 中音, 4個1/4拍;
//5, 2, 4 分別代表：５, 中音, 4個1/4拍;
//1, 3, 4 分別代表：１, 高音, 4個1/4拍;
//低音為1，中音為2，高音為3，超高音為4；
//////////////////////////////////////////////////////////
/********************世上只有媽媽好*********************/
uchar code sszymmh[] = {
 6,2,6, 5,2,2, 3,2,4, 5,2,4,
 1,3,4, 6,2,2, 5,2,2, 6,2,8,
 3,2,4, 5,2,2, 6,2,2, 5,2,4,
 3,2,4, 1,2,2, 6,1,2, 5,2,2,
 3,2,2, 2,2,8, 2,2,6, 3,2,2,
 5,2,4, 5,2,2, 6,2,2, 3,2,4,
 2,2,4, 1,2,8, 5,2,6, 3,2,2,
 2,2,2, 1,2,2, 6,1,2, 1,2,2,
 5,1,16, 0,0,0};
/**********************兩只耗子**********************/
uchar code TwoMouse[]={
 3,2,2, 6,2,2, 7,2,2, 5,2,2,
 3,2,2, 6,2,2, 7,2,2, 5,2,2,
 7,2,2, 1,3,2, 2,3,4,
 7,2,2, 1,3,2, 2,3,4,
 2,3,1, 3,3,1, 2,3,1, 1,3,1, 7,2,2, 5,2,2,
 2,3,1, 3,3,1, 2,3,1, 1,3,1, 7,2,2, 5,2,2,
 6,2,2, 2,2,2, 5,2,4, 6,2,2, 2,2,2, 5,2,4,
 0,0,0};
/***********************兩只蝴蝶**********************/
uchar code TwoButterfly[]={
 3,2,2, 2,2,2, 3,2,6, 3,2,2, 3,2,2, 2,2,2,
 1,2,6, 6,1,2, 1,2,2, 2,2,4, 2,2,2, 3,2,2,
 2,2,2, 1,2,2, 6,1,2, 1,2,2, 5,1,12,3,2,2,
 2,2,2, 3,2,8, 3,2,2, 2,2,2, 3,2,2, 3,2,2,
 1,2,12,6,1,2, 1,2,2, 2,2,4, 2,2,2, 3,2,2,
 2,2,2, 1,2,2, 6,1,2, 1,2,2, 2,2,12,3,2,2,
 2,2,2, 3,2,8, 3,2,2, 2,2,2, 3,2,2, 2,2,2,
 1,2,12,6,1,2, 1,2,2, 2,2,4, 2,2,2, 3,2,2,
 2,2,2, 1,2,2, 6,1,2, 1,2,2, 5,2,12,3,2,2,
 5,2,2, 5,2,8, 5,2,2, 5,2,2, 6,2,2, 5,2,2,
 3,2,12,2,2,2, 3,2,2, 2,2,4, 2,2,2, 3,2,2,
 2,2,2, 1,2,2, 6,1,2, 6,1,1, 1,2,1, 1,2,1,
 1,2,1, 1,2,12,0,0,4, 5,2,2, 5,2,2, 6,2,2,
 1,3,2, 7,2,2, 7,2,2, 6,2,2, 3,2,2, 2,2,2,
 2,2,2, 3,2,2, 3,2,8, 3,2,2, 3,2,2,
 5,2,2, 6,2,4, 6,2,6, 6,1,2, 3,2,2, 2,2,2,
 2,2,12,3,2,2, 5,2,2, 5,2,2, 3,2,2, 5,2,4,
 1,3,4, 7,2,2, 6,2,2, 7,2,2, 3,2,4,
 6,2,2, 6,2,2, 7,2,2, 6,2,2, 5,2,2,
 3,2,2, 2,2,4, 3,2,2, 2,2,2, 3,2,2, 5,2,6,
 5,2,2, 5,2,2, 6,2,2, 6,2,2, 5,2,2,
 3,2,2, 2,2,4, 5,1,2, 5,1,2, 6,1,2, 1,2,12,
 0,0,0};
/*****************happy birthday***********************/
uchar code Birthday[]={
 5,1,2, 5,1,2, 6,1,4, 5,1,4, 1,2,4, 7,1,8,
 5,1,2, 5,1,2, 6,1,4, 5,1,4, 2,2,4, 1,2,8,
 5,1,2, 5,1,2, 5,2,4, 3,2,4, 1,2,4, 7,1,4,
 6,1,4, 4,2,2, 4,2,2, 3,2,4, 1,2,4, 2,2,4,
 1,2,4, 0,0,0};
 
//////////////////////////////////////////////////////// 
//-----------------------------------------------------
void t0int() interrupt 1         //T0中斷程序，控制發音的音調
{
    TR0 = 0;                     //先關閉T0
    speaker = ~speaker;          //輸出方波, 發音
    TH0 = t0h;               //下次的中斷時間, 這個時間, 控制音調高低
    TL0 = t0l;
    TR0 = 1;                     //啟動T0
}
//--------------------------------------
void delay(uchar t)     //延時程序，控制發音的時間長度120ms(1/4拍)
{
 uchar a,b,c;
    while(t--)     //四重循環, 共延時t個1/4拍
 {         
     for(c=193;c>0;c--)
         for(b=114;b>0;b--)
             for(a=1;a>0;a--);
 }
  //延時期間, 可進入T0中斷去發音
    TR0 = 0;                        //關閉T0, 停止發音
}
//--------------------------------------
void singachar()                      //演奏一個音符
{
 TR0=0;
    TH0 = t0h;               //控制音調
    TL0 = t0l;
    TR0 = 1;                     //啟動T0, 由T0輸出方波去發音
    delay(time);                 //控制時間長度即 節拍
}
//--------------------------------------
//**************演奏一首歌***********************************//
void song(uchar *str)
{
 uchar k,i;
 i = 0;
    time = 1;
    while(time)
 {
        k = str[i] + 7 * (str[i + 1]);//第i個是音符, 第i+1個是第幾個八度                         
        t0h = FREQH[k];      //從數據表中讀出頻率數值
        t0l = FREQL[k];      //實際上, 是定時的時間長度
        time = str[i + 2];   //讀出時間長度數值 節拍時間
        i += 3;
        singachar();
 }
}
void main(void)
{
    TMOD = 0x01;                    //置T0定時工作方式1
    ET0 = 1;                     //開T0中斷
    EA = 1;                      //開CPU中斷
    while(1)
 {
  song(TwoMouse);
  delay(20);
  song(sszymmh);
  delay(20);
//  song(TwoButterfly);
  song(Birthday);
  delay(20);
 }
                 //發出一個音符
}

/****************樂譜節拍高低音***********************************
節拍：下面有兩橫表示四分之一拍；下面有一橫表示半拍;后面加一點表示增加該音符一半拍數；
    2 表示一拍 ，2- 表示兩拍；2---表示四拍
音調：上面有一點表示高音，下面有一點表示低音，通常表示中音；
設置節拍速度125拍/分，則2.08/拍, 二拍960ms,一拍0.48s,1/4拍為120ms
*************************************************************/