版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、單片機(jī)音樂播放C語言程序#include;#defineucharunsignedchar#defineuintunsingedintsbitspeaker=P1A7;uchart0h,t0l,time;/單片機(jī)晶振采用11.0592MHz/頻率-半周期數(shù)據(jù)表高八位本軟件共保存了四個(gè)八度的28個(gè)頻率數(shù)據(jù)ucharcodeFREQH=0x01,/0的時(shí)候沒有音符0xF2,0xF3,0xF5,0xF5,0xF6,0xF7,0xF8,/低音12345670xF9,0xF9,0xFA,0xFA,0xFB,0xFB,0xFC,0xFC,/1,2,3,4,5,6,7,i0xFC,0xFD,0xFD,0xF
2、D,0xFD,0xFE,/高音2345670xFE,0xFE,0xFE,0xFE,0xFE,0xFE,0xFF;/超高音1234567/頻率-半周期數(shù)據(jù)表低八位ucharcodeFREQL=0x01,/0的時(shí)候沒有音符0x42,0xC1,0x17,0xB6,0xD0,0xD1,0xB6,/低音12345670x21,0xE1,0x8C,0xD8,0x68,0xE9,0x5B,0x8F,/1,2,3,4,5,6,7,i0xEE,0x44,0x6B,0xB4,0xF4,0x2D,/高音2345670x47,0x77,0xA2,0xB6,0xDA,0xFA,0x16;/超高音1234567/一個(gè)音符
3、有三個(gè)數(shù)字.前為第幾個(gè)音、中為第幾個(gè)八度、后為時(shí)長(zhǎng)以1/4拍為單位/6,2,6分別代表:6/5,2,2分別代表:5/3,2,4分別代表:3/5,2,4分別代表:5/1,3,4分別代表:1/低音為1,中音為2,中音,6個(gè)1/4拍;,中音,2個(gè)1/4拍;,中音,4個(gè)1/4拍;,中音,4個(gè)1/4拍;,高音,4個(gè)1/4拍;高音為3,超高音為4;/*世上只有媽媽好*ucharcodesszymmh=6,2,6,5,2,2,3,2,4,5,2,4,1,3,4,6,2,2,5,2,2,6,2,8,3,2,4,5,2,2,6,2,2,5,2,4,3,2,4,1,2,2,6,1,2,5,2,2,3,2,2,2,
4、2,8,2,2,6,3,2,2,5,2,4,5,2,2,6,2,2,3,2,4,2,2,4,1,2,8,5,2,6,3,2,2,2,2,2,1,2,2,6,1,2,1,2,2,5,1,16,0,0,0;兩只耗子/*ucharcodeTwoMouse口=3,2,2,6,2,2,7,2,2,5,2,2,3,2,2,6,2,2,7,2,2,5,2,2,7,2,2,1,3,2,2,3,4,7,2,2,1,3,2,2,3,4,2,3,1,3,3,1,2,3,1,1,3,1,7,2,2,5,2,2,2,3,1,3,3,1,2,3,1,1,3,1,7,2,2,5,2,2,6,2,2,2,2,2,5,2,4,
5、6,2,2,2,2,2,5,2,4,0,0,0;*兩只蝴蝶*ucharcodeTwoButterfly=3,2,2,2,2,2,3,2,6,3,2,2,3,2,2,2,2,2,1,2,6,6,1,2,1,2,2,2,2,4,2,2,2,3,2,2,2,2,2,1,2,2,6,1,2,1,2,2,5,1,12,3,2,2,2,2,2,3,2,8,3,2,2,2,2,2,3,2,2,3,2,2,1,2,12,6,1,2,1,2,2,2,2,4,2,2,2,3,2,2,2,2,2,1,2,2,6,1,2,1,2,2,2,2,12,3,2,2,2,2,2,3,2,8,3,2,2,2,2,2,3,2,2
6、,2,2,2,1,2,12,6,1,2,1,2,2,2,2,4,2,2,2,3,2,2,2,2,2,1,2,2,6,1,2,1,2,2,5,2,12,3,2,2,5,2,2,5,2,8,5,2,2,5,2,2,6,2,2,5,2,2,3,2,12,2,2,2,3,2,2,2,2,4,2,2,2,3,2,2,2,2,2,1,2,2,6,1,2,6,1,1,1,2,1,1,2,1,1,2,1,1,2,12,0,0,4,5,2,2,5,2,2,6,2,2,1,3,2,7,2,2,7,2,2,6,2,2,3,2,2,2,2,2,2,2,2,3,2,2,3,2,8,3,2,2,3,2,2,5,2,2,6
7、,2,4,6,2,6,6,1,2,3,2,2,2,2,2,2,2,12,3,2,2,5,2,2,5,2,2,3,2,2,5,2,4,1,3,4,7,2,2,6,2,2,7,2,2,3,2,4,6,2,2,6,2,2,7,2,2,6,2,2,5,2,2,3,2,2,2,2,4,3,2,2,2,2,2,3,2,2,5,2,6,5,2,2,5,2,2,6,2,2,6,2,2,5,2,2,3,2,2,2,2,4,5,1,2,5,1,2,6,1,2,1,2,12,0,0,0);/*happybirthday*/ucharcodeBirthday口=5,1,2,5,1,2,6,1,4,5,1,4,1,2,
8、4,7,1,8,5,1,2,5,1,2,6,1,4,5,1,4,2,2,4,1,2,8,5,1,2,5,1,2,5,2,4,3,2,4,1,2,4,7,1,4,6,1,4,4,2,2,4,2,2,3,2,4,1,2,4,2,2,4,1,2,4,0,0,0);/voidt0int()interrupt1/T0中斷程序,限制發(fā)音的音調(diào)TR0=0;/先關(guān)閉T0speaker=-speaker;/輸由方波,發(fā)音TH0=t0h;/下次的中斷時(shí)間,這個(gè)時(shí)間,限制音調(diào)上下TL0=t0l;TR0=1;/啟動(dòng)T0)/voiddelay(uchart)/延時(shí)程序,限制發(fā)音的時(shí)間長(zhǎng)度120ms(1/4拍)uchar
9、a,b,c;while(t-)/四重循環(huán),共延時(shí)t個(gè)1/4拍for(c=193;c>0;c-)for(b=114;b>0;b-)for(a=1;a>0;a-);)/延時(shí)期間,可進(jìn)入T0中斷去發(fā)音TR0=0;/關(guān)閉T0,停止發(fā)音)/voidsingachar()/演奏一個(gè)音符TR0=0;TH0=t0h;/TL0=t0l;TR0=1;/delay(time);/)限制音調(diào)啟動(dòng)T0,由T0輸由方波去發(fā)音限制時(shí)間長(zhǎng)度即節(jié)拍*演奏一首歌*/voidsong(uchar*str)(uchark,i;i=0;time=1;while(time)(k=stri+7*(strii+1個(gè)是第幾個(gè)八度t0h=FREQHk;/t0l=FREQLk;/time=stri+2;/+1);/第i個(gè)是音符,第從數(shù)據(jù)表中讀生頻率數(shù)值實(shí)際上,是定時(shí)的時(shí)間長(zhǎng)度讀生時(shí)間長(zhǎng)度數(shù)值節(jié)拍時(shí)/i+=3;singachar();)voidmain(void)(TMOD=0x01;/置T0定時(shí)工作方式1ET0=1;/開T0中斷EA=1;/開CPU中斷while(1)(song(TwoMouse);delay(20);song(sszymmh);delay(20);/song(TwoButterfly);song(Birthday);delay(20);)/發(fā)生一個(gè)
溫馨提示
- 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ì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 賓館裝修施工合同
- 校園信息化招投標(biāo)合同方案
- 農(nóng)業(yè)小區(qū)施工協(xié)議
- 供水管道環(huán)保改造協(xié)議
- 鄰里共同投資建房協(xié)議
- 商貿(mào)城隔斷施工協(xié)議
- 建筑電梯公司墻面裝修合同協(xié)議
- 智慧城市招投標(biāo)廉政合同范本
- ??谑须娚唐髽I(yè)租賃合同
- 城市醫(yī)療單位聘用協(xié)議模板
- 新公共服務(wù)視角下的政府職能轉(zhuǎn)變問題研究共3篇
- 全部財(cái)產(chǎn)給獨(dú)生子女遺囑范文(優(yōu)選3篇)
- 新疆烏魯木齊2022學(xué)年高二上學(xué)期期中考試 英語
- (完整版)安全管理體系
- 2023年湖南有色金屬職業(yè)技術(shù)學(xué)院?jiǎn)握锌荚嚶殬I(yè)技能考試模擬試題及答案解析
- 中班健康《魔幻消氣屋》有聲動(dòng)態(tài)課件
- 基于蘭州市局部路網(wǎng)數(shù)據(jù)的非平衡交通分配模型分析
- RB/T 115-2014能源管理體系石油化工企業(yè)認(rèn)證要求
- 夏商周考古課件 第1章 緒論
- GB/T 29602-2013固體飲料
- 國(guó)家開放大學(xué)電子政務(wù)概論形成性考核冊(cè)參考答案
評(píng)論
0/150
提交評(píng)論