找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開始

搜索
查看: 1879|回復(fù): 1
打印 上一主題 下一主題
收起左側(cè)

單片機(jī)矩陣按鍵電子琴程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:863992 發(fā)表于 2020-12-20 15:55 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
  1. #include <reg52.h>
  2. #define uchar unsigned char
  3. #define uint unsigned int

  5. sbit BEEP = P2^7;
  6. uchar code SONG_TONE[]=
  7. {
  8.          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
  9. };
  10. uchar code SONG_LONG[]=
  11. {
  12.          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
  13. };

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

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

  39. void main()
  40. {
  41.          while(1)
  42.         {
  43.                  PlayMusic();
  44.                 DelayMS(500);
  45.         }
  46. }
復(fù)制代碼

矩陣按鍵電子琴.zip

68.03 KB, 下載次數(shù): 21, 下載積分: 黑幣 -5

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:384552 發(fā)表于 2021-1-15 10:01 | 只看該作者
謝謝您的辛苦付出
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表