找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

帖子
查看: 3633|回復(fù): 1
收起左側(cè)

STC15F104W單片機(jī)音樂播放器制作（小蘋果+西海情歌+夜之光）源程序

  [復(fù)制鏈接]
ID:702386 發(fā)表于 2021-1-20 15:37 | 顯示全部樓層 |閱讀模式
最近準(zhǔn)備做一個(gè)延時(shí)插座，想起STC15F104W這顆MCU，趁延時(shí)插座的料還沒來拿它焊了個(gè)小玩具。朋友們可以看代碼注釋找個(gè)簡譜自己譜曲。
接線圖：

原理圖.jpg
實(shí)物：

實(shí)物.jpg



單片機(jī)源程序：
  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. //單片機(jī)晶振采用11.0592MHz
  9. // 頻率-半周期數(shù)據(jù)表 高八位     本軟件共保存了四個(gè)八度的28個(gè)頻率數(shù)據(jù)
  10. uchar code FREQH[] = {0x01,        //0的時(shí)候沒有音符
  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. // 頻率-半周期數(shù)據(jù)表 低八位
  17. uchar code FREQL[] = {0x01,        //0的時(shí)候沒有音符
  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. //一個(gè)音符有三個(gè)數(shù)字。前為第幾個(gè)音、中為第幾個(gè)八度、后為時(shí)長（以1/4拍為單位）。
  24. //6, 2, 6 分別代表：６, 中音, 6個(gè)1/4拍;
  25. //5, 2, 2 分別代表：５, 中音, 2個(gè)1/4拍;
  26. //3, 2, 4 分別代表：３, 中音, 4個(gè)1/4拍;
  27. //5, 2, 4 分別代表：５, 中音, 4個(gè)1/4拍;
  28. //1, 3, 4 分別代表：１, 高音, 4個(gè)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中斷程序，控制發(fā)音的音調(diào)
  121. {
  122.     TR0 = 0;  //先關(guān)閉T0
  123.     speaker = ~speaker; //輸出方波, 發(fā)音
  124.     TH0 = t0h;   //下次的中斷時(shí)間, 這個(gè)時(shí)間, 控制音調(diào)高低
  125.     TL0 = t0l;
  126.     TR0 = 1;   //啟動(dòng)T0
  127. }
  128. //--------------------------------------
  129. void delay(uchar t)   //延時(shí)程序，控制發(fā)音的時(shí)間長度120ms(1/4拍)
  130. {
  131. uchar a,b,c;
  132.     while(t--)  //四重循環(huán), 共延時(shí)t個(gè)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.   //延時(shí)期間, 可進(jìn)入T0中斷去發(fā)音
  139.     TR0 = 0;   //關(guān)閉T0, 停止發(fā)音
  140. }
  141. //--------------------------------------
  142. void singachar()    //演奏一個(gè)音符
  143. {
  144. TR0=0;
  145.     TH0 = t0h; //控制音調(diào)
  146.     TL0 = t0l;
  147.     TR0 = 1;  //啟動(dòng)T0, 由T0輸出方波去發(fā)音
  148.     delay(time); //控制時(shí)間長度即 節(jié)拍
  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個(gè)是音符, 第i+1個(gè)是第幾個(gè)八度                        
  160.         t0h = FREQH[k];  //從數(shù)據(jù)表中讀出頻率數(shù)值
  161.         t0l = FREQL[k];  //實(shí)際上, 是定時(shí)的時(shí)間長度
  162.         time = str[i + 2]; //讀出時(shí)間長度數(shù)值 節(jié)拍時(shí)間
  163.         i += 3;
  164.         singachar();
  165. }
  166. }
  167. void main(void)
  168. {
  169.     TMOD = 0x01;  //置T0定時(shí)工作方式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. }
復(fù)制代碼

評分

參與人數(shù) 1黑幣 +90 收起 理由
admin + 90 共享資料的黑幣獎(jiǎng)勵(lì)！

查看全部評分

回復(fù)

使用道具 舉報(bào)

ID:702386 發(fā)表于 2021-1-20 19:36 | 顯示全部樓層
好像曲子太長了有點(diǎn)問題，void song(uchar *str)函數(shù)中定義的變量i的類型要改為uint。
回復(fù)

使用道具 舉報(bào)

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

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

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

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