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

《友情地久天长》乐曲演奏电路设计试验任务1-1。1-1音高频率比照表1234 567低音262Hz294Hz330Hz349Hz 392Hz440Hz494Hz中音532Hz578Hz659Hz698Hz 784Hz880Hz988Hz高音1046Hz1175Hz1318Hz1397Hz 1568Hz1760Hz1976Hz1-1。

友情地久天长图1-1 久天长》乐谱拍；N两拍；N·四拍；N·八拍；N为音谱。4MHz1-2speakspeaktoneclockINPUTVCCclock q[13..0]clocka[13..0]qOUTPUTspeakinstinst4模块及模块功能

图1-2 总体框图//**************************************************************//// 《友情地久天长》乐曲 //// 时钟：4MHz ////**************************************************************////音高与频率的对应关系//---------------------------------------------------------------//|//**************************************************************//// 《友情地久天长》乐曲 //// 时钟：4MHz ////**************************************************************////音高与频率的对应关系//---------------------------------------------------------------//||1046Hz|1175Hz|1318Hz|1397Hz|1568Hz|1760Hz|1976Hz|//---------------------------------------------------------------//假设时钟不同则需改参数module tone(clock,q);//I/O口声明input output[13:0]q;//I/Oreg[13:0]q_r;//内部存放器reg[20:0]cnt1; //||1|2|3|4|5|6|7|//|低音|262Hz|294Hz|330Hz|349Hz|392Hz|440Hz|494Hz|//|中音|523Hz|578Hz|659Hz|698Hz|784Hz|880Hz|988Hz|reg[3:0]cnt2; //节拍计数器reg[5:0]n; //乐谱状态机//乐谱参数//参数由上表音高与频率对应关系计算得出。//公式为：D=F/K//其中DFK//1)M_1=4000000/523=7648parameterL_5=14”d10204,//5L_6=14”d9090, //1//2//3//5//61parameterTIME=1500000;//把握每一个音(节拍)的长短(375ms)assignq=q_r;always@(posedgeclock)beginif(cnt1<TIME) //把握每一个音(节拍)的长短(375ms)cnt1<=cnt1+21”d1;elsebegincnt1<=21”d0;case(n)6”d0:beginq_r<=L_5; //5SPEAKif(cnt2<4”d1) //两个节拍cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d1;6”d1:begin

q_r<=M_1;if(cnt2<4”d6)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d2;6”d2:begin

q_r<=M_3;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d3;6”d3:begin

q_r<=M_2;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d4;6”d4:beginend6”d5:begin

q_r<=M_1;n<=6”d5;q_r<=M_2;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d6;6”d6:begin

q_r<=M_3;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d7;6”d7:begin

q_r<=M_1;if(cnt2<4”d4)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d8;6”d8:begin

q_r<=M_3;if(cnt2<4”d1)cnt2<=cnt2+4”d1;elsebegin

cnt2<=4”d0;n<=6”d9;end6”d9:begin

endq_r<=M_5;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d10;6”d10:beginq_r<=M_6;if(cnt2<4”d9)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d11;6”d11:beginq_r<=M_5;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d12;6”d12:beginq_r<=M_3;if(cnt2<4”d2)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d13;6”d13:beginq_r<=M_1;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d14;6”d14:beginq_r<=M_2;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d15;6”d15:beginend

q_r<=M_1;n<=6”d16;6”d16:beginq_r<=M_2;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d17;6”d17:beginq_r<=M_3;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d18;6”d18:beginq_r<=M_1;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d19;6”d19:beginq_r<=L_6;if(cnt2<4”d2)cnt2<=cnt2+4”d1;elsebegin

cnt2<=4”d0;n<=6”d20;endend6”d20:beginq_r<=M_5;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d21;6”d21:beginq_r<=M_1;if(cnt2<4”d7)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d22;6”d22:beginq_r<=M_6;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d23;6”d23:beginq_r<=M_5;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d24;6”d24:beginq_r<=M_3;if(cnt2<4”d2)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d25;6”d25:beginq_r<=M_1;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d26;6”d26:beginq_r<=M_2;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d27;6”d27:beginend

q_r<=M_1;n<=6”d28;6”d28:beginq_r<=M_2;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d29;6”d29:beginq_r<=M_6;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d30;6”d30:beginq_r<=M_5;if(cnt2<4”d3)cnt2<=cnt2+4”d1;elsebegin

cnt2<=4”d0;n<=6”d31;endend6”d31:beginq_r<=M_3;if(cnt2<4”d2)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d32;6”d32:beginq_r<=M_5;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d33;6”d33:beginq_r<=M_6;if(cnt2<4”d7)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d34;6”d34:beginq_r<=H_1;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d35;6”d35:beginq_r<=M_5;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d36;6”d36:beginq_r<=M_3;if(cnt2<4”d2)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d37;6”d37:beginq_r<=M_1;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d38;6”d38:beginq_r<=M_2;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d39;6”d39:beginend

q_r<=M_1;n<=6”d40;6”d40:beginq_r<=M_2;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d41;6”d41:beginq_r<=M_3;if(cnt2<4”d1)cnt2<=cnt2+4”d1;elsebegin

cnt2<=4”d0;n<=6”d42;endend6”d42:beginq_r<=M_1;if(cnt2<4”d3)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d43;6”d43:beginq_r<=L_6;if(cnt2<4”d2)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d44;6”d44:beginq_r<=M_5;if(cnt2<4”d1)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d45;6”d45:beginq_r<=M_1;if(cnt2<4”d7)cnt2<=cnt2+4”d1;end

elsebeginend

cnt2<=4”d0;n<=6”d0;end

end

default:n<=6”d0;endcaseendmodule//**************************************