找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

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

基于51/52單片機的音樂彩燈項目Proteus仿真程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:933089 發(fā)表于 2021-10-26 11:23 | 只看該作者 |只看大圖 回帖獎勵 |正序瀏覽 |閱讀模式
最近做了簡單的小玩意,基于51單片機的流水燈,流水燈跟隨《生日快樂歌》的節(jié)拍閃爍,覺得挺有意思的,給大家分享出來,如有不好,歡迎指正!
所有工程文件都在附件,包含源碼、電路圖、hex文件等。

仿真原理圖如下(proteus仿真工程文件可到本帖附件中下載)



同時蜂鳴器播放生日快樂歌

單片機源程序如下:
  1. #include<reg51.h>
  2. #include<intrins.h>
  3. #define led_8 P0
  4. sbit speaker=P2^7;
  5. unsigned char code yp[]={70,70,63,70,53,56,70,70,63,
  6.                                                                         70,47,53,70,70,35,42,53,56,
  7.                                                                                 63,39,39,42,53,47,53,-1};    //音譜表
  8. unsigned int code yl[]={225,75,300,300,300,600,225,75,300,300,300,600,225,75,
  9.                                                                 300,300,300,300,300,475,75,300,300,300,600,-1};   //每個音對應(yīng)的演奏長度
  10. void ys(unsigned int x)
  11. {
  12.         while(x--);
  13. }
  14. void music()
  15. {
  16.         unsigned int m=0,n,s;
  17.         led_8=0xff;
  18.         while(yp[m]!=-1||yl[m]!=-1)  //沒遇到結(jié)束符-1則執(zhí)行下列音樂段
  19.         {
  20.                 for(n=0;n<yl[m];n++)
  21.                 {
  22.                         speaker=~speaker;    //揚聲器按音譜發(fā)音
  23.                         for(s=0;s<yp[m];s++);
  24.                 }
  25.         ys(10);   //每個音符的演奏長度
  26.         led_8=~led_8;    //8只LED燈閃爍
  27.         m++;    //指向下一個音符與演奏時間值
  28.         }
  29. }

  30. void main()
  31. {
  32.         while(1)
  33.         {
  34.                 music();
  35.                 ys(500);
  36.         }
  37. }
復(fù)制代碼

所有資料51hei附件下載:
task4.zip (39.74 KB, 下載次數(shù): 50)

評分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎勵!

查看全部評分

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

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

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

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

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