AT89C51 生日快樂!(^O^)y歌曲程序，仿真供學習制作
51hei.gif (224.49 KB, 下載次數: 70)
下載附件
2021-7-3 18:15 上傳
單片機源程序如下:
- /*******************************************/
- /* 音樂：生日快樂 */
- /* 設計：OYT郭 */
- /* 日期：2021夏天 */
- /*******************************************/
- #include <REG51.H>
- #define uchar unsigned char
- sbit beepIO=P3^3;
- uchar m,n;
- uchar code T[49][2]={{0,0},
- {0xF8,0x8B},{0xF8,0xF2},{0xF9,0x5B},{0xF9,0xB7},{0xFA,0x14},{0xFA,0x66},{0xFA,0xB9},{0xFB,0x03},{0xFB,0x4A},{0xFB,0x8F},{0xFB,0xCF},{0xFC,0x0B},
- {0xFC,0x43},{0xFC,0x78},{0xFC,0xAB},{0xFC,0xDB},{0xFD,0x08},{0xFD,0x33},{0xFD,0x5B},{0xFD,0x81},{0xFD,0xA5},{0xFD,0xC7},{0xFD,0xE7},{0xFE,0x05},
- {0xFE,0x21},{0xFE,0x3C},{0xFE,0x55},{0xFE,0x6D},{0xFE,0x84},{0xFE,0x99},{0xFE,0xAD},{0xFE,0xC0},{0xFE,0x02},{0xFE,0xE3},{0xFE,0xF3},{0xFF,0x02},
- {0xFF,0x10},{0xFF,0x1D},{0xFF,0x2A},{0xFF,0x36},{0xFF,0x42},{0xFF,0x4C},{0xFF,0x56},{0xFF,0x60},{0xFF,0x69},{0xFF,0x71},{0xFF,0x79},{0xFF,0x81}
- };
- uchar code music[][2]={{0,4},
- {17,6},{17,2},{19,8},{17,8},{22,8},{21,16},
- {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},
- {0xFF,0xFF}};
- void delay(uchar p)
- {
- uchar i,j;
- for(;p>0;p--)
- for(i=181;i>0;i--)
- for(j=181;j>0;j--);
- }
- void pause()
- {
- uchar i,j;
- for(i=150;i>0;i--)
- for(j=150;j>0;j--);
- }
- void T0_int() interrupt 1
- {
- beepIO=!beepIO;
- TH0=T[m][0]; TL0=T[m][1];
- }
- void main()
- {
- uchar i=0;
- TMOD=0x01; EA=1; ET0=1;
- while(1)
- {
- m=music[i][0];n=music[i][1];
- if(m==0x00)
- {TR0=0;delay(n);i++;}
- else if(m==0xFF)
- {TR0=0;delay(30);i=0;}
- else if(m==music[i+1][0])
- {TR0=1;delay(n);TR0=0;pause();i++;}
- else
- {TR0=1;delay(n);i++;}
- }
- }
以上程序和hex51hei提供下載:
AT89 生日快樂音樂.rar
(982.33 KB, 下載次數: 6)
2021-7-2 17:00 上傳
點擊文件名下載附件
下載積分: 黑幣 -5
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
