《友誼地久天長》樂曲演奏電路設計

《友情地久天長》樂曲演奏電路設計試驗任務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//**************************************