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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › STC15F104W单片机音乐播放器制作（小苹果+西海情歌+夜之 ...
返回列表 发新帖
查看: 2930|回复: 1
打印 上一主题 下一主题
收起左侧

STC15F104W单片机音乐播放器制作（小苹果+西海情歌+夜之光）源程序

[复制链接]
跳转到指定楼层
楼主
ID:702386 发表于 2021-1-20 15:37 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
最近准备做一个延时插座，想起STC15F104W这颗MCU，趁延时插座的料还没来拿它焊了个小玩具。朋友们可以看代码注释找个简谱自己谱曲。
接线图：


实物：





单片机源程序：
  1. #include <STC15.h>
  2. #define uchar unsigned char
  3. #define uint unsinged int

  5. sbit speaker = P3^0;
  6. uchar t0h,t0l,time,count1=0,count2=0;
  7. //--------------------------------------
  8. //单片机晶振采用11.0592MHz
  9. // 频率-半周期数据表 高八位     本软件共保存了四个八度的28个频率数据
  10. uchar code FREQH[] = {0x01,        //0的时候没有音符
  11.     0xF2, 0xF3, 0xF5, 0xF5, 0xF6, 0xF7, 0xF8,    //低音1234567
  12.     0xF9, 0xF9, 0xFA, 0xFA, 0xFB, 0xFB, 0xFC, 0xFC,//1,2,3,4,5,6,7,i
  13.     0xFC, 0xFD, 0xFD, 0xFD, 0xFD, 0xFE,            //高音 234567
  14.     0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFE, 0xFF};   //超高音 1234567
  15. //-----------------------------------------
  16. // 频率-半周期数据表 低八位
  17. uchar code FREQL[] = {0x01,        //0的时候没有音符
  18.     0x42, 0xC1, 0x17, 0xB6, 0xD0, 0xD1, 0xB6,    //低音1234567
  19.     0x21, 0xE1, 0x8C, 0xD8, 0x68, 0xE9, 0x5B, 0x8F, //1,2,3,4,5,6,7,i
  20.     0xEE, 0x44, 0x6B, 0xB4, 0xF4, 0x2D,             //高音 234567
  21.     0x47, 0x77, 0xA2, 0xB6, 0xDA, 0xFA, 0x16};   //超高音 1234567
  22. //--------------------------------------
  23. //一个音符有三个数字。前为第几个音、中为第几个八度、后为时长（以1/4拍为单位）。
  24. //6, 2, 6 分别代表：６, 中音, 6个1/4拍;
  25. //5, 2, 2 分别代表：５, 中音, 2个1/4拍;
  26. //3, 2, 4 分别代表：３, 中音, 4个1/4拍;
  27. //5, 2, 4 分别代表：５, 中音, 4个1/4拍;
  28. //1, 3, 4 分别代表：１, 高音, 4个1/4拍;
  29. //低音为1，中音为2，高音为3，超高音为4；


  32. /***************世上只有妈妈好****************/
  33. uchar code sszymmh[] = {
  34. 6,2,6, 5,2,2, 3,2,4, 5,2,4,
  35. 1,3,4, 6,2,2, 5,2,2, 6,2,8,
  36. 3,2,4, 5,2,2, 6,2,2, 5,2,4,
  37. 3,2,4, 1,2,2, 6,1,2, 5,2,2,
  38. 3,2,2, 2,2,8, 2,2,6, 3,2,2,
  39. 5,2,4, 5,2,2, 6,2,2, 3,2,4,
  40. 2,2,4, 1,2,8, 5,2,6, 3,2,2,
  41. 2,2,2, 1,2,2, 6,1,2, 1,2,2,
  42. 5,1,16, 0,0,0};

  44. /*******************小苹果********************/
  45. uchar code LittleApple[]={
  46. 3,2,4, 1,2,4, 2,2,4, 6,1,4,
  47. 3,2,2, 2,2,2, 1,2,2, 2,2,2,
  48. 6,1,4, 3,2,4, 1,2,4, 2,2,4,
  49. 2,2,4, 5,2,2, 3,2,2, 7,1,4,
  50. 1,2,4, 1,2,2, 7,1,2, 6,1,4,
  51. 7,1,2, 1,2,2, 2,2,4, 5,1,4,        
  52. 6,2,2, 5,2,2, 3,2,4, 3,2,4,
  53. 2,2,2, 1,2,4, 2,2,2, 3,2,2,
  54. 2,2,2, 3,2,2, 2,2,2, 3,2,2,
  55. 5,2,2, 5,2,4, 5,2,2, 5,2,2,
  56. 5,2,2, 5,2,2, 5,2,4, 3,2,4,
  57. 1,2,4, 2,2,4, 6,1,4, 3,2,2,
  58. 2,2,2, 1,2,2, 2,2,2, 6,1,4,
  59. 3,2,4, 1,2,4, 2,2,4, 2,2,4,
  60. 2,2,2, 5,2,2, 3,2,2, 7,1,4,
  61. 1,2,4, 1,2,2, 7,1,2, 6,1,4,
  62. 7,1,2, 1,2,2, 2,2,4, 5,1,4,
  63. 6,2,2, 5,2,2, 3,2,4, 3,2,4,
  64. 2,2,2, 1,2,4, 2,2,2, 3,2,2,
  65. 2,2,4, 5,1,4, 6,1,4, 6,1,2,
  66. 1,2,2, 6,1,4, 1,2,4, 0,0,0};

  68. /*******************夜之光*********************/
  69. uchar code NightLight[]={
  70. 3,2,2, 3,2,2, 3,2,2, 5,2,2, 6,2,4, 5,2,2, 3,2,2,
  71. 5,2,2, 3,2,2, 3,2,2, 2,2,2, 3,2,4, 2,2,2, 2,2,2,
  72. 2,2,2, 2,2,2, 3,2,2, 5,2,4, 3,2,2, 2,2,2, 3,2,2,
  73. 3,2,2, 3,2,2, 2,2,1, 3,2,1, 3,2,4, 3,2,2, 3,2,2,
  74. 3,2,2, 5,2,2, 6,2,4, 5,2,2, 3,2,2, 5,2,2, 3,2,2,
  75. 3,2,2, 3,2,2, 2,2,1, 3,2,1, 3,2,4, 2,2,2, 2,2,2,
  76. 2,2,2, 3,2,2, 5,2,2, 3,2,4, 5,2,2, 6,2,4, 3,2,2,
  77. 1,3,2, 7,2,2, 6,2,2, 6,2,2, 6,2,2, 5,2,1, 6,2,1,
  78. 6,2,4, 6,2,2, 5,2,2, 3,2,2, 3,2,2, 3,2,2, 2,2,1,
  79. 3,2,1, 3,2,4, 5,2,2, 3,2,2, 5,2,2, 5,2,2, 5,2,2,
  80. 6,2,2, 7,2,2, 7,2,2, 6,2,2, 5,2,2, 6,2,4, 6,2,2,
  81. 5,2,1, 6,2,1, 6,2,2, 5,2,2, 1,3,2, 7,2,2, 6,2,2,
  82. 6,2,2, 6,2,2, 5,2,1, 6,2,1, 6,2,4, 6,2,2, 5,2,2,
  83. 3,2,2, 3,2,2, 3,2,2, 2,2,1, 3,2,1, 3,2,4, 5,2,2,
  84. 3,2,2, 5,2,4, 5,2,2, 6,2,2, 7,2,2, 7,2,2, 6,2,2,
  85. 5,2,2, 6,2,2, 6,2,2, 6,2,2, 5,2,1, 6,2,1, 6,2,4,
  86. 0,0,0};

  88. /*******************西海情歌*******************/
  89. uchar code WestSea[]={
  90. 3,1,2, 5,1,2, 6,1,2, 1,2,2, 6,1,2, 2,2,4, 1,2,4,
  91. 1,2,2, 2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2,
  92. 6,1,2, 6,1,2, 3,1,2, 5,1,4, 6,1,2, 1,2,2, 2,2,4,
  93. 2,2,2, 3,2,1, 2,2,1, 2,2,4, 2,2,1, 1,2,2, 2,2,2,
  94. 2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2, 6,1,2,
  95. 6,1,2, 3,1,2, 5,1,2, 6,2,2, 1,2,2, 6,1,2, 2,2,4,
  96. 1,2,2, 2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2,
  97. 6,1,2, 6,1,2, 3,1,2, 5,1,4, 6,1,2, 1,2,2, 2,2,4,
  98. 2,2,2, 3,2,1, 2,2,1, 2,2,4, 2,2,1, 1,2,2, 2,2,2,
  99. 2,2,2, 3,2,2, 3,2,2, 2,2,2, 2,2,2, 1,2,2, 6,1,4,
  100. 1,2,2, 1,2,4, 2,2,2, 3,2,2, 5,2,2, 5,2,2, 5,2,2,
  101. 3,2,2, 5,2,2, 6,2,2, 6,2,2, 5,2,2, 6,2,2, 6,2,2,
  102. 6,2,2, 5,2,2, 3,2,4, 5,2,2, 6,2,2, 1,3,2, 1,3,2,
  103. 1,3,2, 1,3,2, 1,3,2, 6,2,2, 5,2,2, 6,2,1, 1,3,1,
  104. 5,2,2, 6,2,2, 6,2,2, 5,2,2, 3,2,4, 5,2,2, 3,2,2,
  105. 2,2,2, 2,2,2, 2,2,2, 1,2,2, 6,1,4, 1,2,2, 2,2,2,
  106. 2,2,4, 2,2,2, 3,2,2, 5,2,2, 6,2,2, 6,2,2, 5,2,2,
  107. 5,2,2, 3,2,2, 3,2,4, 0,0,0};


  110. /*****************生日快乐********************/
  111. uchar code Birthday[]={
  112. 5,1,2, 5,1,2, 6,1,4, 5,1,4, 1,2,4, 7,1,8,
  113. 5,1,2, 5,1,2, 6,1,4, 5,1,4, 2,2,4, 1,2,8,
  114. 5,1,2, 5,1,2, 5,2,4, 3,2,4, 1,2,4, 7,1,4,
  115. 6,1,4, 4,2,2, 4,2,2, 3,2,4, 1,2,4, 2,2,4,
  116. 1,2,4, 0,0,0};


  119. //-----------------------------------------------------
  120. void t0int() interrupt 1  //T0中断程序，控制发音的音调
  121. {
  122.     TR0 = 0;  //先关闭T0
  123.     speaker = ~speaker; //输出方波, 发音
  124.     TH0 = t0h;   //下次的中断时间, 这个时间, 控制音调高低
  125.     TL0 = t0l;
  126.     TR0 = 1;   //启动T0
  127. }
  128. //--------------------------------------
  129. void delay(uchar t)   //延时程序，控制发音的时间长度120ms(1/4拍)
  130. {
  131. uchar a,b,c;
  132.     while(t--)  //四重循环, 共延时t个1/4拍
  133. {         
  134.      for(c=193;c>0;c--)
  135.          for(b=114;b>0;b--)
  136.              for(a=12;a>0;a--);
  137. }
  138.   //延时期间, 可进入T0中断去发音
  139.     TR0 = 0;   //关闭T0, 停止发音
  140. }
  141. //--------------------------------------
  142. void singachar()    //演奏一个音符
  143. {
  144. TR0=0;
  145.     TH0 = t0h; //控制音调
  146.     TL0 = t0l;
  147.     TR0 = 1;  //启动T0, 由T0输出方波去发音
  148.     delay(time); //控制时间长度即 节拍
  149. }
  150. //--------------------------------------
  151. //**************演奏一首歌***********************************//
  152. void song(uchar *str)
  153. {
  154. uchar k,i;
  155. i = 0;
  156.     time = 1;
  157.     while(time)
  158. {
  159.         k = str[i] + 7 * (str[i + 1]);//第i个是音符, 第i+1个是第几个八度                        
  160.         t0h = FREQH[k];  //从数据表中读出频率数值
  161.         t0l = FREQL[k];  //实际上, 是定时的时间长度
  162.         time = str[i + 2]; //读出时间长度数值 节拍时间
  163.         i += 3;
  164.         singachar();
  165. }
  166. }
  167. void main(void)
  168. {
  169.     TMOD = 0x01;  //置T0定时工作方式1
  170.     ET0 = 1;      //开T0中断
  171.     EA = 1;       //开CPU中断
  172.     while(1)
  173. {
  174.   delay(10);
  175.   song(LittleApple);
  176.     delay(20);
  177.   song(NightLight);
  178.     delay(20);
  179.   song(WestSea);
  180.   delay(20);
  181.   song(sszymmh);
  182.   delay(20);
  183.   song(Birthday);
  184.   delay(20);
  185. }
  186. }
复制代码

评分

参与人数 1黑币 +90 收起 理由
admin + 90 共享资料的黑币奖励！

查看全部评分

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

使用道具 举报

沙发
ID:702386 发表于 2021-1-20 19:36 | 只看该作者
好像曲子太长了有点问题，void song(uchar *str)函数中定义的变量i的类型要改为uint。
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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