




已閱讀5頁,還剩2頁未讀, 繼續(xù)免費閱讀
版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進行舉報或認領(lǐng)
文檔簡介
此程序是51單片機c語言編寫的電子琴+音樂播放器,當(dāng)用杜邦線將P10管腳接地時,單片機就會放出世上只有媽媽好,將P11管腳接地時單片機就播放祝你生日快樂,兩者為高電平時進入電子鋼琴模式,利用16個矩陣鍵盤發(fā)出相應(yīng)的哆、瑞、米、發(fā)、索。此文檔的樂譜是借鑒別人的,因為本人是音樂白癡!這是我第一次發(fā)表,我希望能幫到有需要的人啦.#include #define uchar unsigned char#define uint unsigned intsbit beep=P23; /定義蜂鳴器sbit music=P10; /music為低電平播放世上只有媽媽好(工作模式為音樂播放器),music1為低電平時播放祝你生日快樂,music、music1都為高電平時(工作模式為電子鋼琴)sbit music1=P11; uchar timer0h,timer0l,time,key,flag; /flag=0時為電子鋼琴模式,flag=1時為音樂播放器 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個音階高八位頻率表 裝進定時器高八位 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個音階低八位頻率表 裝進定時器 低八位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ù),控制音樂節(jié)奏 for(t2=0;t20;i-)for(j=110;j0;j-);void keyscan() /檢測十六個發(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; /將按下的鍵對應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時器0 while(temp!=0xf0) /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時關(guān)閉定時器0,不能發(fā)聲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進入中斷取反時將它置低打開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; /將按下的鍵對應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時器0 while(temp!=0xf0) /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時關(guān)閉定時器0,不能發(fā)聲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進入中斷取反時將它置低打開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; /將按下的鍵對應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時器0 while(temp!=0xf0) /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時關(guān)閉定時器0,不能發(fā)聲beep=1;/使蜂鳴器置高關(guān)閉,預(yù)防在進入中斷取反時將它置低打開 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; /將按下的鍵對應(yīng)發(fā)出此頻率聲音的初值裝入 TL0=TL_0key; TR0=1; /打開定時器0 while(temp!=0xf0) /一直按下就一直發(fā)聲 temp=P3;temp=temp&0xf0;TR0=0; /松手時關(guān)閉定時器0,不能發(fā)聲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進入中斷取反時將它置低打開 void main() uchar k,i; TMOD=1; EA=1; ET0=1;while(1) if(music&music1) /當(dāng)兩個都為高電平時沒有放音樂,掃描鍵盤 flag=0;keyscan();if(!music) /當(dāng)P10管腳為低電平時,播放世上只有媽媽好 flag=1; i=0; while(i100) /音樂數(shù)組長度 ,唱完從頭再來 if(music) /在播放音樂時P10為高電平時退出播放此歌曲beep=1; /使蜂鳴器置高關(guān)閉,預(yù)防在進入中斷取反時將它置低打開break; k=yuepui+7*yuepui+1-1; timer0h=TH_0k; / 把對應(yīng)的音樂頻率放進定時器0 timer0l=TL_0k; time=yuepui+2; /音樂節(jié)拍 i+=3; song(); if(!music1) /music為低電平時,播放祝你生日快樂 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等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- HY/T 0460.3-2024海岸帶生態(tài)系統(tǒng)現(xiàn)狀調(diào)查與評估技術(shù)導(dǎo)則第3部分:紅樹林
- 2025年藝術(shù)創(chuàng)作與理論評價考試題及答案
- x射線考試題及答案
- 武漢合唱團面試題及答案
- 網(wǎng)絡(luò)工程師成功案例試題及答案
- 西方政治中的社會責(zé)任探討試題及答案
- 機電工程2025年創(chuàng)新思維試題及答案
- 軟件設(shè)計師考試心理素質(zhì)提升方法及試題與答案
- 教育公平實證研究與政策建議試題及答案
- 反腐敗斗爭的政治環(huán)境與動力分析試題及答案
- 國能集團工會工作報告
- 河南大河網(wǎng)數(shù)字科技有限公司招聘筆試題庫2025
- 補繳社保員工協(xié)議書
- 水電項目實施中的環(huán)境保護措施試題及答案
- 2025標(biāo)準勞動合同范本及模板
- 2025屆廣東省佛山市順德區(qū)龍江鎮(zhèn)八下物理期末統(tǒng)考試題含解析
- 自動化辦公試題及答案
- GB 7718-2025食品安全國家標(biāo)準預(yù)包裝食品標(biāo)簽通則
- 2025中考語文??甲魑难侯}(10大主題+10篇范文)
- 安全工程安全系統(tǒng)工程課程設(shè)計
- 機械設(shè)計外文文獻翻譯、中英文翻譯、外文翻譯
評論
0/150
提交評論