找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 1332|回复: 0
打印 上一主题 下一主题
收起左侧

AT89单片机做的音乐分享给老铁们

[复制链接]
跳转到指定楼层
楼主
AT89C51 生日快乐!(^O^)y歌曲程序,仿真供学习制作


单片机源程序如下:
  1. /*******************************************/
  2. /* 音乐:生日快乐                          */
  3. /* 设计:OYT郭                             */
  4. /* 日期:2021夏天                          */
  5. /*******************************************/
  6. #include <REG51.H>
  7. #define uchar unsigned char
  8. sbit beepIO=P3^3;
  9. uchar m,n;
  10. uchar code T[49][2]={{0,0},
  11. {0xF8,0x8B},{0xF8,0xF2},{0xF9,0x5B},{0xF9,0xB7},{0xFA,0x14},{0xFA,0x66},{0xFA,0xB9},{0xFB,0x03},{0xFB,0x4A},{0xFB,0x8F},{0xFB,0xCF},{0xFC,0x0B},
  12. {0xFC,0x43},{0xFC,0x78},{0xFC,0xAB},{0xFC,0xDB},{0xFD,0x08},{0xFD,0x33},{0xFD,0x5B},{0xFD,0x81},{0xFD,0xA5},{0xFD,0xC7},{0xFD,0xE7},{0xFE,0x05},
  13. {0xFE,0x21},{0xFE,0x3C},{0xFE,0x55},{0xFE,0x6D},{0xFE,0x84},{0xFE,0x99},{0xFE,0xAD},{0xFE,0xC0},{0xFE,0x02},{0xFE,0xE3},{0xFE,0xF3},{0xFF,0x02},
  14. {0xFF,0x10},{0xFF,0x1D},{0xFF,0x2A},{0xFF,0x36},{0xFF,0x42},{0xFF,0x4C},{0xFF,0x56},{0xFF,0x60},{0xFF,0x69},{0xFF,0x71},{0xFF,0x79},{0xFF,0x81}
  15. };
  16. uchar code music[][2]={{0,4},
  17. {17,6},{17,2},{19,8},{17,8},{22,8},{21,16},
  18. {17,6},{17,2},{19,8},{17,8},{24,8},{22,16},{17,6},{17,2},{29,8},{26,8},{22,8},{21,8},{19,8},{27,6},{27,2},{26,8},{22,8},{24,8},{22,16},
  19. {0xFF,0xFF}};

  20. void delay(uchar p)
  21. {
  22.     uchar i,j;
  23.     for(;p>0;p--)
  24.     for(i=181;i>0;i--)
  25.     for(j=181;j>0;j--);
  26. }

  27. void pause()
  28. {
  29.     uchar i,j;
  30.     for(i=150;i>0;i--)
  31.     for(j=150;j>0;j--);
  32. }

  33. void T0_int() interrupt 1
  34. {
  35. beepIO=!beepIO;
  36. TH0=T[m][0]; TL0=T[m][1];
  37. }

  38. void main()
  39. {
  40. uchar i=0;
  41. TMOD=0x01;  EA=1; ET0=1;
  42. while(1)
  43.       {
  44.         m=music[i][0];n=music[i][1];
  45.            if(m==0x00)
  46.              {TR0=0;delay(n);i++;}
  47.            else if(m==0xFF)
  48.              {TR0=0;delay(30);i=0;}
  49.            else if(m==music[i+1][0])
  50.              {TR0=1;delay(n);TR0=0;pause();i++;}
  51.            else
  52.              {TR0=1;delay(n);i++;}
  53.       }
  54. }
复制代码

以上程序和hex51hei提供下载:
AT89 生日快乐音乐.rar (982.33 KB, 下载次数: 6)

评分

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

查看全部评分

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

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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