版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
1、此程序是51單片機(jī)c語言編寫的電子琴+音樂播放器,當(dāng)用杜邦線將P10管腳接地時(shí),單片機(jī)就會(huì)放出世上只有媽媽好,將P11管腳接地時(shí)單片機(jī)就播放祝你生日快樂,兩者為高電平時(shí)進(jìn)入電子鋼琴模式,利用16個(gè)矩陣鍵盤發(fā)出相應(yīng)的哆、瑞、米、發(fā)、索。此文檔的樂譜是借鑒別人的,因?yàn)楸救耸且魳钒装V!這是我第一次發(fā)表,我希望能幫到有需要的人啦.#include <reg52.h>#define uchar unsigned char#define uint unsigned intsbit beep=P23; /定義蜂鳴器sbit music=P10; /music為低電平播放世上只有媽媽好(工作模式為
2、音樂播放器),music1為低電平時(shí)播放祝你生日快樂,music、music1都為高電平時(shí)(工作模式為電子鋼琴)sbit music1=P11; uchar timer0h,timer0l,time,key,flag; /flag=0時(shí)為電子鋼琴模式,flag=1時(shí)為音樂播放器 uchar code yuepu= 6,2,3,5,2,1, 3,2,2, 5,2,2, 1,3,2, 6,2,1, 5,2,1, 6,2,4, 3,2,2, 5,2,1, 6,2,1, 5,2,2, 3,2,2, 1,2,1, 6,1,1, 5,2,1, 3,2,1, 2,2,4, 2,2,3, 3,2,1, 5,2
3、,2, 5,2,1, 6,2,1, 3,2,2, 2,2,2, 1,2,4, 5,2,3, 3,2,1, 2,2,1, 1,2,1, 6,1,1, 1,2,1, 5,1,6, 0,0,0 ; /世上只有媽媽好樂譜 uchar code yuepu1=5,1,1, 5,1,1, 6,1,2, 5,1,2, 1,2,2, 7,1,4, 5,1,1, 5,1,1, 6,1,2, 5,1,2, 2,2,2, 1,2,4, 5,1,1, 5,1,1, 5,2,2, 3,2,2, 1,2,2, 7,1,2, 6,1,2, 4,2,1, 4,2,1, 3,2,2, 1,2,2, 2,2,2, 1,2,4;/
4、祝你生日快樂樂譜 uchar code TH_0= 0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8, 0xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC, 0xFC,0xFD,0xFD,0xFD,0xFD,0xFE, / 28個(gè)音階高八位頻率表 裝進(jìn)定時(shí)器高八位 0xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF, ; uchar code TL_0=0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,0x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F, / 28個(gè)音階低八位頻率表
5、 裝進(jìn)定時(shí)器 低八位0xEE,0x44, 0x6B,0xB4,0xF4,0x2D, 0x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16,; void delay(uchar t) uchar t1; unsigned long t2; for(t1=0;t1<t;t1+) /延時(shí)半拍函數(shù),控制音樂節(jié)奏 for(t2=0;t2<8000;t2+) ; void song() TH0=timer0h; TL0=timer0l; / 唱歌程序 TR0=1; delay(time); /延時(shí),讓此音節(jié)播放的長短 TR0=0; /關(guān)定時(shí)器,為下個(gè)音節(jié)響做準(zhǔn)備 void de
6、layms(uint x)uint i,j;/去抖延時(shí)for(i=x;i>0;i-)for(j=110;j>0;j-);void keyscan() /檢測(cè)十六個(gè)發(fā)出音樂按鍵函數(shù)uchar temp;P3=0xfe;temp=P3;temp=0xf0&temp;if(temp!=0x0f) delayms(10); /檢測(cè)第一行按鍵temp=P3;temp=temp&0xf0;if(temp!=0xf0)temp=P3;switch(temp)case 0xee: key=0;break;case 0xde: key=1;break;case 0xbe: key=2
7、;break;case 0x7e: key=3;break; TH0=TH_0key; /將按下的鍵對(duì)應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時(shí)器0 while(temp!=0xf0) /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時(shí)關(guān)閉定時(shí)器0,不能發(fā)聲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進(jìn)入中斷取反時(shí)將它置低打開P3=0xfd;temp=P3;temp=0xf0&temp;if(temp!=0x0f)/檢測(cè)第二行按鍵 delayms(10);temp=P3;temp=temp&0xf
8、0;if(temp!=0xf0)temp=P3;switch(temp)case 0xed: key=4;break;case 0xdd: key=5;break;case 0xbd: key=6;break;case 0x7d: key=7;break; TH0=TH_0key; /將按下的鍵對(duì)應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時(shí)器0 while(temp!=0xf0) /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時(shí)關(guān)閉定時(shí)器0,不能發(fā)聲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進(jìn)入中斷取反時(shí)將它置
9、低打開P3=0xfb;temp=P3;temp=0xf0&temp;if(temp!=0x0f) delayms(10);temp=P3;temp=temp&0xf0;if(temp!=0xf0)temp=P3;switch(temp)case 0xeb: key=8;break;case 0xdb: key=9;break;case 0xbb: key=10;break;case 0x7b: key=11;break; TH0=TH_0key; /將按下的鍵對(duì)應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時(shí)器0 while(temp!=0xf0)
10、 /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時(shí)關(guān)閉定時(shí)器0,不能發(fā)聲beep=1;/使蜂鳴器置高關(guān)閉,預(yù)防在進(jìn)入中斷取反時(shí)將它置低打開 P3=0xf7;temp=P3;temp=0xf0&temp;if(temp!=0x0f) delayms(10);temp=P3;temp=temp&0xf0;if(temp!=0xf0)temp=P3;switch(temp)case 0xe7: key=12;break;case 0xd7: key=13;break;case 0xb7: key=14;break;case 0x77:
11、 key=15;break; TH0=TH_0key; /將按下的鍵對(duì)應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時(shí)器0 while(temp!=0xf0) /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時(shí)關(guān)閉定時(shí)器0,不能發(fā)聲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進(jìn)入中斷取反時(shí)將它置低打開 void main() uchar k,i; TMOD=1; EA=1; ET0=1;while(1) if(music&&music1) /當(dāng)兩個(gè)都為高電平時(shí)沒有放音樂,掃描鍵盤 flag=0;keys
12、can();if(!music) /當(dāng)P10管腳為低電平時(shí),播放世上只有媽媽好 flag=1; i=0; while(i<100) /音樂數(shù)組長度 ,唱完從頭再來 if(music) /在播放音樂時(shí)P10為高電平時(shí)退出播放此歌曲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進(jìn)入中斷取反時(shí)將它置低打開break; k=yuepui+7*yuepui+1-1; timer0h=TH_0k; / 把對(duì)應(yīng)的音樂頻率放進(jìn)定時(shí)器0 timer0l=TL_0k; time=yuepui+2; /音樂節(jié)拍 i+=3; song(); if(!music1) /music為低電平時(shí),播放祝你生日快樂 flag=1; i=0; while(i<75) /樂譜的長度 if(music1) beep=1;break; k=yuepu1i+7*yuepu1i+1-1; timer0h=TH
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 工業(yè)活動(dòng)融資行業(yè)營銷策略方案
- 掃描探針顯微鏡產(chǎn)業(yè)鏈招商引資的調(diào)研報(bào)告
- 去中心化身份認(rèn)證服務(wù)行業(yè)市場調(diào)研分析報(bào)告
- 園藝學(xué)行業(yè)營銷策略方案
- 家用空間降溫裝置出租行業(yè)營銷策略方案
- 裝釣魚假餌用盒市場發(fā)展前景分析及供需格局研究預(yù)測(cè)報(bào)告
- 離心壓縮機(jī)產(chǎn)品供應(yīng)鏈分析
- 機(jī)械式起重葫蘆產(chǎn)品供應(yīng)鏈分析
- 動(dòng)物清潔行業(yè)經(jīng)營分析報(bào)告
- 美容霜市場分析及投資價(jià)值研究報(bào)告
- 霧化吸入療法的用藥指南2024課件
- 人音版六年級(jí)上冊(cè)全冊(cè)音樂教案(新教材)
- 地 理期中測(cè)試卷(一) 2024-2025學(xué)年地理湘教版七年級(jí)上冊(cè)
- 2024年山東濟(jì)南軌道交通集團(tuán)限公司招聘95人歷年高頻難、易錯(cuò)點(diǎn)500題模擬試題附帶答案詳解
- 華為財(cái)務(wù)管理(6版)-華為經(jīng)營管理叢書
- 常用鋼制管件彎頭三通異徑管管帽理論重量體積表
- 高爐礦渣粉的生產(chǎn)、成本及其應(yīng)用
- 城建檔案館資料歸檔目錄
- 酒店流水單模版
- 開盤八法概述
- 佛山佛羅倫薩小鎮(zhèn)市調(diào)報(bào)告課堂PPT
評(píng)論
0/150
提交評(píng)論