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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

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

搜索
»论坛 › 电子技术分类讨论区 › 资料共享 › 单片机蜂鸣器发声兰花草音乐
返回列表 发新帖
查看: 4222|回复: 1
打印 上一主题 下一主题
收起左侧

单片机蜂鸣器发声兰花草音乐

[复制链接]
跳转到指定楼层
楼主
ID:259336 发表于 2017-12-9 11:16 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
  1. #include <reg51.h>
  2. #define uchar unsigned char
  3. sbit beepIO=P2^0;
  4. uchar m,n;
  5. uchar code T[49][2]={{0,0},
  6. {0xF8,0x8B},{0xF8,0xF2},{0xF9,0x5B},{0xF9,0xB7},{0xFA,0x14},
  7. {0xFA,0x66},{0xFA,0xB9},{0xFB,0x03},{0xFB,0x4A},{0xFB,0x8F},
  8. {0xFB,0xCF},{0xFC,0x0B},{0xFC,0x43},{0xFC,0x78},{0xFC,0xAB},
  9. {0xFC,0xDB},{0xFD,0x08},{0xFD,0x33},{0xFD,0x5B},{0xFD,0x81},
  10. {0xFD,0xA5},{0xFD,0xC7},{0xFD,0xE7},{0xFE,0x05},{0xFE,0x21},
  11. {0xFE,0x3C},{0xFE,0x55},{0xFE,0x6D},{0xFE,0x84},{0xFE,0x99},
  12. {0xFE,0xAD},{0xFE,0xC0},{0xFE,0x02},{0xFE,0xE3},{0xFE,0xF3},
  13. {0xFF,0x02},{0xFF,0x10},{0xFF,0x1D},{0xFF,0x2A},{0xFF,0x36},
  14. {0xFF,0x42},{0xFF,0x4C},{0xFF,0x56},{0xFF,0x60},{0xFF,0x69},
  15. {0xFF,0x71},{0xFF,0x79},{0xFF,0x81}};
  16. uchar code music[][2]={{0,4},{11,4},{18,4},{18,4},{18,4},{18,8},{16,4},
  17. {14,6},{16,2},{16,4},{13,4},{11,12},
  18. {22,4},{22,4},{22,4},{22,4},{22,6},{21,12},
  19. {18,4},{21,4},{10,4},{19,4},{18,12},

  21. {18,4},{23,4},{23,4},{21,4},{18,6},{16,12},
  22. {14,4},{16,2},{16,4},{13,4},{11,8},{6,8},

  24. {6,4},{14,4},{14,4},{13,4},{11,6},{18,12},
  25. {16,6},{14,2},{13,4},{9,4},{11,8},{12,12},{10,4},{0xFF,0xFF}};

  27. void delay(uchar p)
  28. {
  29.     uchar i,j;
  30.     for(;p>0;p--)
  31.     for(i=181;i>0;i--)
  32.     for(j=181;j>0;j--);
  33. }

  35. void pause()
  36. {
  37.     uchar i,j;
  38.     for(i=150;i>0;i--)
  39.     for(j=150;j>0;j--);
  40. }

  42. void T0_int() interrupt 1
  43. {
  44. beepIO=!beepIO;
  45. TH0=T[m][0]; TL0=T[m][1];
  46. }

  48. void main()
  49. {
  50. uchar i=0;
  51. TMOD=0x01;  EA=1; ET0=1;
  52. while(1)
  53.       {
  54.         m=music[i][0];n=music[i][1];
  55.            if(m==0x00)
  56.              {TR0=0;delay(n);i++;}
  57.            else if(m==0xFF)
  58.              {TR0=0;delay(30);i=0;}
  59.            else if(m==music[i+1][0])
  60.              {TR0=1;delay(n);TR0=0;pause();i++;}
  61.            else
  62.              {TR0=1;delay(n);i++;}
  63.       }
  64. }
复制代码


蜂鸣器发声兰花草音乐

LTQNRLYOMLT(`2PX$X5%S]I.png (24.11 KB, 下载次数: 53)

蜂鸣器发声，兰花草音乐

蜂鸣器发声，兰花草音乐
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 顶顶 踩踩
回复

使用道具 举报

沙发
ID:408024 发表于 2018-10-18 22:38 | 只看该作者
此帖仅作者可见

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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