樂曲硬件演奏電路設(shè)計(編輯修改稿)
2025-07-26 20:25 本頁面
【文章內(nèi)容簡介】 end process。 t8: process(clk,counter,rset,rst,choose,tmp) ROM地址控制輸出進程 begin if rst=39。139。 then tmp=000000000。 elsif rset=39。139。 then tmp=000000000。 elsif tmp=127 then tmp =000000000。 elsif (clk39。event and clk=39。139。) if then en=39。039。 then tmp=tmp+1。 end if。 end if。 case choose is when 00 = counter=tmp。 when 01 = counter=tmp+128。 when 10 = counter=tmp+256。 when 11 = counter=tmp+385。 when others = counter=000000000。 end case。 end process。 u1:music port map(address=counter,q=toneindex,inclock=clk)。end。 程序的功能是通過按鍵選取要播放的樂曲，在每到來一個時鐘時，當(dāng)復(fù)位鍵clk和暫停鍵en沒有按下時，地址值address遞增1，把選中的樂曲在LPM_ROM地址上所存儲的音符連續(xù)數(shù)據(jù)輸出。當(dāng)復(fù)位鍵clk按下時，停止播放樂曲，再次按下復(fù)位鍵clk，重新輸出當(dāng)前樂曲音符；當(dāng)暫停鍵en按下時，停止播放樂曲，再次按下暫停鍵en，從暫停處開始輸出當(dāng)前樂曲的音符； 分頻預(yù)置數(shù)模塊的VHDL語言設(shè)計分頻預(yù)置數(shù)模塊是樂曲簡譜碼對應(yīng)的分頻預(yù)置數(shù)查表電路。它提供了每個音符所對應(yīng)的分頻預(yù)置數(shù)，即給數(shù)控分頻模塊提供計數(shù)初值，以“揮著翅膀的女孩”,“菊花臺”,“兩只老虎”,“世上只有媽媽好”等四首樂曲為例，列出了在這個樂曲中所用到的21個音符的分頻預(yù)置數(shù)。表1是音符頻率及其對應(yīng)的預(yù)置數(shù)表1音符頻率及其對應(yīng)的預(yù)置數(shù)音階頻率頻率設(shè)定數(shù) 預(yù)置數(shù)音階頻率頻率設(shè)定數(shù)預(yù)置數(shù)低74152891 101101001011 中35543193 110001111001 低63702745 101010111000 中24933082 110000001001 低53292576 101000010000 中14402960 101110001111 低42932390 100101010101 高716613795 111011010010 低32772291 100011110010 高614793758 111010101101 低22462063 100000001111 高513183717 111010000100 低12201823 11100011111 高411743670 111001010110 中78303494 110110100101 高311083645 111000111100 中67403420 110101011100 高29873589 111000000101 中56593337 110100001001 高18803528 110111000111 中45873244 110010101100 0音0 4095111111111111在這個模塊的VHDL邏輯描述中設(shè)置了以“揮著翅膀的女孩”,“菊花臺”,“兩只老虎”,“世上只有媽媽好”等四首樂曲的全部音符所對應(yīng)的分頻預(yù)置數(shù)，共21個，每一音符的停留時間由音樂節(jié)拍和地址發(fā)生器模塊的時鐘（Clk）的輸入頻率決定，在此為4Hz。這21個值的輸出由程序的5位輸入值index[4..0]確定。輸向分頻預(yù)置數(shù)模塊的程序中index[4..0]的值又由地址發(fā)生器模塊的輸出toneindex[4..0]的輸出值和持續(xù)時間決定。程序如下：library ieee。 use 。 entity tonetaba is port(index:in std_logic_vector (4 downto 0)。 code:out std_logic_vector(3 downto 0)。 high0:out std_logic_vector(2 downto 0)。 tone:out std_logic_vector(11 downto 0))。 end。 architecture one of tonetaba is begin search:process(index) begin case index is when00000=tone=111111111111。code=0000。high0=000。0/4095 when00001=tone=011100011111。code=0001。high0=001。L1/1823 when00010=tone=100000001111。code=0010。high0=001。L2/2063 when00011=tone=100011110010。code=0011。high0=001。L3/2291 when00100=tone=100101010101。code=0100。high0=001。L4/2390 when00101=tone=101000010000。code=0101。high0=001。L5/2576 when00110=tone=101010111000。code=0110。high0=001。L6/2745 when00111=tone=101101001011。code=0111。high0=001。L7/2891 when01000=tone=101110001111。code=0001。high0=010。M1/2960 when01001=tone=110000001001。code=0010。high0=010。M2/3082 when01010=tone=110001111001。code=0011。high0=010。M3/3193 when01011=tone=110010101100。code=0100。high0=010。M4/3244 when01100=tone=110100001001。code=0101。high0=010。M5/3337 when01101=tone=110101011100。code=0110。high0=010。M6/3420 when01110=tone=110110100101。code=0111。high0=010。M7/34
法律信息相關(guān)推薦
鄂ICP備17016276號-1