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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 嵌入式/单片机论坛 › 单片机仿真论坛 › 利用单片机定时器产生乐曲+源程序+仿真图
返回列表 发新帖
查看: 3941|回复: 1
打印 上一主题 下一主题
收起左侧

利用单片机定时器产生乐曲+源程序+仿真图

[复制链接]
跳转到指定楼层
楼主
ID:324366 发表于 2018-5-26 09:09 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
利用定时器产生乐曲仿真原理图如下（proteus仿真工程文件可到本帖附件中下载）


单片机源码：

  2. #include<reg52.h>                 //库文件
  3. #define uchar unsigned char//宏定义无符号字符型
  4. #define uint unsigned int  //宏定义无符号整型
  5. /********************************************************************
  6.                             初始定义
  7. *********************************************************************/
  8. uchar Count;
  9. sbit _Speak =P3^7 ; //讯响器控制脚
  10. /********************************************************************
  11.                             歌曲字根码
  12. *********************************************************************/
  13. unsigned char code SONG[] ={ //祝你平安
  14. 0x26,0x20,0x20,0x20,0x20,0x20,0x26,0x10,0x20,0x10,0x20,0x80,0x26,0x20,0x30,0x20,
  15. 0x30,0x20,0x39,0x10,0x30,0x10,0x30,0x80,0x26,0x20,0x20,0x20,0x20,0x20,0x1c,0x20,
  16. 0x20,0x80,0x2b,0x20,0x26,0x20,0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x80,0x26,0x20,
  17. 0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x60,0x40,0x10,0x39,0x10,0x26,0x20,
  18. 0x30,0x20,0x30,0x20,0x39,0x10,0x26,0x10,0x26,0x80,0x26,0x20,0x2b,0x10,0x2b,0x10,
  19. 0x2b,0x20,0x30,0x10,0x39,0x10,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x20,
  20. 0x20,0x10,0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x18,0x20,0x18,0x20,0x26,0x20,
  21. 0x20,0x20,0x20,0x40,0x26,0x20,0x2b,0x20,0x30,0x20,0x30,0x20,0x1c,0x20,0x20,0x20,
  22. 0x20,0x80,0x1c,0x20,0x1c,0x20,0x1c,0x20,0x30,0x20,0x30,0x60,0x39,0x10,0x30,0x10,
  23. 0x20,0x20,0x2b,0x10,0x26,0x10,0x2b,0x10,0x26,0x10,0x26,0x10,0x2b,0x10,0x2b,0x80,
  24. 0x18,0x20,0x18,0x20,0x26,0x20,0x20,0x20,0x20,0x60,0x26,0x10,0x2b,0x20,0x30,0x20,
  25. 0x30,0x20,0x1c,0x20,0x20,0x20,0x20,0x80,0x26,0x20,0x30,0x10,0x30,0x10,0x30,0x20,
  26. 0x39,0x20,0x26,0x10,0x2b,0x10,0x2b,0x20,0x2b,0x40,0x40,0x10,0x40,0x10,0x20,0x10,
  27. 0x20,0x10,0x2b,0x10,0x26,0x30,0x30,0x80,0x00,
  28. //路边的野华不要采
  29. 0x30,0x1C,0x10,0x20,0x40,0x1C,0x10,0x18,0x10,0x20,0x10,0x1C,0x10,0x18,0x40,0x1C,
  30. 0x20,0x20,0x20,0x1C,0x20,0x18,0x20,0x20,0x80,0xFF,0x20,0x30,0x1C,0x10,0x18,0x20,
  31. 0x15,0x20,0x1C,0x20,0x20,0x20,0x26,0x40,0x20,0x20,0x2B,0x20,0x26,0x20,0x20,0x20,
  32. 0x30,0x80,0xFF,0x20,0x20,0x1C,0x10,0x18,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,
  33. 0x20,0x2B,0x40,0x20,0x20,0x1C,0x10,0x18,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,
  34. 0x20,0x2B,0x40,0x20,0x30,0x1C,0x10,0x18,0x20,0x15,0x20,0x1C,0x20,0x20,0x20,0x26,
  35. 0x40,0x20,0x20,0x2B,0x20,0x26,0x20,0x20,0x20,0x30,0x80,0x20,0x30,0x1C,0x10,0x20,
  36. 0x10,0x1C,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,0x20,0x2B,0x40,0x20,0x15,0x1F,
  37. 0x05,0x20,0x10,0x1C,0x10,0x20,0x20,0x26,0x20,0x2B,0x20,0x30,0x20,0x2B,0x40,0x20,
  38. 0x30,0x1C,0x10,0x18,0x20,0x15,0x20,0x1C,0x20,0x20,0x20,0x26,0x40,0x20,0x20,0x2B,
  39. 0x20,0x26,0x20,0x20,0x20,0x30,0x30,0x20,0x30,0x1C,0x10,0x18,0x40,0x1C,0x20,0x20,
  40. 0x20,0x26,0x40,0x13,0x60,0x18,0x20,0x15,0x40,0x13,0x40,0x18,0x80,0x00,};
  41. /********************************************************************
  42.                             定时中断服务函数
  43. *********************************************************************/
  44. void Time0_Init()
  45. {
  46.         TMOD = 0x01;
  47.         IE = 0x82;
  48.         TH0 = 0xD8;
  49.         TL0 = 0xEF; //12MZ晶振，10ms
  50. }
  51. /*********************************************************************/
  52. void Time0_Int() interrupt 1
  53. {
  54.         TH0 = 0xD8;
  55.         TL0 = 0xEF;                     
  56.         Count++; //长度加1
  57. }
  58. /*********************************************************************/
  59. void Delay_xMs(unsigned int x) //1MS 延时子程序
  60. {
  61.         unsigned int i,j;
  62.         for( i =0;i < x;i++ )
  63.         {
  64.                 for( j =0;j<3;j++ );
  65.         }
  66. }
  67. /*********************************************************************/
  68. void Play_Song(unsigned char i) //:歌曲播放子程序i 为播放哪一段曲目
  69. {
  70.         unsigned char Temp1,Temp2;
  71.         unsigned int Addr;
  72.         Count = 0; //中断计数器清0
  73.         Addr = i * 217;
  74. while(1)
  75.         {
  76.                 Temp1 = SONG[Addr++];
  77.                 if ( Temp1 == 0xFF ) //休止符
  78.                         {
  79.                                 TR0 = 0; Delay_xMs(100);
  80.                         }
  81.         else if ( Temp1 == 0x00 ) //歌曲结束符
  82.                 {
  83.                         return;
  84.                 }
  85. else
  86. {
  87.         Temp2 = SONG[Addr++];
  88.         TR0 = 1;
  89.         while(1)
  90.         {
  91.         _Speak = ~_Speak;
  92.         Delay_xMs(Temp1);
  93.         if ( Temp2 == Count )
  94.                 {
  95.                         Count = 0;
  96.                         break;
  97.                 }
  98.         }
  99. }
  100. }
  101. }
  102. /********************************************************************
  103.                             主函数
  104. *********************************************************************/
  105. void main() //主程序
  106. {
  107.         Time0_Init(); //定时器0 中断初始化
  108.         while(1)
  109.         {
  110.                 Play_Song(0);
  111.         } //播放
  112. }

  114. /********************************************************************
  115.                               结束
  116. *********************************************************************/
复制代码

全部资料51hei下载地址：
利用定时器产生乐曲.zip (61.3 KB, 下载次数: 10)



评分

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

查看全部评分

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

使用道具 举报

沙发
ID:138707 发表于 2022-3-6 20:17 | 只看该作者
怎么把歌改成电子谱
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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