设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 单片机音乐盒程序 一个独立按键实现四首歌循坏播放
返回列表 发新帖
查看: 2330|回复: 0
打印 上一主题 下一主题
收起左侧

单片机音乐盒程序 一个独立按键实现四首歌循坏播放

[复制链接]
跳转到指定楼层
楼主
ID:512872 发表于 2019-10-3 10:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
一个独立按键实现四首歌循坏播放

单片机源程序如下:
  1. /************************************************************************  
  2. [文件名]  C51音乐程序(八月桂花)  
  3. [功能]    通过单片机演奏音乐  
  4.   
  5. /**********************************************************************/   
  6. #include <REG52.H>   
  7. #include <INTRINS.H>   
  8. //本例采用89C52, 晶振为12MHZ   
  9. //关于如何编制音乐代码, 其实十分简单,各位可以看以下代码.   
  10. //频率常数即音乐术语中的音调,而节拍常数即音乐术语中的多少拍;   
  11. //所以拿出谱子, 试探编吧!   
  12. #define uint unsigned int
  13. #define uchar unsigned char
  14. sbit Beep =  P3^1;
  15. sbit s1=P1^0;  //流水灯顺时针流水
  16. uchar code discode[]={0xC0,0xF9,0xA4,0xB0,0x99,0x92,0x82,0xF8,0x80,0x90};        //送段码0-9和"-"   
  17. unsigned char n=0;  //n为节拍常数变量
  18. void ini(void)                               
  19. {
  20.   TMOD&=0x0f;   
  21.   TMOD|=0x01;   
  22.   TH0=0xd8;TL0=0xef;   
  23.   IE=0x82;
  24. }
  25. void delay (unsigned char m)   //控制频率延时   
  26. {   
  27. unsigned i=3*m;   
  28. while(--i);   
  29. }   
  30. void delay1(unsigned char yj)
  31.     {
  32.       uchar yj2=2;
  33.        while(yj!=0)
  34.          {      
  35.                while(yj2!=0)
  36.                   {
  37.                      yj2--;
  38.                      }
  39.                   yj2=2;
  40.              yj--;  
  41.        }
  42.    
  43.      }   
  44. void delayms(unsigned char a)  //豪秒延时子程序   
  45. {   
  46.   while(--a);                  //采用while(--a) 不要采用while(a--); 各位可编译一下看看汇编结果就知道了!   
  47. }
  48. void shuma()
  49. {  
  50.            while(s1==1)
  51.         {
  52.         P0=0X8C;
  53.         P2=0X01;
  54.         }
  55. }   
  56. uchar code music_tab[] ={   
  57. 0x18, 0x30, 0x1C , 0x10, //格式为: 频率常数, 节拍常数, 频率常数, 节拍常数,   
  58. 0x20, 0x40, 0x1C , 0x10,   
  59. 0x18, 0x10, 0x20 , 0x10,   
  60. 0x1C, 0x10, 0x18 , 0x40,   
  61. 0x1C, 0x20, 0x20 , 0x20,   
  62. 0x1C, 0x20, 0x18 , 0x20,   
  63. 0x20, 0x80, 0xFF , 0x20,   
  64. 0x30, 0x1C, 0x10 , 0x18,   
  65. 0x20, 0x15, 0x20 , 0x1C,   
  66. 0x20, 0x20, 0x20 , 0x26,   
  67. 0x40, 0x20, 0x20 , 0x2B,   
  68. 0x20, 0x26, 0x20 , 0x20,   
  69. 0x20, 0x30, 0x80 , 0xFF,   
  70. 0x20, 0x20, 0x1C , 0x10,   
  71. 0x18, 0x10, 0x20 , 0x20,   
  72. 0x26, 0x20, 0x2B , 0x20,   
  73. 0x30, 0x20, 0x2B , 0x40,   
  74. 0x20, 0x20, 0x1C , 0x10,   
  75. 0x18, 0x10, 0x20 , 0x20,   
  76. 0x26, 0x20, 0x2B , 0x20,   
  77. 0x30, 0x20, 0x2B , 0x40,   
  78. 0x20, 0x30, 0x1C , 0x10,   
  79. 0x18, 0x20, 0x15 , 0x20,   
  80. 0x1C, 0x20, 0x20 , 0x20,   
  81. 0x26, 0x40, 0x20 , 0x20,   
  82. 0x2B, 0x20, 0x26 , 0x20,   
  83. 0x20, 0x20, 0x30 , 0x80,   
  84. 0x20, 0x30, 0x1C , 0x10,   
  85. 0x20, 0x10, 0x1C , 0x10,   
  86. 0x20, 0x20, 0x26 , 0x20,   
  87. 0x2B, 0x20, 0x30 , 0x20,   
  88. 0x2B, 0x40, 0x20 , 0x15,   
  89. 0x1F, 0x05, 0x20 , 0x10,   
  90. 0x1C, 0x10, 0x20 , 0x20,   
  91. 0x26, 0x20, 0x2B , 0x20,   
  92. 0x30, 0x20, 0x2B , 0x40,   
  93. 0x20, 0x30, 0x1C , 0x10,   
  94. 0x18, 0x20, 0x15 , 0x20,   
  95. 0x1C, 0x20, 0x20 , 0x20,   
  96. 0x26, 0x40, 0x20 , 0x20,   
  97. 0x2B, 0x20, 0x26 , 0x20,   
  98. 0x20, 0x20, 0x30 , 0x30,   
  99. 0x20, 0x30, 0x1C , 0x10,   
  100. 0x18, 0x40, 0x1C , 0x20,   
  101. 0x20, 0x20, 0x26 , 0x40,   
  102. 0x13, 0x60, 0x18 , 0x20,   
  103. 0x15, 0x40, 0x13 , 0x40,   
  104. 0x18, 0x80, 0x00 , 0x00  
  105. };
  106. //挥着翅膀的女孩
  107. uchar code music_tab1[]={ 0x26,0x20,0x20,0x20,0x20,0x20,0x26,0x10,0x20,0x10,0x20,0x80,0x26,0x20,0x30,0x20,

  109. 0x30,0x20,0x39,0x10,0x30,0x10,0x30,0x80,0x26,0x20,0x20,0x20,0x20,0x20,0x1c,0x20,

  111. 0x20,0x80,0x2b,0x20,0x26,0x20,0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x80,0x26,0x20,

  113. 0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x60,0x40,0x10,0x39,0x10,0x26,0x20,

  115. 0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x80,0x26,0x20,0x2b,0x10,0x2b,0x10,

  117. 0x2b,0x20,0x30,0x10,0x39,0x10,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x20,

  119. 0x20,0x10,0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x18,0x20,0x18,0x20,0x26,0x20,

  121. 0x20,0x20,0x20,0x40,0x26,0x20,0x2b,0x20,0x30,0x20,0x30,0x20,0x1c,0x20,0x20,0x20,

  123. 0x20,0x80,0x1c,0x20,0x1c,0x20,0x1c,0x20,0x30,0x20,0x30,0x60,0x39,0x10,0x30,0x10,

  125. 0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x10,0x26,0x10,0x26,0x10,0x2b,0x10,0x2b,0x80,

  127. 0x18,0x20,0x18,0x20,0x26,0x20,0x20,0x20,0x20,0x60,0x26,0x10,0x2b,0x20,0x30,0x20,

  129. 0x30,0x20,0x1c,0x20,0x20,0x20,0x20,0x80,0x26,0x20,0x30,0x10,0x30,0x10,0x30,0x20,

  131. 0x39,0x20,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x10,0x40,0x10,0x20,0x10,

  133. 0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x00
  134.                                                                   };

  136. //两只蝴蝶                                 
  137. uchar code music_tab2[] ={ 0x26,0x10,0x1c,0x10,0x1c,0x10,0x26,0x10,0x20,0x10,0x1c,0x10,0x20,0x10,
  138.                     0x1c,0x10,0x26,0x10,0x20,0x10,0x1c,0x10,0x20,0x10,0x26,0x10,0x0e,0x10,
  139.                     0x2b,0x10,0x2b,0x10,0x0e,0x10,0x30,0x10,0x2b,0x10,0x30,0x10,0x2b,0x10,
  140.                     0x2b,0x10,0x0e,0x10,0x30,0x10,0x2b,0x10,0x30,0x10,0x0e,0x10,0x26,0x10,
  141.                     0x1c,0x10,0x1c,0x10,0x26,0x10,0x20,0x10,0x1c,0x10,0x20,0x10,0x1c,0x10,
  142.                     0x1c,0x10,0x26,0x10,0x20,0x10,0x1c,0x10,0x20,0x10,0x26,0x10,0x0e,0x10,
  143.                     0x2b,0x10,0x2b,0x10,0x0e,0x10,0x30,0x10,0x2b,0x10,0x30,0x10,0x2b,0x10,
  144.                     0x30,0x10,0x2b,0x10,0x26,0x10,0x1c,0x10,0x19,0x10,0x1c,0x10,0x20,0x10,
  145.                     0x1c,0x10,0x1c,0x10,0x19,0x10,0x00
  146.                    };  
  147. /******************生日·快乐***************/
  148. unsigned char code music_tab3[]={
  149.                    0x20,0x20,0x20,0x20,0x1c,0x20,0x20,0x20,0x60,0x20,0x19,0x20,0x20,0x20,
  150.                     0x20,0x20,0x1c,0x20,0x20,0x20,0x55,0x20,0x60,0x20,0x20,0x20,0x20,0x20,
  151.                     0x40,0x20,0x4c,0x20,0x60,0x20,0x19,0x20,0x1c,0x20,0x48,0x20,0x48,0x20,
  152.                     0x4c,0x20,0x60,0x20,0x55,0x20,0x60,0x20,0x20,0x20,0x20,0x20,0x00};
  153. //电影音乐僵尸中音乐盒的歌在单片机中的编码
  154. unsigned char code music_tab4[]={
  155.                     0x40,0x20,0x39,0x20,0x40,0x20,0x48,0x20,0x4c,0x20,0x48,0x20,0x40,0x20,
  156.                     0x55,0x20,0x4c,0x20,0x48,0x20,0x4c,0x20,0x48,0x20,0x40,0x20,0x40,0x20,
  157.                     0x39,0x20,0x40,0x20,0x48,0x20,0x4c,0x20,0x48,0x20,0x40,0x20,0x55,0x20,
  158.                     0x40,0x20,0x4c,0x20,0x60,0x20,0x00,
  159.                    };
  160.   
  161. void gequ1()
  162. {
  163.   uchar p,m;   //m为频率常数变量   
  164.   uchar i=0;
  165.   s1=P1^0;
  166. play:   
  167.    while(s1==1)   
  168.     {   
  169.     a: p=music_tab[i];   
  170.        if(p==0x00)       { i=0; delayms(1000); goto play;}     //如果碰到结束符,延时1秒,回到开始再来一遍   
  171.        else if(p==0xff)  { i=i+1;delayms(100),TR0=0; goto a;}  //若碰到休止符,延时100ms,继续取下一音符   
  172.             else         {m=music_tab[i++], n=music_tab[i++];}  //取频率常数 和 节拍常数   
  173.              TR0=1;                                             //开定时器1   
  174.            while(n!=0) Beep=~Beep,delay(m);                         //等待节拍完成, 通过P1口输出音频(可多声道哦!)   
  175.        TR0=0;                                             //关定时器1   
  176.     }
  177. }
  178. void gequ2()
  179. {
  180.   uchar p,yj;   //m为频率常数变量   
  181.   uchar i=0;
  182.   s1=P1^0;
  183. play1:   
  184.    while(s1==1)   
  185.     {   
  186.     a1: p=music_tab1[i];   
  187.        if(p==0x00)       { i=0, delayms(1000); goto play1;}     //如果碰到结束符,延时1秒,回到开始再来一遍   
  188.        else if(p==0xff)  { i=i+1;delayms(100),TR0=0; goto a1;}  //若碰到休止符,延时100ms,继续取下一音符   
  189.             yj=music_tab1[i++], n=music_tab1[i++];  //取频率常数 和 节拍常数   
  190.             TR0=1;                                             //开定时器1   
  191.            while(n!=0) Beep=~Beep,delay1(yj);                         //等待节拍完成, 通过P1口输出音频(可多声道哦!)   
  192.        TR0=0;                                             //关定时器1   
  193.     }
  194. }
  195. void gequ3()
  196. {
  197.   uchar p,yj;   //m为频率常数变量   
  198.   uchar i=0;
  199.   s1=P1^0;
  200. play2:   
  201.    while(s1==1)   
  202.     {   
  203.     a2: p=music_tab2[i];   
  204.        if(p==0x00)       { i=0, delayms(1000); goto play2;}     //如果碰到结束符,延时1秒,回到开始再来一遍   
  205.        else if(p==0xff)  { i=i+1;delayms(100),TR0=0; goto a2;}  //若碰到休止符,延时100ms,继续取下一音符   
  206.             else         {yj=music_tab2[i++], n=music_tab2[i++];}  //取频率常数 和 节拍常数   
  207.              TR0=1;                                             //开定时器1   
  208.            while(n!=0) Beep=~Beep,delay1(yj);                         //等待节拍完成, 通过P1口输出音频(可多声道哦!)   
  209.        TR0=0;                                             //关定时器1   
  210.     }
  211. }  
  212. void gequ4()
  213. {
  214.   uchar p,yj;   //m为频率常数变量   
  215.   uchar i=0;
  216.   s1=P1^0;
  217. play3:   
  218.    while(s1==1)   
  219.     {   
  220.     a3: p=music_tab3[i];   
  221.        if(p==0x00)       { i=0, delayms(1000); goto play3;}     //如果碰到结束符,延时1秒,回到开始再来一遍   
  222.        else if(p==0xff)  { i=i+1;delayms(100),TR0=0; goto a3;}  //若碰到休止符,延时100ms,继续取下一音符   
  223.             else         {yj=music_tab3[i++], n=music_tab3[i++];}  //取频率常数 和 节拍常数   
  224.              TR0=1;                                             //开定时器1   
  225.            while(n!=0) Beep=~Beep,delay1(yj);                         //等待节拍完成, 通过P1口输出音频(可多声道哦!)   
  226.        TR0=0;                                             //关定时器1   
  227.     }
  228. }
  229. void gequ5()
  230. {
  231.   uchar p,yj;   //m为频率常数变量   
  232.   uchar i=0;
  233.   s1=P1^0;
  234. play4:   
  235.    while(s1==1)   
  236.     {   
  237.     a4: p=music_tab4[i];   
  238.        if(p==0x00)       { i=0, delayms(1000); goto play4;}     //如果碰到结束符,延时1秒,回到开始再来一遍   
  239.        else if(p==0xff)  { i=i+1;delayms(100),TR0=0; goto a4;}  //若碰到休止符,延时100ms,继续取下一音符   
  240.             else         {yj=music_tab4[i++], n=music_tab4[i++];}  //取频率常数 和 节拍常数   
  241.             TR0=1;                                             //开定时器1   
  242.            while(n!=0) Beep=~Beep,delay1(yj);                         //等待节拍完成, 通过P1口输出音频(可多声道哦!)   
  243.        TR0=0;                                             //关定时器1   
  244.     }
  245. }
  246. void int0()  interrupt 1   //采用中断0 控制节拍   
  247. {  TH0=0xd8;   
  248.    TL0=0xef;   
  249.    n--;   
  250. }        
  251.    
  252. void main()   
  253. {
  254.   uchar num,i;
  255.   ini();
  256.   shuma();
  257.   while(1)
  258. {
  259.              if(s1==0)
  260.   {
  261.   delay(500);
  262.     if(s1==0)
  263.         {
  264.           num++;
  265.           if(num>5)
  266.           {
  267.             num=1;
  268.           }
  269.           while((i<50)&&(s1==0))
  270.           {
  271.           delay(200);
  272.           i++;
  273.           }
  274.           i=0;
  275.         }
  276.   }
  277. switch(num)
  278.    {
  279. case 1:
  280.         P0=discode[1];
  281.                 P2=0x01;
  282.             gequ1();
  283.                 break;
  284. case 2:
  285.         P0=discode[2];
  286.                 P2=0x01;
  287.             gequ2();
  288.                 break;
  289. case 3:
  290.         P0=discode[3];
  291.                 P2=0x01;
  292.             gequ3();
  293.                 break;
  294. case 4:
  295.         P0=discode[4];
  296.                 P2=0x01;
  297.             gequ4();
  298.                 break;
  299. case 5:
  300.         P0=discode[5];
  301.                 P2=0x01;
  302.             gequ5();
  303.                 break;
  304.   }  
  305. }
  306. }
复制代码

所有资料51hei提供下载:
我的音乐盒.zip (31.44 KB, 下载次数: 29)


分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏2 分享淘帖 顶顶 踩踩
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表