日韩床上生活一级视频|能看毛片的操逼网站|色悠悠网站在线观看视频|国产免费观看A淫色免费|国产av久久久久久久|免费A级视频美女网站黄|国产毛片av日韩小黄片|热久久免费国产视频|中文字幕无码色色|成人在线视频99久久久

機(jī)電之家資源網(wǎng)
單片機(jī)首頁|單片機(jī)基礎(chǔ)|單片機(jī)應(yīng)用|單片機(jī)開發(fā)|單片機(jī)文案|軟件資料下載|音響制作|電路圖下載 |嵌入式開發(fā)
培訓(xùn)信息
贊助商
51單片機(jī)播放音樂
51單片機(jī)播放音樂
作者:佚名  來源:不詳  錄入:Admin  更新時(shí)間：2008-7-26 20:02:01  點(diǎn)擊數(shù)：2
【字體： 字體顏色】

以下為51單片機(jī)播放音樂簡譜的函數(shù)庫：

/**************************************************************************
  
          SOUND PLAY FOR 51MCU
 
                 COPYRIGHT (c)   2005 BY JJJ.
                         --  ALL RIGHTS RESERVED  --
 
   File Name:       SoundPlay.h
   Author:          Jiang Jian Jun
   Created:         2005/5/16
   Modified:  NO
   Revision:   1.0
 
*******************************************************************************/

/*說明**************************************************************************
 曲譜存貯格式 unsigned char code MusicName{音高，音長，音高，音長...., 0,0}; 末尾:0,0 表示結(jié)束(Important)

 音高由三位數(shù)字組成：
   個(gè)位是表示 1~7 這七個(gè)音符 
   十位是表示音符所在的音區(qū):1-低音，2-中音，3-高音;
   百位表示這個(gè)音符是否要升半音: 0-不升，1-升半音。
 
 音長最多由三位數(shù)字組成： 
   個(gè)位表示音符的時(shí)值，其對(duì)應(yīng)關(guān)系是： 
    |數(shù)值(n):  |0 |1 |2 |3 | 4 | 5 | 6 
    |幾分音符: |1 |2 |4 |8 |16 |32 |64   音符=2^n
   十位表示音符的演奏效果(0-2):  0-普通，1-連音，2-頓音
   百位是符點(diǎn)位: 0-無符點(diǎn)，1-有符點(diǎn)

 調(diào)用演奏子程序的格式
   Play(樂曲名,調(diào)號(hào),升降八度,演奏速度);
 |樂曲名           : 要播放的樂曲指針,結(jié)尾以(0,0)結(jié)束;
 |調(diào)號(hào)(0-11)       : 是指樂曲升多少個(gè)半音演奏;
 |升降八度(1-3)   : 1:降八度, 2:不升不降, 3:升八度;
 |演奏速度(1-12000): 值越大速度越快;

***************************************************************************/
#ifndef __SOUNDPLAY_H_REVISION_FIRST__
#define __SOUNDPLAY_H_REVISION_FIRST__

#include

//**************************************************************************

#define SYSTEM_OSC   11059200//12000000 //定義晶振頻率12000000HZ
#define SOUND_SPACE  4/5   //定義普通音符演奏的長度分率,//每4分音符間隔
sbit    BeepIO    =    P2^6;  //定義輸出管腳

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; //音符定時(shí)器初值暫存
unsigned char Sound_Temp_TH1,Sound_Temp_TL1; //音長定時(shí)器初值暫存
//**************************************************************************
void InitialSound(void)
{
 BeepIO = 1;
 Sound_Temp_TH1 = (65535-(1/1200)*SYSTEM_OSC)/256; // 計(jì)算TL1應(yīng)裝入的初值  (10ms的初裝值)
 Sound_Temp_TL1 = (65535-(1/1200)*SYSTEM_OSC)%256; // 計(jì)算TH1應(yīng)裝入的初值
 TH1 = Sound_Temp_TH1;
 TL1 = Sound_Temp_TL1;
 TMOD  |= 0x11;
 ET0    = 1;
 ET1    = 0;
 TR0    = 0;
 TR1    = 0;
 EA     = 1;
}

void BeepTimer0(void) interrupt 1 //音符發(fā)生中斷
{
 BeepIO = !BeepIO;
 TH0    = Sound_Temp_TH0;
  TL0    = Sound_Temp_TL0;
}
//**************************************************************************
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ù)調(diào)號(hào)及升降八度來生成新的頻率表
 {
  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) //計(jì)算歌曲長度
 {
  SoundLength+=2;
 }

 Point = 0;
 Tone   = Sound[Point]; 
 Length = Sound[Point+1];    // 讀出第一個(gè)音符和時(shí)時(shí)值
 
 LDiv0 = 12000/Speed;    // 算出1分音符的長度(幾個(gè)10ms)  
 LDiv4 = LDiv0/4;      // 算出4分音符的長度
 LDiv4 = LDiv4-LDiv4*SOUND_SPACE;  // 普通音最長間隔標(biāo)準(zhǔn)
 TR0   = 0;
 TR1   = 1;
 while(Point < SoundLength)
 {
  SL=Tone%10;         //計(jì)算出音符
  SM=Tone/10%10;         //計(jì)算出高低音
  SH=Tone/100;         //計(jì)算出是否升半
  CurrentFre = NewFreTab[SignTab[SL-1]+SH];  //查出對(duì)應(yīng)音符的頻率  
  if(SL!=0)
  {
   if (SM==1) CurrentFre >>= 2;   //低音
   if (SM==3) CurrentFre <<= 2;   //高音
   Temp_T = 65536-(50000/CurrentFre)*10/(12000000/SYSTEM_OSC);//計(jì)算計(jì)數(shù)器初值
   Sound_Temp_TH0 = Temp_T/256;
   Sound_Temp_TL0 = Temp_T%256;
   TH0 = Sound_Temp_TH0; 
   TL0 = Sound_Temp_TL0 + 12; //加12是對(duì)中斷延時(shí)的補(bǔ)償
  }
  SLen=LengthTab[Length%10];  //算出是幾分音符
  XG=Length/10%10;    //算出音符類型(0普通1連音2頓音)
  FD=Length/100;
  LDiv=LDiv0/SLen;    //算出連音音符演奏的長度(多少個(gè)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;   //算出不發(fā)音的長度
    if (SL!=0)
  {
   TR0=1;
   for(i=LDiv1;i>0;i--)  //發(fā)規(guī)定長度的音
   {
    while(TF1==0);
    TH1 = Sound_Temp_TH1;
    TL1 = Sound_Temp_TL1;
    TF1=0;
   }
  }
  if(LDiv2!=0)
  {
   TR0=0; BeepIO=1;
   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 = 1;
}
//**************************************************************************
#endif

以下為曲譜編碼文件，自己可以根據(jù)規(guī)則，對(duì)照簡譜編寫曲譜編碼表，我已經(jīng)做好了一個(gè)應(yīng)用程序，只需將簡譜輸入進(jìn)去，就可以直接輸出曲譜編碼表，省去人工編碼的痛苦。此軟件作為共享軟件發(fā)布，有需要的請(qǐng)留言，此東東絕對(duì)是搞電子設(shè)計(jì)在校大學(xué)生泡MM的巨佳手段，呵呵。

附錄：

//揮著翅膀的女孩
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,
                &nbs;                 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,
                         &nbp;        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,
        &nsp;                         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 };

 
  • 上一篇： 51單片機(jī)與USB芯片PDIUSBD12接口固件程序
  • 下一篇： AT89c51與AT89S51單片機(jī)的區(qū)別
    		•
    發(fā)表評(píng)論   告訴好友   打印此文  收藏此頁  關(guān)閉窗口  返回頂部
    熱點(diǎn)文章
    		 
    推薦文章
    		 
    相關(guān)文章
    網(wǎng)友評(píng)論：（只顯示最新5條。）
    關(guān)于我們　|　聯(lián)系我們　|　廣告合作　|　付款方式　|　使用幫助 | 機(jī)電之家 | 會(huì)員助手 | 免費(fèi)鏈接

    點(diǎn)擊這里給我發(fā)消息66821730(技術(shù)支持)點(diǎn)擊這里給我發(fā)消息66821730(廣告投放) 點(diǎn)擊這里給我發(fā)消息41031197(編輯) 點(diǎn)擊這里給我發(fā)消息58733127(審核)
    本站提供的機(jī)電設(shè)備，機(jī)電供求等信息由機(jī)電企業(yè)自行提供，該企業(yè)負(fù)責(zé)信息內(nèi)容的真實(shí)性、準(zhǔn)確性和合法性。
    機(jī)電之家對(duì)此不承擔(dān)任何保證責(zé)任，有侵犯您利益的地方請(qǐng)聯(lián)系機(jī)電之家，機(jī)電之家將及時(shí)作出處理。
    Copyright 2007 機(jī)電之家 Inc All Rights Reserved.機(jī)電之家-由機(jī)電一體化網(wǎng)更名-聲明
    電話：0571-87774297 傳真：0571-87774298
    杭州濱興科技有限公司提供技術(shù)支持

    主辦：杭州市高新區(qū)（濱江）機(jī)電一體化學(xué)會(huì)
    中國行業(yè)電子商務(wù)100強(qiáng)網(wǎng)站

    網(wǎng)站經(jīng)營許可證:浙B2-20080178-1