【正文】 r2。reg[23:0]led。 //數(shù)碼管reg [5:0]fa_r。 //彩燈reg clk_s。reg [11:0]min。 //樂譜參數(shù):D=F/2K parameter L_5 = 1639。d61224, //低音 5 L_6 = 1639。d54545, //低音 6 M_1 = 1639。d45863, //中音 1 M_2 = 1639。d40865, //中音 2 M_3 = 1639。d36402, //中音 3 M_5 = 1639。d30612, //中音 5 M_6 = 1639。d27273, //中音 6 H_1 = 1639。d22956。 //高音 1 parameter TIME=12022000。 //控制音的長短(250ms) assign beep=beep_r。 //輸出音樂/************************** **模塊名稱：分頻器** 功能描述：計數(shù)分頻********************************/always@(posedge sys_clk)begincount = count + 139。b1。 //計數(shù)器加 1if(count==count_end)begincount=1639。h0。 //計數(shù)器清零if(ke==139。b0) //如果有光beep_r=0。 //蜂鳴器不叫elsebeep_r=!beep_r。 //輸出取反 (蜂鳴器叫)endend/******************************* 模塊名稱：曲譜** 功能描述：產(chǎn)生分頻的系數(shù)并描述出曲譜**************************/always@(posedge sys_clk)beginif(count1TIME) //一個節(jié)拍 250mscount1=count1+139。b1。elsebegincount1=2439。d0。if(state==839。d147)state=839。d0。elsestate=state+139。b1。case(state)839。d0,839。d1: count_end=L_5。 //低音5,持續(xù) 2 個節(jié)拍839。d2,839。d3,839。d4,839。d5,839。d6,839。d7,839。d8: count_end=M_1 。 //中音1,持續(xù) 7 個節(jié)拍839。d9,839。d10: count_end=M_3。 //中音3,持續(xù) 2 個節(jié)拍839。d11,839。d12,839。d13,839。d14: count_end=M_2。 //中音2,持續(xù) 4 個節(jié)拍839。d15: count_end=M_1。 839。d16,839。d17: count_end=M_2。839。d18,839。d19: count_end=M_3。 839。d20,839。d21,839。d22,839。d23,839。d24: count_end=M_1。839。d25,839。d26: count_end=M_3。839。d27,839。d28: count_end=M_5。839。d29,839。d30,839。d31,839。d32,839。d33: count_end=M_6。839。d34,839。d35,839。d36,839。d37,839。d38: count_end=M_6。839。d39,839。d40,839。d41,839。d42: count_end=M_5。839。d43,839。d44,839。d45: count_end=M_3。839。d46,839。d47: count_end=M_1。839。d48,839。d49,839。d50,839。d51: count_end=M_2。 839。d52: count_end=M_1。 839。d53,839。d54: count_end=M_2。839。d55,839。d56: count_end=M_3。839。d57,839。d58,839。d59,839。d60: count_end=M_1。839。d61,839。d62,839。d63: count_end=L_6。839。d64,839。d65: count_end=M_5。839。d66,839。d67,839。d68,839。d69: count_end=M_1。839。d70,839。d71,839。d72,839。d73: count_end=M_1。 839。d74,839。d75: count_end=M_6。839。d76,839。d77,839。d78,839。d79: count_end=M_5。 839。d80,839。d81,839。d82: count_end=M_3。 839。d83,839。d84: count_end=M_1。 839。d85,839。d86,839。d87,839。d88: count_end=M_2。 839。d89: count_end=M_1。 839。d90,839。d91: count_end=M_2。 839。d92,839。d93: count_end=M_6。839。d94,839。d95,839。d96,839。d97: count_end=M_5。839。d98,839。d99,839。d100: count_end=M_3。 839。d101,839。d102: count_end=M_5。 839。d103,839。d104,839。d105,839。d106: count_end = M_6。839。d107,839。d108,839。d109,839。d110: count_end=M_6。 839。d111,839。d112: count_end=H_1。839。d113,839。d114,839。d115,839。d116: count_end=M_5。839。d117,839。d118,839。d119: count_end=M_3。839。d120,839。d121: count_end=M_1。 839。d122,839。d123,839。d124,839。d125: count_end=M_2。 839。d126: count_end=M_1。 839。d127,839。d128: count_end=M_2。 839。d129,839。d130: count_end=M_3。 839。d131,839。d132,839。d133,839。d134: count_end=M_1。839。d135,839。d136,839。d137: count_end=L_6。839。d138,839。d139: count_end=M_5。839。d140,839。d141,839。d142,839。d143: count_end=M_1。839。d144,839。d145,839。d146,839。d147: count_end=M_1。default: count_end=1639。h0。 endcaseendendassign fa=fa_r。always @(posedge sys_clk)beginif(ke==139。b1)//無光時彩燈開始閃爍case(state)839。d0,839。d1:fa_r=639。b000001。839。d2,839。d3,839。d4,839。d5,839。d6,839。d7,839。d8:fa_r=639。b000010。839。d9,839。d10:fa_r=639。b000011。839。d11,839。d12,839。d13,839。d14:fa_r=639。b000100。839。d15:fa_r=639。b000101。839。d16,839。d17:fa_r=639。b000110。839。d18,839。d19:fa_r=639。b000111。839。d20,839。d21,839。d22,839。d23,839。d24:fa_r=639。b001000。839。d25,839。d26: fa_r=639。b010000。839。d27,839。d28:fa_r=639。b100000。839。d29,839。d30,839。d31,839。d32,839。d33:fa_r=639。b100001。839。d34,839。d35,839。d36,839。d37,839。d38:fa_r=639。b100010。839。d39,839。d40,839。d41,839。d42:fa_r=639。b100011。839。d43,839。d44,839。d45:fa_r=639。b100100。839。d46,839。d47:fa_r=639。b100101。839。d48,839。d49,839。d50,839。d51:fa_r=639。b100110。839。d52:fa_r=639。b100111。839。d53,839。d54:fa_r=639。b101000。839。d55,839。d56:fa_r=639。b101001。839。d57,839。d58,839。d59,839。d60:fa_r=639。b101010。839。d61,839。d62,839。d63:fa_r=639。b101011。 839。d64,839。d65:fa_r=639。b101100。839。d66,839。d67,839。d68,839。d69:fa_r=639。b101101。839。d70,839。d71,839。d72,839。d73:fa_r=639。b101110。839。d74,839。d75: fa_r=639。b101111。839。d76,839。d77,839。d78,839。d79:fa_r=639。b110000。 839。d80,839。d81,839。d82:fa_r=639。b110001。839。d83,839。d84:fa_r=639。b110010。839。d85,839。d86,839。d87,839。d88:fa_r=639。b110011。839。d89:fa_r=639。b110100。839。d90,839。d91:fa_r=639。b110101。839。d92,839。d93:fa_r=639。b110110。839。d94,839。d95,839。d96,839。d97:fa_r=639。b110111。839。d98,839。d99,839。d100:fa_r=639。b111000。839。d101,839。d102:fa_r=639。b111001。839。d103,839。d104,839。d105,839。d106:fa_r=639。b111010。839。d107,839。d108,839。d109,839。d110: fa_r=639。b111011。839。d111,839。d112:fa_r=639。b111100。839。d113,839。d114,839。d115,839。d116:fa_r=639。b111101。839。d117,839。d118,839。d119:fa_r=639。b111110。839。d120,839。d121:fa_r=639。b111111。839。d122,839。d123,839。d124,839。d125:fa_r=639。b101101。839。d126: fa_r=639。b110001。839。d127,839。d128:fa_r=639。b011101。839。d129,839。d130:fa_r=639。b100001。839。d131,839。d132,839。d133,839。d134:fa_r=639。b111101。839。d135,839。d136,839。d137:fa_r=639。b000101。839。d138,839。d139:fa_r=639。b101101。839。d140,839。d141,839。d142,839。d143:fa_r=639。b001101。839。d144,839。d145,839。d146,839。d147:fa_r=639。b100001。 def