找回密码
 立即注册

QQ登录

只需一步,快速开始

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

单片机矩阵按键电子琴程序

[复制链接]
跳转到指定楼层
楼主
ID:863992 发表于 2020-12-20 15:55 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
  1. #include <reg52.h>
  2. #define uchar unsigned char
  3. #define uint unsigned int

  4. sbit BEEP = P2^7;
  5. uchar code SONG_TONE[]=
  6. {
  7.          212,212,190,212,159,169,212,212,190,212,142,159,212,212,106,126,129,169,190,119,119,126,159,142,159,0
  8. };
  9. uchar code SONG_LONG[]=
  10. {
  11.          9,3,12,12,12,24,9,3,12,12,12,24,9,3,12,12,12,12,12,9,3,12,12,12,24,0
  12. };

  13. void DelayMS(uint ms)
  14. {
  15.          uchar t;
  16.         while(ms--)
  17.         {
  18.                  for(t=0;t<120;t++);
  19.         }
  20. }

  21. void PlayMusic()
  22. {
  23.          uint i =0,j,k;
  24.         while(SONG_LONG[i]!=0||SONG_TONE[i]!=0)
  25.         {
  26.                  for(j=0;j<SONG_LONG[i]*20;j++)
  27.                 {
  28.                          BEEP = ~BEEP;
  29.                         for(k=0;k<SONG_TONE[i]/3;k++);
  30.                 }
  31.                 DelayMS(10);
  32.                 i++;
  33.         }
  34. }

  35. void main()
  36. {
  37.          while(1)
  38.         {
  39.                  PlayMusic();
  40.                 DelayMS(500);
  41.         }
  42. }
复制代码

矩阵按键电子琴.zip

68.03 KB, 下载次数: 21, 下载积分: 黑币 -5

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

使用道具 举报

沙发
ID:384552 发表于 2021-1-15 10:01 | 只看该作者
谢谢您的辛苦付出
回复

使用道具 举报

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

本版积分规则

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

Powered by 单片机教程网

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