




已閱讀5頁,還剩2頁未讀, 繼續(xù)免費(fèi)閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
此程序是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 #define uchar unsigned char#define uint unsigned intsbit beep=P23; /定義蜂鳴器sbit music=P10; /music為低電平播放世上只有媽媽好(工作模式為音樂播放器),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,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;/祝你生日快樂樂譜 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è)音階低八位頻率表 裝進(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;t1t;t1+) /延時(shí)半拍函數(shù),控制音樂節(jié)奏 for(t2=0;t20;i-)for(j=110;j0;j-);void keyscan() /檢測十六個(gè)發(fā)出音樂按鍵函數(shù)uchar temp;P3=0xfe;temp=P3;temp=0xf0&temp;if(temp!=0x0f) delayms(10); /檢測第一行按鍵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;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)/檢測第二行按鍵 delayms(10);temp=P3;temp=temp&0xf0;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í)將它置低打開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) /一直按下就一直發(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: 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;keyscan();if(!music) /當(dāng)P10管腳為低電平時(shí),播放世上只有媽媽好 flag=1; i=0; while(i100) /音樂數(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(i75) /樂譜的長度 if(music1) beep=1;break; k=yuepu1i+7*yuepu1i+1-1; timer0h=TH_0k; timer0l=
溫馨提示
- 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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- DB50-T 1799-2025 鄉(xiāng)村振興勞務(wù)品牌人員評(píng)價(jià)管理規(guī)范
- 房產(chǎn)買賣合同
- 房屋出租定金協(xié)議書
- 基本消防安全知識(shí)培訓(xùn)課件
- 人民幣匯率波動(dòng)下的大類資產(chǎn)配置優(yōu)化與結(jié)構(gòu)重塑研究
- 八年級(jí)數(shù)學(xué)實(shí)數(shù)運(yùn)算單元試卷及答案
- “掌握學(xué)習(xí)”教學(xué)模式在高校體育教育專業(yè)短跑教學(xué)中的應(yīng)用與成效探究
- CT灌注成像:腎癌診斷與鑒別診斷的精準(zhǔn)影像學(xué)探索
- 基坑防護(hù)課件
- 新解讀《GB-T 39687-2020精細(xì)陶瓷粉體干燥損失測試方法》
- 南京求真中學(xué)英語新初一分班試卷含答案
- 乳制品配送服務(wù)應(yīng)急處理方案
- 讀書分享(《給教師的建議》)課件
- pur熱熔膠生產(chǎn)工藝
- F450裝機(jī)教程課件
- 中藥煎煮與服用方法指導(dǎo)
- 眼科青光眼一病一品優(yōu)質(zhì)護(hù)理匯報(bào)課件
- 高三化學(xué)一輪專題復(fù)習(xí)大概念引領(lǐng)下的高中化學(xué)單元復(fù)習(xí)教學(xué)設(shè)計(jì)與實(shí)施以“水”為例進(jìn)行“微粒間的相互作用聚集狀態(tài)”模塊復(fù)習(xí)
- 公章證照使用登記表
- 矩陣的概念與矩陣運(yùn)算
- 健康飲食 科學(xué)防癌
評(píng)論
0/150
提交評(píng)論