beep.c

一个很好的音乐发生程序

//**************************************************************************//
//   
//   程序名:     单片机音乐智能播放
//   晶  振:     11.0592MHZ                            CPU型号: AT89S52
//   功能描述:   实现单片机音乐的播放.音乐播放首数的显示.个性签名的间断显
//               示.播放时间的间断显示.跑马等伴奏闪烁.暂停-开始功能键使用
//   参考文献:   HTTP://WWW.MCUBLOG.COM的署名为JJJ(Jiang Jian Jun)的作品
//                                            
//
//
//                                                 寂寞高手--令狐冲
//                                                    2006-05-28
//**************************************************************************//
//该程序被稍作修改以适应本学习板配置
//////////////////////////////////////////////////////////////////////////////
#include<reg52.h>                                      

#ifndef __SOUNDPLAY_H_REVISION_FIRST__
#define __SOUNDPLAY_H_REVISION_FIRST__
#define SYSTEM_OSC   11059200                    //定义晶振频率11059200HZ
#define SOUND_SPACE  4/5        //定义普通音符演奏的长度分率,//每4分音符间隔
  /**************************************************************************/
sbit P1_0 = P0 ^ 0;                  //对跑马灯的定义使用
sbit P1_1 = P0 ^ 1;	
sbit P1_2 = P0 ^ 2;
sbit P1_3 = P0 ^ 3;
sbit P1_4 = P0 ^ 4;
sbit P1_5 = P0 ^ 5;
sbit P1_6 = P0 ^ 6;
sbit P1_7 = P0 ^ 7;

sbit P3_4 = P1 ^ 0;                 //对功能键的定义使用
sbit P3_5 = P1 ^ 1;                 
 
/**************************************************************************/
unsigned int code FreTab[12]  = { 262,277,294,311,330,349,369,392,415,440,466,494 }; 
//原始频率表
unsigned char code SignTab[7]  = { 0,2,4,5,7,9,11 };           //1~7在频率表中的位置
unsigned char code LengthTab[7]= { 1,2,4,8,16,32,64 };      
unsigned char Sound_Temp_TH0,Sound_Temp_TL0; //音符定时器初值暂存 
unsigned char Sound_Temp_TH1,Sound_Temp_TL1; //音长定时器初值暂存
sbit    BeepIO =  P3^7;//定义输出管脚 
  /**************************************************************************/
unsigned char Count=0;                            //0.05秒的变量定义
unsigned int  del;                                //过渡变量
unsigned int tcnt;                                 //过渡变量
unsigned int numble=0;                            //歌曲曲数的定义
unsigned char  min=0, sec=0;                      //1秒钟 1分钟的定义
  /**************************************************************************
  对整个中断系统的设置
  为了得到较好的音效，定时器0和定时器1用于音乐播放子程序
                      初值都为10MS
  定时器2 用于播放时间的间断显示子程序，初值为50MS
**************************************************************************/
void InitialSound(void)
{
 BeepIO = 0;
     Sound_Temp_TH1 = (65535-(1/1200)*SYSTEM_OSC)/256; // 计算TL1应装入的初值  
 Sound_Temp_TL1 = (65535-(1/1200)*SYSTEM_OSC)%256; // 计算TH1应装入的初值 
 TH1 = Sound_Temp_TH1;
 TL1 = Sound_Temp_TL1;
 TMOD  |= 0x11;
 ET0    = 1;
 ET1    = 0;
 TR0    = 0;
 TR1    = 0;

 RCAP2H = 0x2c;                      //对定时器2的初始化的定义使用
 RCAP2L = 0x13;
 TH2 = 0x2c;                          // 定时器初值
 TL2 = 0x13; 
 ES = 0;                              // 关闭通信中断
 ET2 = 1;                             // 允许T2中断
 T2CON = 0X04;
 EA = 1;
}



void BeepTimer0(void) interrupt 1         //音符发生中断
{
 BeepIO = !BeepIO;
 TH0    = Sound_Temp_TH0;
 TL0    = Sound_Temp_TL0;
}

void timer2Int(void) interrupt 5            //时钟发生中断
{
 TF2 = 0;                             // 溢出标志必须由软件清零
 EXF2 = 0;                            // 捕获标志必须由软件清零
 Count++;
 if(Count==20)
  {  
   sec++;
   Count=0;
  }
 if(sec==60)
  {
   min++;
   sec=0;
  }
}



/*说明**********************************************************************
  曲谱存贮格式 unsigned char code MusicName{音高，音长，音高，音长...., 0,0};
  末尾:0,0 表示结束(Important)

  音高由三位数字组成：
    个位是表示 1~7 这七个音符 
    十位是表示音符所在的音区:1-低音，2-中音，3-高音;
    百位表示这个音符是否要升半音: 0-不升，1-升半音。
 
  音长最多由三位数字组成： 
    个位表示音符的时值，其对应关系是： 
     |数值(n):  |0 |1 |2 |3 | 4 | 5 | 6 
     |几分音符: |1 |2 |4 |8 |16 |32 |64   音符=2^n
    十位表示音符的演奏效果(0-2):  0-普通，1-连音，2-顿音
    百位是符点位: 0-无符点，1-有符点

  调用演奏子程序的格式
    Play(乐曲名,调号,升降八度,演奏速度);
  |乐曲名           : 要播放的乐曲指针,结尾以(0,0)结束;
  |调号(0-11)       : 是指乐曲升多少个半音演奏;
  |升降八度(1-3)   : 1:降八度, 2:不升不降, 3:升八度;
  |演奏速度(1-12000): 值越大速度越快;
***************************************************************************/


/**************************************************************************/
void Play(unsigned char *Sound,unsigned char Signature,unsigned Octachord,unsigned int Speed)
{
 unsigned int NewFreTab[12];  //新的频率表
 unsigned char i,j;
 unsigned int Point,LDiv,LDiv0,LDiv1,LDiv2,LDiv4,CurrentFre,Temp_T,SoundLength;
 unsigned char Tone,Length,SL,SH,SM,SLen,XG,FD;

 
 for(i=0;i<12;i++)     // 根据调号及升降八度来生成新的频率表 
 {
  j = i + Signature;
  if(j > 11)
  {
   j = j-12;
   NewFreTab[i] = FreTab[j]*2;
  }
  else
   NewFreTab[i] = FreTab[j];


  if(Octachord == 1)
   NewFreTab[i]>>=2;
  else if(Octachord == 3)
   NewFreTab[i]<<=2;
 }         
 
 SoundLength = 0;
 while(Sound[SoundLength] != 0x00) //计算歌曲长度
 {
  SoundLength+=2;
 }


 Point = 0;
 Tone   = Sound[Point]; 
 Length = Sound[Point+1];    // 读出第一个音符和它时时值
 
 LDiv0 = 12000/Speed;    // 算出1分音符的长度(几个10ms)  
 LDiv4 = LDiv0/4;      // 算出4分音符的长度 
 LDiv4 = LDiv4-LDiv4*SOUND_SPACE;  // 普通音最长间隔标准 
 TR0   = 0;
 TR1   = 1;
 while(Point < SoundLength)
 {
  SL=Tone%10;         //计算出音符 
  SM=Tone/10%10;         //计算出高低音 
  SH=Tone/100;         //计算出是否升半 
  CurrentFre = NewFreTab[SignTab[SL-1]+SH];  //查出对应音符的频率  
  if(SL!=0)
  {
   if (SM==1) CurrentFre >>= 2;   //低音 
   if (SM==3) CurrentFre <<= 2;   //高音
   Temp_T = 65536-(50000/CurrentFre)*10/(12000000/SYSTEM_OSC);//计算计数器初值
   Sound_Temp_TH0 = Temp_T/256; 
   Sound_Temp_TL0 = Temp_T%256; 
   TH0 = Sound_Temp_TH0;  
   TL0 = Sound_Temp_TL0 + 12; //加12是对中断延时的补偿 
  }
  SLen=LengthTab[Length%10];  //算出是几分音符
  XG=Length/10%10;    //算出音符类型(0普通1连音2顿音) 
  FD=Length/100;
  LDiv=LDiv0/SLen;    //算出连音音符演奏的长度(多少个10ms)
  if (FD==1) 
   LDiv=LDiv+LDiv/2;
  if(XG!=1) 
   if(XG==0)     //算出普通音符的演奏长度 
    if (SLen<=4) 
     LDiv1=LDiv-LDiv4;
    else
     LDiv1=LDiv*SOUND_SPACE;
   else
    LDiv1=LDiv/2;   //算出顿音的演奏长度 
  else
   LDiv1=LDiv;
  if(SL==0) LDiv1=0;
   LDiv2=LDiv-LDiv1;   //算出不发音的长度 
    if (SL!=0)
  {
   TR0=1;
   for(i=LDiv1;i>0;i--)  //发规定长度的音 
   {
    while(TF1==0);
    TH1 = Sound_Temp_TH1;
    TL1 = Sound_Temp_TL1;
    TF1=0;
  }
/*************************************************************************
功能键子程序，直接嵌入音乐播放程序之中
P1-0 P1-1 P1-2 P1-3 P1-4 P1-5 P1-6 P1-7六个跑马灯实现发出每个音符时的间断闪烁
P3-4 P3-5两键 实现暂停和开始的功能
为以后的二次开发，特留下两个功能键  以备后用
*************************************************************************/
   {
   if(i==1*LDiv1/1024)
       {P1_0=0;P1_1=1;P1_2=1;P1_3=1;P1_4=1;P1_5=1;P1_6=1;P1_7=1;}
   if(i==51*LDiv1/1024)
       {P1_0=0;P1_1=1;P1_2=1;P1_3=1;P1_4=1;P1_5=1;P1_6=1;P1_7=1;}
   if(i==101*LDiv1/1024)
       {P1_0=0;P1_1=0;P1_2=0;P1_3=1;P1_4=1;P1_5=1;P1_6=1;P1_7=1;}
   if(i==151*LDiv1/1024)
       {P1_0=0;P1_1=0;P1_2=0;P1_3=0;P1_4=1;P1_5=1;P1_6=1;P1_7=1;}
   if(i==201*LDiv1/1024)
       {P1_0=0;P1_1=0;P1_2=0;P1_3=0;P1_4=0;P1_5=1;P1_6=1;P1_7=1;}
   if(i==251*LDiv1/1024)
       {P1_0=0;P1_1=0;P1_2=0;P1_3=0;P1_4=0;P1_5=0;P1_6=1;P1_7=1;}
   if(i==301*LDiv1/1024)
       {P1_0=0;P1_1=0;P1_2=0;P1_3=0;P1_4=0;P1_5=0;P1_6=1;P1_7=1;}
   if(i==351*LDiv1/1024)
       {P1_0=0;P1_1=0;P1_2=0;P1_3=0;P1_4=0;P1_5=0;P1_6=0;P1_7=1;}
   if(i==401*LDiv1/1024)
       {P1_0=0;P1_1=0;P1_2=0;P1_3=0;P1_4=0;P1_5=0;P1_6=0;P1_7=0;}

   if(P3_4==0)
      for(i=300;i>0;i--) 
        for(j=300;j>0;j--);
           if(P3_4==0)
             EA=0;
   if(P3_5==0)
      for(i=300;i>0;i--) 
        for(j=300;j>0;j--);
           if(P3_5==0)
             EA=1;
}