【文章內容簡介】 process(clk,a) variable t:std_logic_vector(2 downto 0)。 begin if clk39。event and clk=39。139。then if t=111then t:=011。 a=39。139。 else t:=t+1。a=39。039。 end if。 end if。 if a39。event and a=39。139。then c=not c。 if c=39。139。then f=39。139。 else f=39。039。 end if。 end if。 f12=f。 end process。process(clk,a2) variable :std_logic_vector(22 downto 0)。 begin if clk39。event and clk=39。139。then if =10111110101111000010000then :=01011111010111100001000。 a2=39。139。 else :=+1。a=39。039。 end if。 end if。 if a239。event and a2=39。139。then c2=not c2。 if c2=39。139。then f2=39。139。 else f2=39。039。 end if。 end if。 f8=f。 end process。end。fp 模塊將 50MHz 的頻率分為所需要的頻率。預置數模塊library ieee。9use 。entity toaba isport(index:in std_logic_vector(3 downto 0)。 tone:out std_logic_vector(10 downto 0))。end。architecture one of toaba issignal code:out std_logic_vector(3 downto 0)。signal high:out std_logic。beginsearch:process(index)begincase index iswhen0000=tone=11111111111。code=0000。high=39。039。when0001=tone=01100000101。code=0001。high=39。039。when0010=tone=01110010000。code=0010。high=39。039。when0011=tone=10000001100。code=0011。high=39。039。when0101=tone=10010101101。code=0101。high=39。039。when0110=tone=10100001010。code=0110。high=39。039。when0111=tone=10101011100。code=0111。high=39。039。when1000=tone=10110000010。code=0001。high=39。139。when1001=tone=10111001000。code=0010。high=39。139。when1010=tone=11000000110。code=0011。high=39。139。when1100=tone=11001010110。code=0101。high=39。139。when1101=tone=11010000100。code=0110。high=39。139。when1111=tone=11011000000。code=0001。high=39。139。when others=null。end case。end process。end。模塊 toaba 的功能首先是為 speakera 提供決定音符發(fā)音的分頻預置數，而此數在speakera 輸入口停留時間即為此音符的節(jié)拍值。模塊 toaba 是樂曲簡譜碼對應的分頻預置數查表電路，其中設置了《梁?！窐非恳舴鶎姆诸l預置數，共 13 個，每一個音符的停留時間由音樂節(jié)拍和音調發(fā)生器模塊 notetabs 的 clk 輸入頻率決定，在此時為4HZ。每一個計數值停留時間為 秒，恰為當全音符為 1 秒時，四四拍的 4 分音符持續(xù)時間。這 13 個值的輸出由對應于 toaba 的 4 位輸入值 index[3..0]確定，而 index[3..0]最多有 16 種選擇。輸向 toaba 中 index[3..0]的值 toneindex[3..0]的輸出值與持續(xù)的時間由模塊 notetabs 決定。音頻模塊library ieee。use 。use 。entity speakera isport(clk:in std_logic。10 tone:in std_logic_vector(10 downto 0)。 spks:out std_logic)。end。architecture one of speakera issignal preclk,fullspks:std_logic。begin divideclk:process(clk)variable count4:std_logic_vector(3 downto 0)。begin preclk=39。039。if count411 then preclk=39。139。 count4:=0000。 elsif clk39。event and clk=39。139。then count4:=count4+1。 end if。 end process。genspks:process(preclk,