《友谊地久天长》乐曲演奏电路设计.docx

《《友谊地久天长》乐曲演奏电路设计.docx》由会员分享，可在线阅读，更多相关《《友谊地久天长》乐曲演奏电路设计.docx（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、友情地久天长乐曲演奏电路设计1 .试验任务音高与频率的对应关系见表1-1。表17音高频率比照表1234567低音262Hz294Hz330Hz349Hz392Hz440Hz494Hz中音532Hz578Hz659Hz698Hz784Hz880Hz988Hz高音1046Hz1175Hz1318Hz1397Hz1568Hz1760Hz1976Hz友情地久天长乐谱见图l-lo友情地久天长0 5 |1 1 3 | 2.1 2 3 |1 3 5 | 6. 6 | 53 3 1123 11._gs|1 6 iCZhH laZHle6. i | 53 1 | 212 3 | 1.16 5 | 1- 0 |图

2、17友情地久天长乐谱注：N 一拍；N两拍；Nj_四拍；L八拍；N为音谱。此程序使用4MHz时钟，时钟不同则需要修改常数。总体框图如图2所示。clockinst4clock q13.0Jsppakclock qa13.Ospeakinst图1-2总体框图2 .模块及模块功能模块TONE见图l-2o该模块把握每一个音的长短，送初值给SPEAK模块，从而把握音图。/ / / / / xT* *T*T* *7*7*4、*7* xj、*7* *7* 4、*T*，卜 、*7 *Tx *T* 、*J、*7*/、4、4、4、，工、，卜，卜,卜 、xT% xrx 4、4、*T*，、，卜，卜，卜卜 *7* xj、

3、*7、/ /友情地久天长乐曲时钟：4MHz/ / / vl* slz six *1* *1 1* *X* *1 / / I (*y* *|n *jx zjs zj* *v* *1* *r* *1 *f* *7* *7* *7* *7* *v* *j* *7* *(* *7* *7* *T* *1* *7* *7* *7* *7* *7* *7* *7* *7* *(* *7* *7* *1* *7* *7* *7* *1* *j* / / 音高与频率的对应关系/I|1|2|3|4|5|6|7/ 低音| 262Hz| 294Hz330Hz|349Hz| 392Hz| 440Hz494Hz|中音5

4、23Hz| 578Hz659Hz|698Hz| 784Hz| 880Hz988Hz|l 高音|1046Hz|1175Hz11318Hz1397Hz1568Hz11760Hz11976Hz|/假设时钟不同则需改参数module tone(clock,q);/I/O 口声明input clock;output13:0q;/I/O 存放器reg13:O q_r;内部存放器reg20:0 cntl;/375ms 计数器(一个节拍)endend6d42:beginq_r = M_1;if(cnt2 4d3)cnt2=cnt2 + 4,dl;elsebegincnt2 = 4d0;n = 6d43;end

5、end6d43:beginq_r = L_6;if(cnt2 4d2)cnt2 = cnt2 + 4dl;elsebegincnt2 = 4d0;n = 6d44;endend6d44:beginq_r = M_5;if(cnt2 4dl)cnt2=cnt2 + 4,dl;elsebegincnt2 = 4d0;n = 6d45; endend6d45:beginq_r = M_l;if(cnt2 4d7)cnt2 = cnt2 + 4dl;elsebegincnt2 = 4d0;n = 6d0;endenddefaults i / fl /音调产生模块时钟：4MHz/ /%A* kt*X*

6、*A*xL*/ / if /依据A的值倒计时，使信号Q反转，产生不同的音高。 module speak(clock,a,q);/I/O 口声明inputclock;input13:0 a;outputq;/I/O存放器regq_r;内部存放器regfl 3:01count;倒计数器regb;标志位assign q = q_r;always (posedge clock)beginif(b =l,b0)begincount = a;b= lbl;endelsebeginif(count =14d0)beginb= lb0;q_r = q_r；endelsebegincount = count -

7、 14dl;endendendendmodulereg3:0 cnt2;节拍计数器reg5:0 n;乐谱状态机乐谱参数公言山上表音高与频率对应关系计算得出。公式为：D=F/K其中D为参数值，F为时钟频率，K为音高频率如仲音1) parameterM_1 = 4000000/523 = 7648L_5= 1410204, L_6 = 14P9090, M=14d7648, M_2 = 14”d6920, M_3 = 14”d6069, M_5 = 14d5102, M_6 = 14P4545, HJ = 14d3824;1低音5低音6中音1中音2中音3中音5中音6高音parameter TIME

8、 = 1500000;把握每一个音(节拍)的长短(375ms)assign q = q_r;always (posedge clock)beginif(cntl TIME)把握每一个音(节拍)的长短(375ms)cntl = cntl + 21dl;elsebegincntl v=21d0;case(n)6d0:beginq_r =L_5;此值为低音5的计数初值，送给SPEAK模块if(cnt2 4d 1)两个节拍cnt2=cnt2 + 4,dl;else begin cnt2 = 4d0; n=6,dl;endend6dl:beginq_r = M_l;if(cnt2 4d6)cnt2 =

9、cnt2 + 4”dl; else begincnt2 = 4d0;n = 6d2;endend6d2:beginq_r = M_3;if(cnt2 V 4dl)cnt2 = cnt2 + 4”d 1;else begincnt2 = 4d0; n = 6d3;6d3:beginq_r = M_2;if(cnt2 4d3)cnt2 v=cnt2 + 4”dl; else begincnt2 = 4d0;n = 6d4;endend6d4:beginq_r = M_l;n = 6d5;end6d5:beginq_r = M_2;if(cnt24,dl)cnt2 = cnt2 + 4”d 1; e

10、lse begincnt2 = 4dO;n = 6d6;endend6d6:beginq_r = M_3;if(cnt2 4dl)cnt2 = cnt2 + 4”dl; else begincnt2 = 4d0;n = 6d7;endend6d7:beginq_r = M_1;if(cnt2 4d4)cnt2 = cnt2 + 4”dl; else begincnt2 = 4d0;n = 6d8;endend6”d8:beginq_r = M_3;if(cnt24,dl)cnt2 = cnt2 + 4”d 1; else beginendend6d9:beginq_r二 M_5;if(cnt2

11、 4dl)cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;nv=6dl0;endend6dl0:beginq_r = M_6;if(cnt2 4”d9)cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;n v=6dll;endend6dll:beginq_r = M_5;if(cnt2 4d3)cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;n= 6dl2;endend6dl2:beginq_r = M_3;if(cnt2 4d2)cnt2=cnt2 + 4,dl; else begincnt2 =

12、4d0;nv=6dl3;endend6dl3:beginq_r = M_l;if(cnt2 4dl)cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;n v=6dl4;6dl4:beginq_r = M_2;if(cnt2 4d3)cnt2 = cnt2 + 4”dl;elsebegincnt2 = 4d0;nv=6dl5;endend6dl5:beginq_r = M_l;n= 6dl6;end6dl6:beginq_r二 M_2;if(cnt2 4dl)cnt2 = cnt2 + 4,dl;elsebegincnt2 = 4d0;nv=6dl7;endend6

13、dl7:beginq_r = M_3;if(cnt2 4dl)cnt2 = cnt2 + 4”d 1;elsebegincnt2 = 4d0;nv=6dl8;endend6dl8:beginq_r = M_l;if(cnt2 4d3)cnt2 = cnt2 + 4”dl;elsebegincnt2 = 4d0;n= 6dl9;endend6dl9:beginq_r二 L_6;if(cnt2 4d2)cnt2 = cnt2 + 4,dl;elsebeginendend6d20:beginq_r = M_5;if(cnt2 4dl)cnt2=cnt2 + 4,dl; else begincnt2

14、= 4d0;n = 6d21;endend6d21:beginq_r = M_l;if(cnt2 4d7)cnt2 = cnt2 + 4dl; elsebegincnt2 = 4d0;n = 6d22;endend6d22:beginq_r = M_6;if(cnt2 4dl)cnt2=cnt2 + 4,dl;else begincnt2 = 4d0;n = 6d23;endend6d23:beginq_r = M_5;if(cnt2 4d3)cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;n = 6d24;endend6d24:beginq_r = M_3;i

15、f(cnt2 4d2)cnt2 = cnt2 + 4,dl;else begincnt2 = 4d0;n = 6d25;6d25:beginq_r = M_l;if(cnt24,dl)cnt2 = cnt2 + 4”dl; else begincnt2 = 4dO;n = 6d26;endend6d26:beginq_r = M_2;if(cnt2 4d3)cnt2 = cnt2 + 4”dl; else begincnt2 = 4d0;n = 6d27;endend6d27:beginq_r = M_1;n = 6d28;end6d28:beginq_r = M_2;if(cnt24,dl)

16、cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;n = 6d29;endend6d29:beginq_r = M_6;if(cnt24dl)cnt2 = cnt2 + 4”d 1;else begincnt2 = 4d0;n = 6d30;endend6d30:beginq_r = M_5;if(cnt2 4d3)cnt2 = cnt2 + 4”dl;else beginendend6d31:beginq_r = M_3;if(cnt2 4d2)cnt2=cnt2 + 4,dl; else begincnt2 = 4d0;n = 6d32;endend6d32:

17、beginq_r = M_5;if(cnt2 4dl)cnt2 = cnt2 + 4dl; elsebegincnt2 = 4d0;n = 6d33;endend6d33:beginq_r = M_6;if(cnt2 4d7)cnt2=cnt2 + 4,dl;else begincnt2 = 4d0;n = 6d34;endend6d34:beginq_r = H_l;if(cnt2 4dl)cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;n = 6d35;endend6d35:beginq_r = M_5;if(cnt2 4d3)cnt2 = cnt2 + 4

18、,dl;else begincnt2 = 4d0;n = 6d36;6d36:beginq_r = M_3;if(cnt2 4d2)cnt2 = cnt2 + 4”dl; else begincnt2 = 4dO;n = 6d37;endend6d37:beginq_r = M_l;if(cnt2 4dl)cnt2 = cnt2 + 4”dl; else begincnt2 = 4d0;n = 6d38;endend6d38:beginq_r = M_2;if(cnt2 4d3)cnt2 = cnt2 + 4”dl; elsebegincnt2 = 4d0;n = 6d39;endend6”d39:beginq_r = M_l;n = 6d40;end6”d40:beginq_r = M_2;if(cnt24,dl)cnt2 = cnt2 + 4”d 1;else begincnt2 = 4d0;n= 6d41;endend6d41:beginq_r = M_3;if(cnt2 4dl)cnt2 = cnt2 + 4”dl;else begin