找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開(kāi)始

搜索
查看: 26207|回復(fù): 34
收起左側(cè)

基于AT89C51制作的數(shù)字音樂(lè)盒（仿真和c程序）

  [復(fù)制鏈接]
ID:192257 發(fā)表于 2017-4-22 10:42 | 顯示全部樓層 |閱讀模式
單片機(jī)數(shù)字音樂(lè)盒制作proteus仿真原理圖：

電路圖

電路圖 0.png

單片機(jī)源程序：
  1. #include<reg51.h>
  2. #define uchar unsigned char
  3. #define uchar unsigned char
  4. #define uint unsigned int
  5. #define  LCDPORT P0
  6. uchar code tab[]="Press key";
  7. uchar code tab1[]="Select song";
  8. uchar code tab2[]="First Song" ;
  9. uchar code tab3[]="butterfly";
  10. uchar code tab4[]="Second Song"        ;
  11. uchar code tab5[]="Jingle bell ";
  12. uchar code tab6[]="Third Song" ;
  13. uchar code tab7[]="Yesterday";
  14. uchar code tab8[]="Forth Song" ;
  15. uchar code tab9[]="Youth League";
  16. sbit LCDE=P2^2;
  17. sbit LCDRW=P2^1;
  18. sbit LCDRS=P2^0;
  19. #define SYSTEM_OSC                 12000000        //定義晶振頻率12000000HZ
  20. #define SOUND_SPACE         4/5                 //定義普通音符演奏的長(zhǎng)度分率,//每4分音符間隔
  21. sbit    BeepIO    =           P3^7;                //定義輸出管腳
  22. sbit        K1=P1^7;
  23. unsigned int  code FreTab[12]  = { 262,277,294,311,330,349,369,392,415,440,466,494 }; //原始頻率表
  24. unsigned char code SignTab[7]  = { 0,2,4,5,7,9,11 };                                                                   //1~7在頻率表中的位置
  25. unsigned char code LengthTab[7]= { 1,2,4,8,16,32,64 };                                                
  26. unsigned char Sound_Temp_TH0,Sound_Temp_TL0;        //音符定時(shí)器初值暫存
  27. unsigned char Sound_Temp_TH1,Sound_Temp_TL1;        
  28. unsigned char code Music_Girl[]=
  29. { 0x1B,0x02, 0x1A,0x02, 0x1B,0x02, 0x19,0x66, 0x1A,0x03,
  30.   0x18,0x02, 0x17,0x02, 0x16,0x0D, 0x17,0x03, 0x18,0x0D,
  31.   0x17,0x03, 0x19,0x66, 0x17,0x03, 0x16,0x0D, 0x17,0x03,
  32.   0x19,0x0D, 0x16,0x03, 0x17,0x0D, 0x18,0x03, 0x17,0x0D,
  33. 0x16,0x03, 0x15,0x00, 0x19,0x02, 0x11,0x02, 0x16,0x02,
  34. 0x10,0x02, 0x15,0x02, 0x0F,0x00, 0x10,0x03, 0x15,0x03,
  35. 0x0F,0x00, 0x0D,0x01, 0x0F,0x66, 0x10,0x03, 0x15,0x66,
  36. 0x16,0x03, 0x10,0x0D, 0x15,0x03, 0x0F,0x03, 0x19,0x66,
  37. 0x1F,0x03, 0x1A,0x0D, 0x19,0x03, 0x17,0x03, 0x19,0x03,
  38. 0x16,0x00, 0x16,0x66, 0x17,0x03, 0x11,0x0C, 0x10,0x02,
  39. 0x19,0x66, 0x10,0x03, 0x15,0x02, 0x16,0x02, 0x0D,0x02,
  40.   0x15,0x02, 0x10,0x0D, 0x0F,0x03, 0x10,0x0D, 0x15,0x03,
  41.   0x0F,0x00, 0x17,0x66, 0x19,0x03, 0x11,0x02, 0x16,0x02,
  42. 0x10,0x0D, 0x15,0x03, 0x0F,0x15, 0x0D,0x03, 0x0F,0x02,
  43. 0x0D,0x03, 0x0F,0x0D, 0x10,0x03, 0x11,0x0D, 0x16,0x03,
  44.   0x10,0x00, 0x0F,0x0D, 0x10,0x03, 0x15,0x66, 0x16,0x03,
  45.   0x19,0x02, 0x17,0x02, 0x16,0x02, 0x17,0x0D, 0x16,0x03,
  46.   0x15,0x02, 0x10,0x0D, 0x0F,0x03, 0x0D,0x01, 0x15,0x01,
  47. 0x10,0x03, 0x15,0x04, 0x10,0x0D, 0x0F,0x03, 0x0D,0x0D,
  48. 0x0F,0x03, 0x10,0x0D, 0x15,0x03, 0x0F,0x00, 0x17,0x0D,
  49. 0x19,0x03, 0x16,0x0D, 0x17,0x03, 0x16,0x0D, 0x15,0x03,
  50.   0x11,0x02, 0x10,0x02, 0x0F,0x00, 0x00,0x00 };
  51. unsigned char code Music_Jingle[]={
  52. 0x0F,0x03, 0x0F,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x03,
  53. 0x0F,0x66, 0x19,0x04, 0x19,0x04, 0x0F,0x03, 0x17,0x03,
  54. 0x16,0x03, 0x15,0x03, 0x10,0x02, 0x10,0x03, 0x10,0x03,
  55. 0x18,0x03, 0x17,0x03, 0x16,0x03, 0x10,0x66, 0x10,0x03,
  56. 0x19,0x03, 0x19,0x03, 0x18,0x03, 0x16,0x03, 0x17,0x02,
  57. 0x15,0x03, 0x0F,0x03, 0x0F,0x03, 0x17,0x03, 0x16,0x03,
  58. 0x15,0x03, 0x0F,0x66, 0x0F,0x03, 0x0F,0x03, 0x17,0x03,
  59. 0x16,0x03, 0x15,0x03, 0x10,0x66, 0x10,0x03, 0x10,0x03,
  60. 0x18,0x03, 0x17,0x03, 0x16,0x03, 0x19,0x03, 0x19,0x03,
  61. 0x19,0x03, 0x19,0x03, 0x1A,0x03, 0x19,0x03, 0x18,0x03,
  62. 0x16,0x03, 0x15,0x66, 0x17,0x03, 0x17,0x03, 0x17,0x02,
  63. 0x17,0x03, 0x17,0x03, 0x17,0x02, 0x17,0x03, 0x19,0x03,
  64. 0x15,0x03, 0x16,0x03, 0x17,0x01, 0x18,0x03, 0x18,0x03,
  65. 0x18,0x67, 0x18,0x04, 0x18,0x03, 0x17,0x03, 0x17,0x03,
  66. 0x17,0x04, 0x17,0x04, 0x17,0x03, 0x16,0x03, 0x16,0x03,
  67. 0x15,0x03, 0x16,0x03, 0x19,0x66, 0x19,0x03, 0x19,0x03,
  68. 0x18,0x03, 0x16,0x03, 0x15,0x02, 0x00,0x00  };
  69. unsigned char code Music_Two[] ={
  70. 0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
  71. 0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
  72. 0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
  73. 0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x16,0x03,
  74. 0x17,0x01, 0x16,0x03, 0x17,0x03, 0x16,0x03, 0x15,0x01,
  75. 0x10,0x03, 0x15,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
  76. 0x16,0x03, 0x15,0x03, 0x10,0x03, 0x15,0x03, 0x16,0x01,
  77. 0x17,0x03, 0x16,0x03, 0x17,0x01, 0x16,0x03, 0x17,0x03,
  78. 0x16,0x03, 0x15,0x01, 0x10,0x03, 0x15,0x03, 0x16,0x02,
  79. 0x16,0x0D, 0x17,0x03, 0x16,0x03, 0x15,0x03, 0x10,0x03,
  80. 0x10,0x0E, 0x15,0x04, 0x0F,0x01, 0x17,0x03, 0x19,0x03,
  81. 0x19,0x01, 0x19,0x03, 0x1A,0x03, 0x19,0x03, 0x17,0x01,
  82. 0x16,0x03, 0x16,0x03, 0x16,0x02, 0x16,0x0D, 0x17,0x03,
  83. 0x16,0x03, 0x15,0x03, 0x10,0x03, 0x10,0x0D, 0x15,0x00,
  84. 0x19,0x03, 0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03,
  85. 0x1B,0x03, 0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03,
  86. 0x16,0x0D, 0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03,
  87. 0x1A,0x02, 0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03,
  88. 0x16,0x01, 0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03,
  89. 0x19,0x02, 0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E,
  90. 0x1B,0x04, 0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E,
  91. 0x1B,0x04, 0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03,
  92. 0x17,0x0D, 0x16,0x03, 0x17,0x03, 0x19,0x01, 0x19,0x03,
  93. 0x19,0x03, 0x1A,0x03, 0x1F,0x03, 0x1B,0x03, 0x1B,0x03,
  94. 0x1A,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x03, 0x16,0x03,
  95. 0x17,0x01, 0x17,0x03, 0x17,0x03, 0x19,0x03, 0x1A,0x02,
  96. 0x1A,0x02, 0x10,0x03, 0x17,0x0D, 0x16,0x03, 0x16,0x01,
  97. 0x17,0x03, 0x19,0x03, 0x19,0x03, 0x17,0x03, 0x19,0x03,
  98. 0x1F,0x02, 0x1B,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
  99. 0x17,0x02, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
  100. 0x17,0x16, 0x1A,0x03, 0x1A,0x03, 0x1A,0x0E, 0x1B,0x04,
  101. 0x1A,0x03, 0x19,0x03, 0x17,0x03, 0x16,0x03, 0x0F,0x02,
  102. 0x10,0x03, 0x15,0x00, 0x00,0x00 };
  103. unsigned char code Music_Yesterday[]={
  104. 0x15,0x03, 0x15,0x03, 0x16,0x03, 0x17,0x02, 0x19,0x02,
  105. 0x19,0x03, 0x17,0x03, 0x19,0x03, 0x17,0x03, 0x1A,0x02,
  106. 0x19,0x66, 0x17,0x02, 0x17,0x03, 0x19,0x03, 0x1A,0x02,
  107. 0x16,0x02, 0x17,0x03, 0x19,0x02, 0x1A,0x15, 0x17,0x03,
  108. 0x19,0x03, 0x1A,0x02, 0x21,0x02, 0x20,0x03, 0x1F,0x02,
  109. 0x1B,0x03, 0x1B,0x66, 0x19,0x03, 0x17,0x03, 0x19,0x02,
  110. 0x17,0x02, 0x16,0x14, 0x15,0x03, 0x15,0x03, 0x16,0x03,
  111. 0x17,0x03, 0x19,0x02, 0x19,0x03, 0x19,0x03, 0x17,0x03,
  112. 0x19,0x03, 0x17,0x03, 0x1A,0x03, 0x19,0x02, 0x17,0x03,
  113. 0x17,0x02, 0x17,0x03, 0x19,0x03, 0x1A,0x02, 0x1B,0x02,
  114. 0x17,0x03, 0x19,0x02, 0x1A,0x03, 0x1A,0x01, 0x1B,0x02,
  115. 0x20,0x02, 0x1F,0x03, 0x1B,0x03, 0x1A,0x66, 0x1B,0x03,
  116. 0x1F,0x03, 0x1B,0x03, 0x1F,0x03, 0x1B,0x02, 0x1A,0x66,
  117. 0x1A,0x03, 0x1B,0x03, 0x1F,0x02, 0x1F,0x02, 0x1A,0x03,
  118. 0x1F,0x02, 0x20,0x03, 0x20,0x16, 0x1F,0x02, 0x20,0x02,
  119. 0x21,0x03, 0x21,0x03, 0x21,0x03, 0x21,0x02, 0x20,0x03,
  120. 0x1F,0x03, 0x1B,0x03, 0x1F,0x03, 0x1B,0x03, 0x1A,0x66,
  121. 0x17,0x03, 0x19,0x03, 0x19,0x14, 0x1F,0x03, 0x20,0x03,
  122. 0x21,0x03, 0x21,0x03, 0x21,0x03, 0x21,0x03, 0x21,0x02,
  123. 0x20,0x03, 0x1F,0x03, 0x1F,0x03, 0x1B,0x03, 0x1A,0x66,
  124. 0x17,0x03, 0x19,0x03, 0x19,0x14, 0x1A,0x03, 0x1B,0x03,
  125. 0x1F,0x03, 0x1B,0x03, 0x1F,0x03, 0x1B,0x03, 0x1F,0x03,
  126. 0x20,0x66, 0x1F,0x03, 0x1B,0x03, 0x1F,0x03, 0x1B,0x02,
  127. 0x1F,0x03, 0x20,0x66, 0x1F,0x03, 0x20,0x03, 0x21,0x02,
  128. 0x21,0x02, 0x20,0x03, 0x1F,0x02, 0x1A,0x03, 0x1A,0x02,
  129. 0x17,0x02, 0x17,0x03, 0x1A,0x03, 0x17,0x03, 0x19,0x03,
  130. 0x19,0x14, 0x17,0x03, 0x17,0x03, 0x16,0x04, 0x15,0x04,
  131. 0x15,0x03, 0x16,0x03, 0x17,0x01, 0x17,0x03, 0x18,0x02,
  132. 0x16,0x03, 0x16,0x14, 0x17,0x03, 0x17,0x03, 0x17,0x03,
  133. 0x18,0x02, 0x16,0x03, 0x16,0x16, 0x15,0x03, 0x16,0x03,
  134. 0x17,0x03, 0x16,0x01, 0x1F,0x02, 0x20,0x02, 0x21,0x03,
  135. 0x21,0x03, 0x21,0x03, 0x21,0x02, 0x20,0x03, 0x1F,0x03,
  136. 0x1B,0x03, 0x1F,0x03, 0x1B,0x03, 0x1A,0x03, 0x1A,0x02,
  137. 0x17,0x03, 0x19,0x03, 0x19,0x14, 0x1F,0x02, 0x20,0x02,
  138. 0x21,0x03, 0x21,0x03, 0x21,0x03, 0x21,0x66, 0x20,0x03,
  139. 0x1F,0x03, 0x1B,0x03, 0x1F,0x03, 0x1B,0x03, 0x1A,0x66,
  140. 0x17,0x03, 0x19,0x03, 0x19,0x00, 0x00,0x00 };


  143. uchar k;
  144. void delay1(void) //延時(shí)程序
  145. {
  146.         uchar i,j;
  147.         for(i=20;i>0;i--)
  148.         for(j=248;j>0;j--);
  149. }

  151. void Getch (  )
  152. {   uchar X,Y,Z;
  153.         P1=0xff;
  154.         P1=0xf3;       //先對(duì)P0置數(shù)  行掃描
  155.         if(P1!=0xf3)     //判斷是否有鍵按下
  156.                 {        delay1();    //延時(shí),軟件去干擾
  157.                          if(P1!=0xf3)   //確認(rèn)按鍵按下X = P3;
  158.                           {        
  159.                                 X=P1;          //保存行掃描時(shí)有鍵按下時(shí)狀態(tài)
  160.                                 P1=0xfc;       //列掃描
  161.                                 Y=P1;          //保存列掃描時(shí)有鍵按下時(shí)狀態(tài)
  162.                                  Z=X|Y;
  163.         //取出鍵值
  164.                                 switch ( Z )   //判斷鍵值（那一個(gè)鍵按下）
  165.                                 {
  166.                                         case 0xf9: k=0; break; //對(duì)鍵值賦值
  167.                                         case 0xf5: k=1; break;
  168.                                         case 0xfa: k=2; break;
  169.                                         case 0xf6: k=3; break;
  170.                                        
  171.                                 }
  172.                           }
  173.                 }        
  174. }                  
  175. void Delay()
  176. {         uint uiCount;
  177.          for(uiCount=0;uiCount<250;uiCount++);
  178. }

  180. void WriteCMD(uchar Commond)//LCD寫(xiě)指令函數(shù)      
  181. {
  182. Delay();    //先延時(shí)。
  183. LCDE=1;     //然后把ＬＣＤ改為寫(xiě)入命令狀態(tài)。
  184. LCDRS=0;
  185. LCDRW=0;
  186. LCDPORT=Commond;  //再輸出命令。
  187. LCDE=0;     //最后執(zhí)行命令。
  188. }

  190. void WriteData(uchar dat)//ＬＣＤ寫(xiě)數(shù)據(jù)函數(shù)      
  191. { Delay();      //先延時(shí)。
  192. LCDE=1;       //然后把ＬＣＤ改為寫(xiě)入數(shù)據(jù)狀態(tài)。
  193. LCDRS=1;
  194. LCDRW=0;
  195. LCDPORT=dat;     //再輸出數(shù)據(jù)。
  196. LCDE=0;       //最后顯示數(shù)據(jù)。
  197. }

  199. void init()
  200. {
  201.          LCDRW=0;
  202.     LCDE=0;
  203.           WriteCMD(0x38);
  204.          WriteCMD(0x0c);
  205.          WriteCMD(0x06);
  206.          WriteCMD(0x01);
  207.          WriteCMD(0x80);
  208. }

  210. void mydelay(int x)
  211. { int i,j;
  212. for(i=x;i>0;i--)
  213. for(j=255;j>0;j--);
  214. }
  215. void InitialSound(void)
  216. {
  217.         BeepIO = 0;
  218.         Sound_Temp_TH1 = (65535-(1/1200)*SYSTEM_OSC)/256;        // 計(jì)算TL1應(yīng)裝入的初值         (10ms的初裝值)
  219.         Sound_Temp_TL1 = (65535-(1/1200)*SYSTEM_OSC)%256;        // 計(jì)算TH1應(yīng)裝入的初值
  220.         TH1 = Sound_Temp_TH1;
  221.         TL1 = Sound_Temp_TL1;
  222.         TMOD  |= 0x11;
  223.         ET0    = 1;
  224.         ET1           = 0;
  225.         TR0           = 0;
  226.         TR1    = 0;
  227.         EA     = 1;
  228. }

  230. void BeepTimer0(void) interrupt 1        //音符發(fā)生中斷
  231. {
  232.         BeepIO = !BeepIO;
  233.         TH0    = Sound_Temp_TH0;
  234.          TL0    = Sound_Temp_TL0;
  235. }

  237.    void Play(unsigned char *Sound,unsigned char Signature,unsigned Octachord,unsigned int Speed)
  238. {
  239.         unsigned int NewFreTab[12];                //新的頻率表
  240.         unsigned char i,j;
  241.         unsigned int Point,LDiv,LDiv0,LDiv1,LDiv2,LDiv4,CurrentFre,Temp_T,SoundLength;
  242.         unsigned char Tone,Length,SL,SH,SM,SLen,XG,FD;
  243.         for(i=0;i<12;i++)                                 // 根據(jù)調(diào)號(hào)及升降八度來(lái)生成新的頻率表
  244.         {
  245.                 j = i + Signature;
  246.                 if(j > 11)
  247.                 {
  248.                         j = j-12;
  249.                         NewFreTab[i] = FreTab[j]*2;
  250.                 }

  252.                 else
  253.                         NewFreTab[i] = FreTab[j];

  255.                 if(Octachord == 1)
  256.                         NewFreTab[i]>>=2;
  257.                 else if(Octachord == 3)
  258.                         NewFreTab[i]<<=2;
  259.         }                                                                        
  260.         
  261.         SoundLength = 0;

  263.         while(Sound[SoundLength] != 0x00)        //計(jì)算歌曲長(zhǎng)度
  264.         {
  265.                 SoundLength+=2;
  266.         }

  268.         Point = 0;
  269.         Tone   = Sound[Point];        
  270.         Length = Sound[Point+1];                         // 讀出第一個(gè)音符和它時(shí)時(shí)值
  271.         
  272.         LDiv0 = 12000/Speed;                                // 算出1分音符的長(zhǎng)度(幾個(gè)10ms)         
  273.         LDiv4 = LDiv0/4;                                                 // 算出4分音符的長(zhǎng)度
  274.         LDiv4 = LDiv4-LDiv4*SOUND_SPACE;         // 普通音最長(zhǎng)間隔標(biāo)準(zhǔn)
  275.         TR0          = 0;
  276.         TR1   = 1;

  278.         while(Point < SoundLength&&K1==1)                //歌曲代碼未放完且暫停鍵未被按下
  279.         {
  280.                 SL=Tone%10;                                                                 //計(jì)算出音符
  281.                 SM=Tone/10%10;                                                                 //計(jì)算出高低音
  282.                 SH=Tone/100;                                                                 //計(jì)算出是否升半
  283.                 CurrentFre = NewFreTab[SignTab[SL-1]+SH];                 //查出對(duì)應(yīng)音符的頻率         
  284.                 if(SL!=0)
  285.                 {
  286.                         if (SM==1) CurrentFre >>= 2;                                 //低音
  287.                         if (SM==3) CurrentFre <<= 2;                                 //高音
  288.                         Temp_T = 65536-(50000/CurrentFre)*10/(12000000/SYSTEM_OSC);//計(jì)算計(jì)數(shù)器初值
  289.                         Sound_Temp_TH0 = Temp_T/256;
  290.                         Sound_Temp_TL0 = Temp_T%256;
  291.                         TH0 = Sound_Temp_TH0;  
  292.                         TL0 = Sound_Temp_TL0 + 12; //加12是對(duì)中斷延時(shí)的補(bǔ)償
  293.                 }

  295.                 SLen=LengthTab[Length%10];                 //算出是幾分音符
  296.                 XG=Length/10%10;                                 //算出音符類(lèi)型(0普通1連音2頓音)
  297.                 FD=Length/100;
  298.                 LDiv=LDiv0/SLen;                                 //算出連音音符演奏的長(zhǎng)度(多少個(gè)10ms)
  299.                 if (FD==1)
  300.                         LDiv=LDiv+LDiv/2;
  301.                 if(XG!=1)        
  302.                         if(XG==0)                                         //算出普通音符的演奏長(zhǎng)度
  303.                                 if (SLen<=4)        
  304.                                         LDiv1=LDiv-LDiv4;
  305.                                 else
  306.                                         LDiv1=LDiv*SOUND_SPACE;
  307.                         else
  308.                                 LDiv1=LDiv/2;                         //算出頓音的演奏長(zhǎng)度
  309.                 else
  310.                         LDiv1=LDiv;

  312.                 if(SL==0) LDiv1=0;
  313.                         LDiv2=LDiv-LDiv1;                         //算出不發(fā)音的長(zhǎng)度

  315.                   if (SL!=0)
  316.                 {
  317.                         TR0=1;
  318.                         for(i=LDiv1;i>0;i--)                         //發(fā)規(guī)定長(zhǎng)度的音
  319.                         {
  320.                                 while(TF1==0);
  321.                                 TH1 = Sound_Temp_TH1;
  322.                                 TL1 = Sound_Temp_TL1;
  323.                                 TF1=0;
  324.                         }
  325.                 }

  327.                 if(LDiv2!=0)
  328.                 {
  329.                         TR0=0; BeepIO=0;
  330.                         for(i=LDiv2;i>0;i--)                         //音符間的間隔
  331.                         {
  332.                                 while(TF1==0);
  333.                                 TH1 = Sound_Temp_TH1;
  334.                                 TL1 = Sound_Temp_TL1;
  335.                                 TF1=0;
  336.                         }
  337.                 }

  339.                 Point+=2;
  340.                 Tone=Sound[Point];
  341.                 Length=Sound[Point+1];
  342.         }
  343.         BeepIO = 0;
  344. }

  346. main()
  347. {        uint i;
  348.         k=8;
  349.         init();
  350.           for(i=0;i<15;i++)
  351.             {
  352.                            WriteData(tab[i]);                                                        //LCD寫(xiě)數(shù)據(jù)函數(shù)寫(xiě)第一行
  353.                       mydelay(50);
  354.                 }
  355.                            mydelay(1000);
  356.                            WriteCMD(0x80+0x40+2);                                        //將指針設(shè)到第二行空兩字符
  357.                            for(i=0;i<6;i++)
  358.                                    {
  359.                                        WriteData(tab1[i]);
  360.                                       mydelay(50);
  361.                                    }

  363.                         InitialSound();                                                                        //發(fā)音初始化程序
  364.                         while(1)
  365.                                 {         Getch();                                                                //掃描鍵盤(pán)，獲得鍵值
  366.                                          if(k==0)                                                                //若鍵值為0
  367.                                                   {        uint i;
  368.                                                           init();
  369.                                                         for(i=0;i<10;i++)
  370.                                               {
  371.                                                            WriteData(tab2[i]);                                //寫(xiě)第一首歌序號(hào)
  372.                                                       mydelay(50);
  373.                                                      }
  374.                                                    mydelay(1000);
  375.                                                    WriteCMD(0x80+0x40);                        //轉(zhuǎn)到第二行
  376.                                                    for(i=0;i<9;i++)
  377.                                                    {        WriteData(tab3[i]);                                //寫(xiě)歌名
  378.                                                       mydelay(50);
  379.                                                    }

  381.                                                  Play(Music_Girl,0,3,360);                        //播放第一首歌
  382.                                                  mydelay(500);
  383.                                                 break;
  384.                                                  }
  385.                                          else if (k==1)                                                         //若鍵值為1
  386.                                                 {        uint i;
  387.                                                           init();
  388.                                                       for(i=0;i<11;i++)
  389.                                                       {        WriteData(tab4[i]);                 //寫(xiě)第二首歌序號(hào)
  390.                                                               mydelay(50);
  391.                                                              }
  392.                                                                    mydelay(1000);
  393.                                                                    WriteCMD(0x80+0x40);         //轉(zhuǎn)到第二行
  394.                                                                    for(i=0;i<11;i++)
  395.                                                            {
  396.                                                                WriteData(tab5[i]);                 //寫(xiě)歌名
  397.                                                               mydelay(50);
  398.                                                            }

  400.                                                                 Play(Music_Jingle,0,3,360); //播放第二首歌
  401.                                                                 mydelay(500);
  402.                                                                 break;
  403.                                                 }
  404.                                          else if (k==2) //若鍵值為2
  405.                                                 {        uint i;
  406.                                                           init();
  407.                                                           for(i=0;i<10;i++)
  408.                                                       {        WriteData(tab6[i]);                 //寫(xiě)第三首歌序號(hào)
  409.                                                               mydelay(50);
  410.                                                              }
  411.                                                            mydelay(1000);
  412.                                                            //WriteCMD(0x01);
  413.                                                            WriteCMD(0x80+0x40);                 //轉(zhuǎn)到第二行
  414.                                                            for(i=0;i<6;i++)
  415.                                                            {
  416.                                                                WriteData(tab7[i]);                 //寫(xiě)歌名
  417.                                                               mydelay(50);
  418.                                                            }

  420.                                                         Play(Music_Two,0,3,360);                 //播放第三首歌
  421.                                                         mydelay(500);
  422.                                                         

  424. …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼



1 概述

傳統(tǒng)的音樂(lè)盒多是機(jī)械音樂(lè)盒，其工作原理是通過(guò)齒輪帶動(dòng)一個(gè)帶有鐵釘?shù)蔫F桶轉(zhuǎn)動(dòng),鐵桶上的鐵釘撞擊鐵片制成的琴鍵，從而發(fā)出聲音。但是，機(jī)械式的音樂(lè)盒體積比較大，比較笨重，且發(fā)音單調(diào)。水、灰塵等外在因素，容易使內(nèi)部金屬發(fā)音條變形，從而造成發(fā)音跑調(diào)。另外，機(jī)械音樂(lè)盒放音時(shí)為了讓音色穩(wěn)定,必須放平不能動(dòng)搖，而且價(jià)格昂貴，不能實(shí)現(xiàn)大批量生產(chǎn)�；趩纹瑱C(jī)設(shè)計(jì)制作的電子式音樂(lè)盒。與傳統(tǒng)的機(jī)械式音樂(lè)盒相比更小巧，音質(zhì)更優(yōu)美且能演奏和弦音樂(lè)。電子式音樂(lè)盒動(dòng)力來(lái)源是電池，制作工藝簡(jiǎn)單，可進(jìn)行批量生產(chǎn)，所以價(jià)格便宜。基于單片機(jī)制作的電子式音樂(lè)盒，控制功能強(qiáng)大，可根據(jù)需要選歌，使用方便。所放歌曲的節(jié)奏可以根據(jù)需要進(jìn)行設(shè)置，根據(jù)存儲(chǔ)容量的大小，可以盡可能多的存儲(chǔ)歌曲。另外，可以設(shè)計(jì)彩燈外觀效果，增設(shè)放歌時(shí)間、序號(hào)顯示燈功能，使音樂(lè)盒的功能更加豐富。

1.1單片機(jī)數(shù)字音樂(lè)盒有關(guān)介紹
電子音樂(lè)已廣泛地應(yīng)用于社會(huì)生活的各個(gè)領(lǐng)域。其類(lèi)型從音樂(lè)卡片到CD、MP3 等多種多樣，制作原理也各不相同。聲音是通過(guò)振動(dòng)產(chǎn)生的。單片機(jī)對(duì)某一I/O引腳以一定的頻率循環(huán)置1和清0，這一引腳便產(chǎn)生一定頻率的方波，該方波通過(guò)放大后作用于揚(yáng)聲器便產(chǎn)生一定頻率的聲音。若改變輸出方波的頻率，產(chǎn)生的聲音也就改變了。通過(guò)控制輸出方波的時(shí)間長(zhǎng)短,聲音的長(zhǎng)短也就得到控制。因此，根據(jù)樂(lè)譜，單片機(jī)就可產(chǎn)生電子音樂(lè)。音樂(lè)中最關(guān)鍵的兩個(gè)要素是音符和節(jié)拍。單片機(jī)控制的音樂(lè)發(fā)生器系統(tǒng)由硬件電路和軟件兩部分構(gòu)成。利用單片機(jī)控制的電子音樂(lè)發(fā)生器軟硬件上具有獨(dú)特的優(yōu)點(diǎn)，系統(tǒng)的開(kāi)發(fā)周期短，成本低，電路制作容易。更換歌曲時(shí)，硬件電路無(wú)需作任何修改，只需修改軟件即可實(shí)現(xiàn)。軟件編程時(shí)，可用51系列單片機(jī)的匯編語(yǔ)言或C51語(yǔ)言實(shí)現(xiàn)。同時(shí)還可根據(jù)個(gè)人的習(xí)好通過(guò)軟件改變節(jié)拍的延時(shí)時(shí)間，增加電子音樂(lè)的趣味性。

1.1.1發(fā)音原理介紹

發(fā)音原理：播放一段音樂(lè)需要的是兩個(gè)元素，一個(gè)是音調(diào)，另一個(gè)是音符。首先要了解對(duì)應(yīng)的音調(diào)，音調(diào)主要由聲音的頻率決定，同時(shí)也與聲音強(qiáng)度有關(guān)。對(duì)一定強(qiáng)度的純音，音調(diào)隨頻率的升降而升降；對(duì)一定頻率的純音、低頻純音的音調(diào)隨聲強(qiáng)增加而下降，高頻純音的音調(diào)卻隨強(qiáng)度增加而上升。另外，音符的頻率有所不同�；谏厦娴膬�(nèi)容，這樣就對(duì)發(fā)音的原理有了一些初步的了解。

音符的發(fā)音主要靠不同的音頻脈沖。利用單片機(jī)的內(nèi)部定時(shí)器/計(jì)數(shù)器0，使其工作在模式1，定時(shí)中斷，然后控制P3.7引腳的輸出音樂(lè)。只要算出某一音頻的周期（1/頻率），然后將此周期除以2，即為半周期的時(shí)間，利用定時(shí)器計(jì)時(shí)這個(gè)半周期時(shí)間，每當(dāng)計(jì)時(shí)到后就將輸出脈沖的I/O反相，然后重復(fù)計(jì)時(shí)此半周期時(shí)間再對(duì)I/O反相，就可在I/O腳上得到此頻率的脈沖。

1.1.2   音符頻率的產(chǎn)生

音符及定時(shí)器初始值：

例如：中音1（do）的音頻=523HZ,周期T=1/523s=1912

定時(shí)器/計(jì)數(shù)器0的定時(shí)時(shí)間為：T/2=1912/2

定時(shí)器956的計(jì)數(shù)值=定時(shí)時(shí)間/機(jī)器周期=956/1=956(時(shí)鐘頻率=12MHZ)

裝入T0計(jì)數(shù)器初值為65536-956=64580
將64580裝入T0寄存器中，啟動(dòng)T0工作后，每計(jì)數(shù)956次時(shí)將產(chǎn)生溢出中斷，進(jìn)入中斷服務(wù)時(shí)，每次對(duì)P3.0引腳的輸出值進(jìn)行取反，就可得到中音DO（523HZ）的音符音頻。將51單片機(jī)內(nèi)部定時(shí)器工作在計(jì)數(shù)器模式1下，改變計(jì)數(shù)初值TH0,TL0以產(chǎn)生不同的頻率。

若該設(shè)計(jì)使用數(shù)字電路完成,所設(shè)計(jì)的電路相當(dāng)復(fù)雜,大概需要十幾片數(shù)字集成塊,其功能也主要依賴于數(shù)字電路的各功能模塊的組合來(lái)實(shí)現(xiàn),焊接的過(guò)程比較復(fù)雜,成本也非常高。若用單片機(jī)來(lái)設(shè)計(jì)制作完成,由于其功能的實(shí)現(xiàn)主要通過(guò)軟件編程來(lái)完成,那么就降低了硬件電路的復(fù)雜性,而且其成本也有所降低,所以在該設(shè)計(jì)中采用單片機(jī)利用AT89C51,它是低功耗、高性能的CMOS型8位單片機(jī)。片內(nèi)帶有4KB的Flash存儲(chǔ)器,且允許在系統(tǒng)內(nèi)改寫(xiě)或用編程器編程。另外, AT89C51的指令系統(tǒng)和引腳與8051完全兼容,片內(nèi)有128B 的RAM、32條I/O口線、2個(gè)16位定時(shí)計(jì)數(shù)器、5個(gè)中斷源、一個(gè)全雙工串行口等.

完整的音樂(lè)盒制作資料下載：
音樂(lè)盒（1）.zip (53.96 KB, 下載次數(shù): 827)


評(píng)分

參與人數(shù) 2黑幣 +9 收起 理由
8889999 + 5 共享資料的黑幣獎(jiǎng)勵(lì)！
Choi. + 4 贊一個(gè)！

查看全部評(píng)分

回復(fù)

使用道具 舉報(bào)

ID:198681 發(fā)表于 2017-5-15 16:09 | 顯示全部樓層
你的仿真文件用PROTUES8打不開(kāi)
回復(fù)

使用道具 舉報(bào)

ID:198681 發(fā)表于 2017-5-15 16:09 | 顯示全部樓層
你的仿真文件用protues8好像打不開(kāi),只能用Proteus7.5
回復(fù)

使用道具 舉報(bào)

ID:217665 發(fā)表于 2017-7-6 16:15 | 顯示全部樓層
適合課程設(shè)計(jì)用嗎
回復(fù)

使用道具 舉報(bào)

ID:258732 發(fā)表于 2017-12-7 19:06 | 顯示全部樓層
需要按那4個(gè)按鈕  終于有聲音了
回復(fù)

使用道具 舉報(bào)

ID:258626 發(fā)表于 2017-12-9 00:26 | 顯示全部樓層
大大，我下載了你的文件，但是我這里用不了。我用的是ISIS 7 Professional仿真，Uv4(keil-4)，請(qǐng)大大解惑
回復(fù)

使用道具 舉報(bào)

ID:261516 發(fā)表于 2017-12-14 15:29 來(lái)自手機(jī) | 顯示全部樓層
我先收下了，謝謝大神
回復(fù)

使用道具 舉報(bào)

ID:285778 發(fā)表于 2018-2-26 21:13 | 顯示全部樓層
感謝大神分享！
回復(fù)

使用道具 舉報(bào)

ID:315619 發(fā)表于 2018-4-24 19:22 | 顯示全部樓層
不錯(cuò)不錯(cuò)
回復(fù)

使用道具 舉報(bào)

ID:315619 發(fā)表于 2018-4-24 19:23 | 顯示全部樓層
感謝大神分享
回復(fù)

使用道具 舉報(bào)

ID:315679 發(fā)表于 2018-4-24 20:33 | 顯示全部樓層
謝謝大佬分享
回復(fù)

使用道具 舉報(bào)

ID:326331 發(fā)表于 2018-5-29 21:12 | 顯示全部樓層
大神，想問(wèn)一下，如果在你的程序上加一個(gè)暫停按鍵，應(yīng)該怎么改呢？
回復(fù)

使用道具 舉報(bào)

ID:344099 發(fā)表于 2018-6-3 17:22 | 顯示全部樓層
加油�。。。。。。�
回復(fù)

使用道具 舉報(bào)

ID:357603 發(fā)表于 2018-6-24 10:16 | 顯示全部樓層
感謝師傅分享
回復(fù)

使用道具 舉報(bào)

ID:361241 發(fā)表于 2018-6-28 18:14 | 顯示全部樓層
很好，很不錯(cuò)的文檔
回復(fù)

使用道具 舉報(bào)

ID:361406 發(fā)表于 2018-6-28 22:24 | 顯示全部樓層
很棒，不過(guò)較為基礎(chǔ)
回復(fù)

使用道具 舉報(bào)

ID:449081 發(fā)表于 2018-12-18 17:09 | 顯示全部樓層
這個(gè)資料非常多，有助于新手
回復(fù)

使用道具 舉報(bào)

ID:449081 發(fā)表于 2018-12-18 17:10 | 顯示全部樓層
非常多，新手適用
回復(fù)

使用道具 舉報(bào)

ID:462696 發(fā)表于 2019-1-6 00:15 | 顯示全部樓層
感謝分享，很不錯(cuò)的資源
回復(fù)

使用道具 舉報(bào)

ID:491123 發(fā)表于 2019-3-14 22:34 | 顯示全部樓層
感謝分享，很不錯(cuò)的資源
回復(fù)

使用道具 舉報(bào)

ID:568954 發(fā)表于 2019-6-21 18:30 | 顯示全部樓層
可以，太謝謝了
回復(fù)

使用道具 舉報(bào)

ID:525478 發(fā)表于 2019-6-23 12:59 | 顯示全部樓層
下載收藏 感謝分享
回復(fù)

使用道具 舉報(bào)

ID:609611 發(fā)表于 2019-9-10 16:09 | 顯示全部樓層
下載收藏 感謝分享
回復(fù)

使用道具 舉報(bào)

ID:65956 發(fā)表于 2019-9-12 08:44 | 顯示全部樓層
正需要給孩子作一個(gè)，謝謝分享
回復(fù)

使用道具 舉報(bào)

ID:69408 發(fā)表于 2019-9-12 10:17 | 顯示全部樓層
謝謝分享，下載學(xué)習(xí)學(xué)習(xí)！
回復(fù)

使用道具 舉報(bào)

ID:649321 發(fā)表于 2019-12-7 13:12 | 顯示全部樓層
特別好
回復(fù)

使用道具 舉報(bào)

ID:659677 發(fā)表于 2019-12-9 15:32 | 顯示全部樓層
很好，想下載
回復(fù)

使用道具 舉報(bào)

ID:661022 發(fā)表于 2019-12-10 21:43 | 顯示全部樓層
好想截個(gè)圖上來(lái)，程序打不開(kāi)。。。。怎么回事啊樓主
回復(fù)

使用道具 舉報(bào)

ID:661022 發(fā)表于 2019-12-10 22:06 | 顯示全部樓層
hdl123 發(fā)表于 2018-12-18 17:09
這個(gè)資料非常多，有助于新手

我只看到了程序和原理圖，還有別的資料嗎？
回復(fù)

使用道具 舉報(bào)

ID:661428 發(fā)表于 2019-12-11 12:24 來(lái)自手機(jī) | 顯示全部樓層
這個(gè)怎么用啊。大神
回復(fù)

使用道具 舉報(bào)

ID:767487 發(fā)表于 2020-6-13 14:51 來(lái)自手機(jī) | 顯示全部樓層
程序能運(yùn)行出來(lái)嗎？
回復(fù)

使用道具 舉報(bào)

ID:779585 發(fā)表于 2020-6-15 10:38 | 顯示全部樓層
這個(gè)完整代碼是必須下載附件嗎
回復(fù)

使用道具 舉報(bào)

ID:789459 發(fā)表于 2020-7-15 23:38 來(lái)自手機(jī) | 顯示全部樓層
無(wú)名氏8016 發(fā)表于 2017-12-9 00:26
大大，我下載了你的文件，但是我這里用不了。我用的是ISIS 7 Professional仿真，Uv4(keil-4)，請(qǐng)大大解惑

你好，你還有這個(gè)文件嗎？
回復(fù)

使用道具 舉報(bào)

ID:845175 發(fā)表于 2020-11-17 23:49 | 顯示全部樓層
代碼很詳細(xì)，備注很有用
回復(fù)

使用道具 舉報(bào)

ID:810206 發(fā)表于 2021-6-26 13:35 來(lái)自手機(jī) | 顯示全部樓層
感謝博主的程序
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表