AT89S51單片機(jī)試驗(yàn)及實(shí)踐教程之電子琴._第1頁
AT89S51單片機(jī)試驗(yàn)及實(shí)踐教程之電子琴._第2頁
免費(fèi)預(yù)覽已結(jié)束，剩余25頁可下載查看

下載本文檔

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、AT89S51 也片機(jī)試驗(yàn)及實(shí)踐教秤 Z 電了琴1.實(shí)驗(yàn)任務(wù)1.山 4X4 組成 16 個按鈕地陣.設(shè)計(jì)成 16 個音.2.對助惡彈公想耍衣達(dá)的咅你.2.電路原理圖&SSrrrKwrr 氏iKwrfK3K w i9 si w& SJcwcft2r& SAftCWW&KTB22U-3.系統(tǒng)板硬件連線1把沖片機(jī)系統(tǒng)快域中的 P1.0 端口用亍線連接列*7 詡!放人模塊快域中 的 SPKIN 竭口上；2.把單片機(jī)系統(tǒng)衣域中的 P3.0 一 P3.7 瑞口用 8 芯排線連接到 4X4 行列式鍵盤嘔域中的 C1 - C4 R1 - R4 端 III:：4相關(guān)程序內(nèi)容2.斤

2、樂產(chǎn)牛的方法:一阡疔樂是許姜不同的音階組成的.而毎個音階対應(yīng)著不同的頻率.這樣我 們就可以利用不同的頻率的組合.即町構(gòu)成我們所患要的昌你 J 十然對單片 機(jī)來產(chǎn)生不同的頻率 II常方便.我們可以利川唯片機(jī)的定時/計(jì)數(shù)器 T0來產(chǎn)| 生這樣方波頻率信號，因此.我們只耍把 MR 曲的音階對應(yīng)頻率關(guān)系弄】E 確即 可.現(xiàn)在以單片機(jī)12MHZ 鬲掾?yàn)槔?例出髙中低音符與單片機(jī)計(jì)數(shù) T0 相關(guān) 的計(jì)數(shù)值如卜衣所示卜腳我們要為這個音符建工一個農(nóng)格.右助 J-單片機(jī)通過仕農(nóng)的方式來認(rèn)時相應(yīng)1.4X4 行列式鍵#1 D低 2RE294#2RE#311 低3Mp30（if 4FA349 5SO#pl15 低6

3、LA440低 7 SI殛$4103641856426064331# 4 FA#頓率（HZ |簡譜碼（T 恤）6486064898# 5 SO# 帀 6 LA#6P 7 SI Wl 1DO523# 1DO#554# JRE#622帀1旃飛 麗予TA6981DO #TDO# A2 RE #2 RE#為 3 M喬 4FA# 4FA#104665058110965085TT755TiO64684647324777高 5 SO #5 SO#TLA#6高 7 SI1568652 仃166165235176065252低 1（HZ簡iT值）6383563928740164934496864994|6563的

4、數(shù)據(jù)低音 0 19 之何.中音在 20 - 39 之間.爲(wèi)哥在 40 - 59 之何TABLE: DW 0,63628,63835,64021,64103,64260.64400,64524,0.0DW 0,63731,63928,0,64185,64331,64463.0,0,0DW 0,64580,64684.64777.64820,64898,64968,65030.0,0DW 0,64633,64732,0,64860,64934,64994.0,0,0DW 0,65058,65110.65157,65178.65217,65252,65283,0,0DW 0,65085,65134,

5、0,65198,65235,65268.0,0,0DW 02、音樂的音個 run 為單位（c 調(diào)）曲調(diào)值DELAY曲調(diào) ftlDELAY調(diào) 4/4125ms訓(xùn) 4/462ms調(diào) 3/4187ms調(diào) 3/494ms調(diào) 2/4250ms調(diào) 2/4125ms對于不同的曲調(diào)我們也可以用單片機(jī)的刃外個足時/計(jì)數(shù)器來完成.F 面就用 AT89S51 單片機(jī)產(chǎn)生一片生日快樂歐曲來說明單片機(jī)如何產(chǎn)生的.莊這個程序中用到了兩個定時/計(jì)數(shù)器來完成的兀中 T0 用來產(chǎn)生音符頻率T1 用來產(chǎn)生音拍.5.程序框圖6.匯編源程序KEYBUF EQU 30HSTHO EQU 31HSTLO EQU 32HTEMP EQU

6、33HORG OOHLJMP STARTORG OBHLJMP INT_T0START: MOV TMOD.#01HSETB ETOSETB EAWAIT:MOV P3,#0FFHCLR P3.4MOV A,P3ANL A.#OFHXRL A.#0FHJZ NOKEY1LCALL DELY10MSMOV A,P3ANL A.#OFHXRL A.#0FHJZ NOKEY1MOV A,P3ANL A.#0FHCJNE A.#0EH.NK1MOV STHO.AMOV TH0.AINC TEMPMOV A,TEMPMOVC AA*DPTRMOV STLO.AMOV TLO.ASETB TRODK1A:

7、 MOV A.P3ANL A,#OFHXRL A.#0FHJNZ DK1ALR TRONOKEY1:MOV P3,#OFFHCLR P3.5MOV A,P3ANL A.#OFHXRL A.#0FHJZ NOKEY2LCALL DELY10MSMOV A,P3ANL A.#OFH|MOV B.#2MUL ABMOV TEMP.AMOV DPTR,#TABLE1MOVC AADPTRMOV STH0,AMOV THO.AINC TEMPMOV A.TEMPMOVC A.A+DPTRMOV STLO.AMOV TLO.ASETB TRODK2A: MOV A,P3ANL A,#OFHXRL A,#0

8、FHJNZ DK2ACLR TRONOKEY2:MOV P3,#0FFHCLR P3.6MOV A,P3ANL A.#OFHXRL A,#OFHJZ N0KEY3LCALL DELY10MSMOV A,P3ANL A,#0FHXRL A.#0FHJZ NOKEY3MOV A,P3ANL A.#0FHCJNE A.#0EH.NK9MOV KEYBUF,#8LJMP DK3NK9: CJNE A.#0DH,NK10MOV KEYBUF,#9LJMP DK3NK10: CJNE A,#0BH,NK11MOV KEYBUF,#10LJMP DK3NK11: CJNE A,#07H,NK12MOV KE

9、YBUF,#11LJMP DK3NK12: NOPDK3:IMOV A.KEYBUFMOV DPTR,#TABLEMOVC A.A+DPTRMOV P0,AMOV A,KEYBUFMOV B,#2MUL ABMOV TEMP.AMOV DPTR.#TABLE1MOVC A.A+DPTRMOV STH0,AMOV THO.AINC TEMPMOV A,TEMPMOVC A.A+DPTRMOV STLO.AMOV TLO.ASETB TRODK3A: MOV A.P3ANL A,#0FHXRL A.#0FHJNZ DK3ACLR TRON0KEY3:MOV P3,#0FFHCLR P3.7MOV

10、A.P3ANL A.#0FHXRL A.#0FHJZ NOKEY4LCALL DELY10MSMOV A.P3ANL A,#0FHXRL A.#0FHJZ NOKEY4MOV A,P3ANL A.#0FHCJNE A,#0EH,NK13V KEYBUF,#12IP DK4I3: CJNE A,#0DH,NK14MOV KEYBUF,#13LJMP DK4NK14: CJNE A,#0BH,NK15MOV KEYBUF,#14LJMP DK4EDK4A: MOV A,P3ANL A,#0FHXRL A.#0FHJNZ DK4ALR TRONOKEY4:LJMP WAITDELY10MS:MOV

11、R6,#10D1: MOV R7,#248DJNZ R7,$DJNZ R6,D1RETINT TO:MOV THO.STHOMOV TLO,STLOCPL P1.0RETITABLE: DB 3FH,06H,5BH,4FH.66H,6DH,7DH,07HDB 7FH.6FH,77H,7CH,39H,5EH,79H.71 HTABLE1: DW 64021,64103.64260.64400DW 64524,64580.64684,64777DW 64820,64898,64968,65030DW 65058,65110,65157,65178END7. C 語言源程序include nsign

12、ed char code table=0 x3f,0 x06,0 x5b,0 x41,x66,0 x6d,0 x7d,0 x07,x7f,0 x6f,0 x77.0 x7c,0 x39,0 x5e,0 x79,0 x71;unsigned char temp;unsigned char key;unsigned char i,j;nsigned char STHO;nsigned char STLO;nsigned int codetab=64021,64103.64260.64400,64524,64580,64684,64777,64820,64898.6496&65030,650

13、58,65110,65157.65178;void main(void)TMOD=0 x01;ET0=1;EA=1;whileP3=0 xff;EEP3_4=0;temp=P3;temp=temp & OxOf;if (temp!=0 x0f)(for(i=50;i0;i-)仙(j=200;j0:j-);temp=P3;temp=temp & OxOf;if (temp!0 x0f)(tempP3;temp二temp & OxOf：switch(temp)case OxOe: key=0; break;case OxOb:temp-P3;P1 O-P1 0;PO=tab

14、lekey;STH0=tabkey/256:STL0=tabkey|%256;TR0=1;temp=temp & OxOf;while(temp!=0 x0f)lemp=P3; temp=temp & OxOf;)TR0=0;)P3M;P3_5=0;temp=P3;temp=temp & OxOf;if (temp!0 x0f)I1or(i=50;i0;i)forG=200;j0j-);1emp=P3;temp.temp & OxOf;if (temp?=0 x0f)temp=P3;temp=temp & OxOf;switch(temp)OxOe:4；

15、k;case OxOd:畑 y=5;break;case OxOb:break; case 0 x07:Etemp=P3;P1 0=-P1 0:P0-tablekey;STH0=tabkey/256: STL0=tabkey%256: TRO;temp=temp & OxOf; while(temp!=0 x0f) temp=P3;temp=temp & OxOf;TR0=0;)P3=0 xff;P3_6=0;1emp=P3;1emp=temp & OxOf; if (lemp!=0 x0f) fior(i=50;i0;i-) 仙卜 200;j0；H；emp=P3; e

16、mp=temp & OxOf; if (temp?0 x0f)temp=P3;temp=temp & OxOf：switch(temp)case OxOe:case OxOd:case 0 x07:ey.11;reak;temp=P3;P1 0=-P1 0;P0=tablekey;STH0=tab(key)/256;STL0=tabkey)%256;TR0=1;1emp=temp & OxOf;while(temp!=0 x0f)(temp=P3;temp=temp & OxOf;TR0=0;E)P3=0 xff;P3_7=0;temp=P3;1emp=temp & OxOf：if (temp!=0 x0f)for(i=50：i0;i)1or(j=200;j0;j-); temp=P3; temp=temp & OxOf; if(temp!=0 x0f)1emp=P3; temp-temp & OxOf; switch(temp)cas

溫馨提示

  • 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)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論