beep.c

一个很好的音乐发生程序

  }
  if(LDiv2!=0)
  {
   TR0=0; BeepIO=0;
   for(i=LDiv2;i>0;i--)  //音符间的间隔
   {
    while(TF1==0);
    TH1 = Sound_Temp_TH1;
    TL1 = Sound_Temp_TL1;
    TF1=0;
   }
  }
  Point+=2; 
  Tone=Sound[Point];
  Length=Sound[Point+1];
 }
 BeepIO = 0;
}
/**************************************************************************/
#endif

/**************************************************************************
数码管显示子程序
首先实现约4秒的个性签名 FLYING 的显示
然后实现约3秒的歌曲曲数的显示（从左到右的1-2位）
                当前运行时间的显示（从左到右的4-8位的）
由于本人买的单片机的数码管接线紊乱，故字形口和字位口同资料书上介绍的不同
**************************************************************************/
void Delay1ms()
{
unsigned char code dispcode[]={
  0x41,0xf5,0x29,0x31,0x95,0x13,0x03,0x75,0x01,0x11,0xbf,0x11,0x45,0xf5,0x91,0xcb,0x0f,0xff}; 
unsigned char dispbitcode[]={0xfe,0xfd,0xfb,0xf7,0xef,0xdf,0xbf,0x7f}; 
unsigned char dispbuf[8]={0,0,0,0,0,0,0,0}; 
unsigned char dispbitcnt; 
unsigned char mstcnt;
unsigned int i,j;
 
numble++;

  for(i=250;i>0;i--) 
    for(j=300;j>0;j--)
      {
mstcnt++; 
        if(mstcnt==8) 
          { 
           mstcnt=0; 
           P0=dispcode[dispbuf[dispbitcnt]]; 
           P2=dispbitcode[dispbitcnt];       
           dispbitcnt++;
           if(dispbitcnt==8) 
             { 
              dispbitcnt=0; 
             } 
           } 

        dispbuf[1]=10; 
        dispbuf[2]=11;
        dispbuf[0]=12;
        dispbuf[3]=13; 
        dispbuf[5]=14;
        dispbuf[6]=15;
        dispbuf[4]=16; 
        dispbuf[7]=10; 
       }



 for(i=150;i>0;i--) 
    for(j=200;j>0;j--)
      {
       mstcnt++; 
       if(mstcnt==8) 
         { 
          mstcnt=0; 
          P0=dispcode[dispbuf[dispbitcnt]]; 
          P2=dispbitcode[dispbitcnt];       
          dispbitcnt++; 
          if(dispbitcnt==8) 
            { 
             dispbitcnt=0; 
             } 
          } 

        dispbuf[7]=numble/10; 
        dispbuf[4]=numble&9;
        dispbuf[6]=17;
        dispbuf[5]=min/10; 
        dispbuf[3]=min&9;
        dispbuf[0]=10;
        dispbuf[2]=sec/10; 
        dispbuf[1]=sec&9;
       }

}


   
//*****************************Music*******************************************
//挥着翅膀的女孩---容祖儿
unsigned char code Music_Girl[]={ 
    0x17,0x02, 0x17,0x03, 0x18,0x03, 0x19,0x02, 0x15,0x03,
    0x16,0x03, 0x17,0x03, 0x17,0x03, 0x17,0x03, 0x18,0x03,
    0x19,0x02, 0x16,0x03, 0x17,0x03, 0x18,0x02, 0x18,0x03,
    0x17,0x03, 0x15,0x02, 0x18,0x03, 0x17,0x03, 0x18,0x02,
    0x10,0x03, 0x15,0x03, 0x16,0x02, 0x15,0x03, 0x16,0x03,
    0x17,0x02, 0x17,0x03, 0x18,0x03, 0x19,0x02, 0x1A,0x03,
    0x1B,0x03, 0x1F,0x03, 0x1F,0x03, 0x17,0x03, 0x18,0x03,
    0x19,0x02, 0x16,0x03, 0x17,0x03, 0x18,0x03, 0x17,0x03,
    0x18,0x03, 0x1F,0x03, 0x1F,0x02, 0x16,0x03, 0x17,0x03,
    0x18,0x03, 0x17,0x03, 0x18,0x03, 0x20,0x03, 0x20,0x02,
    0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x20,0x03, 0x21,0x03,
    0x20,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x1F,0x03,
    0x1B,0x03, 0x19,0x03, 0x19,0x03, 0x15,0x03, 0x1A,0x66,
    0x1A,0x03, 0x19,0x03, 0x15,0x03, 0x15,0x03, 0x17,0x03,
    0x16,0x66, 0x17,0x04, 0x18,0x04, 0x18,0x03, 0x19,0x03,
    0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x20,0x03, 0x21,0x03,
    0x20,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66, 0x1F,0x03,
    0x1B,0x03, 0x19,0x03, 0x19,0x03, 0x15,0x03, 0x1A,0x66,
    0x1A,0x03, 0x19,0x03, 0x19,0x03, 0x1F,0x03, 0x1B,0x03,
    0x1F,0x00, 0x1A,0x03, 0x1A,0x03, 0x1A,0x03, 0x1B,0x03,
    0x1B,0x03, 0x1A,0x03, 0x19,0x03, 0x19,0x02, 0x17,0x03,
    0x15,0x17, 0x15,0x03, 0x16,0x03, 0x17,0x03, 0x18,0x03,
    0x17,0x04, 0x18,0x0E, 0x18,0x03, 0x17,0x04, 0x18,0x0E,
    0x18,0x66, 0x17,0x03, 0x18,0x03, 0x17,0x03, 0x18,0x03,
    0x20,0x03, 0x20,0x02, 0x1F,0x03, 0x1B,0x03, 0x1F,0x66,
    0x20,0x03, 0x21,0x03, 0x20,0x03, 0x1F,0x03, 0x1B,0x03,
    0x1F,0x66, 0x1F,0x04, 0x1B,0x0E, 0x1B,0x03, 0x19,0x03,
    0x19,0x03, 0x15,0x03, 0x1A,0x66, 0x1A,0x03, 0x19,0x03,
    0x15,0x03, 0x15,0x03, 0x17,0x03, 0x16,0x66, 0x17,0x04,
    0x18,0x04, 0x18,0x03, 0x19,0x03, 0x1F,0x03, 0x1B,0x03,
    0x1F,0x66, 0x20,0x03, 0x21,0x03, 0x20,0x03, 0x1F,0x03,
    0x1B,0x03, 0x1F,0x66, 0x1F,0x03, 0x1B,0x03, 0x19,0x03,
    0x19,0x03, 0x15,0x03, 0x1A,0x66, 0x1A,0x03, 0x19,0x03,
    0x19,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x00, 0x18,0x02,
    0x18,0x03, 0x1A,0x03, 0x19,0x0D, 0x15,0x03, 0x15,0x02,
    0x18,0x66, 0x16,0x02, 0x17,0x02, 0x15,0x00, 0x00,0x00};




//同一首歌-毛阿敏
unsigned char code Music_Same[]={ 
    0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x66, 0x18,0x03,
    0x17,0x02, 0x15,0x02, 0x16,0x01, 0x15,0x02, 0x10,0x02,
    0x15,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x02,
    0x17,0x03, 0x18,0x03, 0x19,0x02, 0x15,0x02, 0x18,0x66,
    0x17,0x03, 0x19,0x02, 0x16,0x03, 0x17,0x03, 0x16,0x00,
    0x17,0x01, 0x19,0x02, 0x1B,0x02, 0x1B,0x70, 0x1A,0x03,
    0x1A,0x01, 0x19,0x02, 0x19,0x03, 0x1A,0x03, 0x1B,0x02,
    0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x18,0x66, 0x18,0x03,
    0x19,0x02, 0x1A,0x02, 0x19,0x0C, 0x18,0x0D, 0x17,0x03,
    0x16,0x01, 0x11,0x02, 0x11,0x03, 0x10,0x03, 0x0F,0x0C,
    0x10,0x02, 0x15,0x00, 0x1F,0x01, 0x1A,0x01, 0x18,0x66,
    0x19,0x03, 0x1A,0x01, 0x1B,0x02, 0x1B,0x03, 0x1B,0x03,
    0x1B,0x0C, 0x1A,0x0D, 0x19,0x03, 0x17,0x00, 0x1F,0x01,
    0x1A,0x01, 0x18,0x66, 0x19,0x03, 0x1A,0x01, 0x10,0x02,
    0x10,0x03, 0x10,0x03, 0x1A,0x0C, 0x18,0x0D, 0x17,0x03,
    0x16,0x00, 0x0F,0x01, 0x15,0x02, 0x16,0x02, 0x17,0x70,
    0x18,0x03, 0x17,0x02, 0x15,0x03, 0x15,0x03, 0x16,0x66,
    0x16,0x03, 0x16,0x02, 0x16,0x03, 0x15,0x03, 0x10,0x02,
    0x10,0x01, 0x11,0x01, 0x11,0x66, 0x10,0x03, 0x0F,0x0C,
    0x1A,0x02, 0x19,0x02, 0x16,0x03, 0x16,0x03, 0x18,0x66,
    0x18,0x03, 0x18,0x02, 0x17,0x03, 0x16,0x03, 0x19,0x00,
    0x00,0x00 };




//两只蝴蝶----                                  
unsigned char code Music_Two[] ={ 
    0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
    0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
    0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
    0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x16,0x03,
    0x17,0x01, 0x16,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x01,
    0x10,0x03, 0x15,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
    0x16,0x03, 0x15,0x03, 0x10,0x03, 0x15,0x03, 0x16,0x01,
    0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
    0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
    0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
    0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x19,0x03,
    0x19,0x01, 0x19,0x03, 0x1A,0x03, 0x19,0x03, 0x17,0x01,
    0x16,0x03, 0x16,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
    0x16,0x03, 0x15,0x03, 0x10,0x03, 0x10,0x0D, 0x15,0x00,
    0x19,0x03, 0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03,
    0x1B,0x03, 0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03,
    0x16,0x0D, 0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03,
    0x1A,0x02, 0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03,
    0x16,0x01, 0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03,
    0x19,0x02, 0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E,
    0x1B,0x04, 0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E,
    0x1B,0x04, 0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03,
    0x17,0x0D, 0x16,0x03, 0x17,0x03, 0x19,0x01, 0x19,0x03,
    0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03, 0x1B,0x03,
    0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03, 0x16,0x03,
    0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03, 0x1A,0x02,
    0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x01,
    0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03, 0x19,0x03,
    0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
    0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
    0x17,0x16, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
    0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03, 0x0F,0x02,
0x10,0x03, 0x15,0x00, 0x00,0x00 };


//月亮代表我的心----邓丽君
unsigned char code Music_moon[] ={
    0x0F,0x03, 0x15,0x66, 0x17,0x03, 0x19,0x66, 0x15,0x03, 
    0x11,0x66, 0x17,0x03, 0x19,0x16, 0x19,0x03, 0x1A,0x66,
    0x1B,0x03, 0x1F,0x66, 0x1A,0x03, 0x1A,0x04, 0x19,0x00,
    0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
    0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
    0x16,0x03, 0x17,0x03, 0x17,0x04, 0x16,0x66, 0x15,0x03,
    0x10,0x02, 0x17,0x02, 0x17,0x04, 0x16,0x14, 0x0F,0x17,
    0x0F,0x03, 0x15,0x66, 0x17,0x03, 0x19,0x66, 0x15,0x03,
    0x11,0x66, 0x17,0x03, 0x19,0x16, 0x19,0x03, 0x1A,0x66,
    0x1B,0x03, 0x1F,0x66, 0x1A,0x03, 0x1A,0x04, 0x19,0x00,
    0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
    0x17,0x03, 0x16,0x03, 0x15,0x66, 0x15,0x03, 0x15,0x02,
    0x16,0x03, 0x17,0x03, 0x17,0x04, 0x16,0x66, 0x10,0x03,
    0x11,0x02, 0x15,0x0D, 0x16,0x03, 0x15,0x00, 0x19,0x02,
    0x17,0x66, 0x16,0x03, 0x15,0x02, 0x19,0x02, 0x11,0x00,
    0x10,0x03, 0x11,0x03, 0x10,0x66, 0x11,0x03, 0x10,0x02,
    0x0F,0x02, 0x17,0x00, 0x19,0x02, 0x17,0x66, 0x16,0x03,
    0x15,0x02, 0x19,0x02, 0x11,0x00, 0x10,0x03, 0x11,0x03,
    0x15,0x66, 0x15,0x03, 0x15,0x66, 0x16,0x0E, 0x17,0x04,
    0x17,0x04, 0x16,0x14, 0x0F,0x03, 0x15,0x66, 0x17,0x03,
    0x19,0x66, 0x15,0x03, 0x11,0x66, 0x17,0x03, 0x19,0x66,
    0x19,0x03, 0x1A,0x66, 0x1B,0x03, 0x1F,0x66, 0x1A,0x03,
    0x1A,0x04, 0x19,0x00, 0x17,0x03, 0x16,0x03, 0x15,0x66,
    0x15,0x03, 0x15,0x02, 0x17,0x03, 0x16,0x03, 0x15,0x66,
    0x15,0x03, 0x15,0x02, 0x16,0x03, 0x17,0x03, 0x17,0x04,
    0x16,0x66, 0x10,0x03, 0x11,0x02, 0x15,0x0D, 0x16,0x03,
    0x16,0x03, 0x15,0x00, 0x17,0x03, 0x16,0x03, 0x15,0x66,
    0x15,0x03, 0x15,0x02, 0x17,0x03, 0x16,0x03, 0x15,0x66,
    0x15,0x03, 0x15,0x02, 0x16,0x03, 0x17,0x03, 0x17,0x04,
    0x16,0x66, 0x10,0x03, 0x11,0x02, 0x15,0x0D, 0x16,0x03,
    0x16,0x03, 0x15,0x00,0x00,0x00 };


//偏偏喜欢你----陈百祥
unsigned char code Music_like[] ={
    0x15,0x03, 0x10,0x03, 0x19,0x66, 0x1A,0x03, 0x19,0x02, 
    0x16,0x03, 0x15,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x01,
    0x15,0x03, 0x16,0x03, 0x10,0x66, 0x0F,0x03, 0x19,0x03,
    0x17,0x03, 0x16,0x03, 0x17,0x03, 0x15,0x00, 0x0F,0x71,
    0x0D,0x04, 0x15,0x66, 0x17,0x03, 0x16,0x03, 0x15,0x03,
    0x10,0x0E, 0x0F,0x04, 0x0D,0x03, 0x0F,0x66, 0x10,0x03,
    0x0F,0x02, 0x10,0x03, 0x0F,0x03, 0x19,0x66, 0x1F,0x03,
    0x1A,0x03, 0x19,0x03, 0x17,0x0E, 0x16,0x04, 0x15,0x0D,
    0x16,0x00, 0x16,0x03, 0x15,0x03, 0x19,0x66, 0x1A,0x03,
    0x19,0x02, 0x1A,0x03, 0x19,0x03, 0x17,0x67, 0x16,0x04,
    0x15,0x01, 0x15,0x03, 0x16,0x03, 0x10,0x66, 0x0F,0x03,
    0x19,0x03, 0x17,0x03, 0x16,0x0E, 0x17,0x04, 0x10,0x03,