久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 3584|回復: 1
打印 上一主題 下一主題
收起左側

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

  [復制鏈接]
跳轉到指定樓層
樓主
最近準備做一個延時插座，想起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空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏8 分享淘帖 頂頂 踩踩
回復

使用道具 舉報

沙發
ID:702386 發表于 2021-1-20 19:36 | 只看該作者
好像曲子太長了有點問題，void song(uchar *str)函數中定義的變量i的類型要改為uint。
回復

使用道具 舉報

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

本版積分規則

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

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板： 一区二区三区网站 | 午夜在线视频一区二区三区 | 欧美精品91爱爱 | av国产在线观看 | 2022国产精品 | 国产欧美精品区一区二区三区 | 一级片在线观看 | 久久噜噜噜精品国产亚洲综合 | 国产精品国产三级国产a | 日韩午夜网站 | 国产精品久久一区 | 99re国产 | 久久不卡日韩美女 | 男女啪啪网址 | 一级片免费观看 | 四虎永久免费影院 | 亚洲一区二区三区久久久 | 好好的日在线视频 | 精彩视频一区二区三区 | 91精品一区二区三区久久久久久 | www.亚洲 | 在线免费观看色 | 99精品99久久久久久宅男 | 成人超碰| 精品av| 久久精品国产v日韩v亚洲 | 国产夜恋视频在线观看 | 国产成人免费在线观看 | 国产精品视频二区三区 | 日韩中文字幕在线观看 | 日韩有码在线播放 | 国产精品99999 | 精品入口麻豆88视频 | aa级毛片毛片免费观看久 | 日本精品一区二区三区在线观看视频 | 九九久久精品 | 少妇性l交大片免费一 | 久久精品日产第一区二区三区 | 欧美成年视频 | 欧美一页| 国产免费视频 |