标题: 单片机+无源蜂鸣器实现音乐—世上只有妈妈好 视频演示Proteus仿真程序 [打印本页]
作者: 大学生活好a    时间: 2019-6-17 18:00
标题: 单片机+无源蜂鸣器实现音乐—世上只有妈妈好 视频演示Proteus仿真程序
视频演示如下:


仿真原理图如上图（proteus仿真工程文件可到本帖附件中下载）

单片机源程序如下:
  1. #include <reg51.h>sbit speaker=P2^4;
  2. sbit key1=P3^4;
  3. unsigned char timer0h,timer0l,time,led=1,j=0;
  4. unsigned char flagd=0;
  5. //世上只有妈妈好数据表
  6. code unsigned char sszymmh[]={ 6,2,3, 5,2,1, 3,2,2, 5,2,2, 1,3,2, 6,2,1, 5,2,1,
  7. 6,2,4, 3,2,2, 5,2,1, 6,2,1, 5,2,2, 3,2,2, 1,2,1,
  8. 6,1,1, 5,2,1, 3,2,1, 2,2,4, 2,2,3, 3,2,1, 5,2,2,
  9. 5,2,1, 6,2,1, 3,2,2, 2,2,2, 1,2,4, 5,2,3, 3,2,1,
  10. 2,2,1, 1,2,1, 6,1,1, 1,2,1, 5,1,6, 0,0,0
  11. } ;
  12. // 音阶频率表 高八位
  13. code unsigned char FREQH[]={
  14. 0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8,
  15. 0xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC, //1,2,3,4,5,6,7,8,i
  16. 0xFC,0xFD,0xFD,0xFD,0xFD,0xFE,
  17. 0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF,
  18. } ;
  19. // 音阶频率表 低八位
  20. code unsigned char FREQL[]={
  21. 0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,
  22. 0x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F, //1,2,3,4,5,6,7,8,i
  23. 0xEE,0x44, 0x6B,0xB4,0xF4,0x2D,
  24. 0x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16,
  25. };

  27. void delay(unsigned char t)
  28. {
  29.          unsigned char t1;
  30.          unsigned long t2;
  31.          for(t1=0;t1<t;t1++)
  32.          {
  33.                 for(t2=0;t2<8000;t2++)
  34.                  {
  35.                          ;
  36.                  }
  37.          }
  38.          TR0=0;
  39. }

  41. void t0int() interrupt 1
  42. {
  43.          TR0=0;
  44.          speaker=!speaker;
  45.          TH0=timer0h;
  46.          TL0=timer0l;
  47.          TR0=1;
  48. }

  50. void song()
  51. {
  52.          TH0=timer0h;
  53.          TL0=timer0l;
  54.          TR0=1;
  55.          delay(time);
  56. }

  58. void main(void)
  59. {
  60.          unsigned char k,i;
  61.          TMOD=1; //置CT0定时工作方式1
  62.          EA=1;ET0=1;//IE=0x82 //CPU开中断,CT0开中断
  63.          while(1)
  64.          {
  65.                  i=0;
  66.                  time=1;
  67.                  while(time)
  68.                  {
  69.                          if(j==8)
  70.                          {
  71.                                  //led=1;
  72.                                  j=0;flagd=~flagd;
  73.                                  if(flagd)
  74.                                  {
  75.                                                  led=0x80;
  76.                                  }
  77.                                 else
  78.                             {
  79.                                                 led=1;
  80.                                 }
  81.                          }
  82.                          else
  83.                          {
  84.                                  P1=~led;
  85.                                  if(flagd)
  86.                                  {
  87.                                          led=led>>1;
  88.                                  }
  89.                                  else
  90.                                  {
  91.                                          led=led<<1;
  92.                                  }
  93.                                  j++;
  94.                          }
  95.                          k=sszymmh[i]+7*sszymmh[i+1]-1;
  96.                          timer0h=FREQH[k];
  97.                          timer0l=FREQL[k];
  98.                          time=sszymmh[i+2];
  99.                          i=i+3;

  101.                          if(key1==0){
  102.                                  song();
  103.                                 }
  104.                  }
  105.          }
  106. }
复制代码


全部资料51hei下载地址：
无源蜂鸣器-世上只有妈妈好.zip (3.39 MB, 下载次数: 144)
作者: sjayji    时间: 2019-7-1 11:03
顶顶顶，谢谢楼主
作者: wuyb2012    时间: 2019-7-1 15:46
真牛逼，学习了。
作者: 巴巴    时间: 2019-12-3 00:09
为什么我用这个程序生成的.hex文件仿真响不了
作者: zyzzzzzz    时间: 2019-12-6 17:05
巴巴 发表于 2019-12-3 00:09
为什么我用这个程序生成的.hex文件仿真响不了

请问解决了吗
作者: ljl100038    时间: 2019-12-6 22:27
谢谢楼主，顶顶顶
作者: pengyongnet    时间: 2019-12-10 18:38
程序编译后不响骗人的
作者: 1662258377    时间: 2020-6-8 20:46
谢谢，楼主
作者: 111165662546231    时间: 2020-6-9 17:40
wuyb2012 发表于 2019-7-1 15:46
真牛逼，学习了。

用的是什么？SRC89C52吗？
作者: zzo    时间: 2020-6-11 16:57
巴巴 发表于 2019-12-3 00:09
为什么我用这个程序生成的.hex文件仿真响不了

试着把两个引脚改成P3^1
作者: 454545qqq    时间: 2021-5-6 14:34
想学习一下，下载一下.......



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1