【文章內(nèi)容簡介】 4 第三小節(jié)when 71= index_auto=11100。 4when 72= index_auto=11100。 4when 73= index_auto=10000。 0when 74= index_auto=11100。 4when 75= index_auto=11100。 4when 76= index_auto=11100。 4when 77= index_auto=10000。 0when 78= index_auto=11100。 4when 79= index_auto=11100。 4when 80= index_auto=11100。 4when 81= index_auto=11100。 4when 82= index_auto=10000。 0when 83= index_auto=11100。 4when 84= index_auto=11100。 4when 85= index_auto=10000。 0when 86= index_auto=11100。 4when 87= index_auto=11100。 4when 88= index_auto=11100。 4when 89= index_auto=10000。 0when 90= index_auto=11011。 3when 91= index_auto=11011。 3when 92= index_auto=11011。 3when 93= index_auto=10000。 0when 94= index_auto=11011。 3when 95= index_auto=11011。 3when 96= index_auto=11011。 0when 97= index_auto=11011。 3when 98= index_auto=11011。 3when 99= index_auto=11011。 0when 100= index_auto=11011。 3when 101= index_auto=11011。 3when 102= index_auto=11101。 5 第四小節(jié)when 103= index_auto=11101。 5when 104= index_auto=11101。 5when 105= index_auto=10000。 0when 106= index_auto=11101。 5when 107= index_auto=11101。 5when 108= index_auto=11101。 5when 109= index_auto=10000。 0when 110= index_auto=11101。 4when 111= index_auto=11100。 4when 112= index_auto=11100。 4when 113= index_auto=10000。 0when 114= index_auto=11010。 2when 115= index_auto=11010。 2when 116= index_auto=11010。 2when 117= index_auto=10000。 0when 118= index_auto=11001。 1when 119= index_auto=11001。 1when 120= index_auto=11001。 1when 121= index_auto=11001。 1when 122= index_auto=11001。 1when 123= index_auto=11001。 1when 124= index_auto=11001。 1when 125= index_auto=11001。 1when 126= index_auto=11001。 1when 127= index_auto=11001。 1when 128= index_auto=11001。 1when 129= index_auto=10000。 0when 130= index_auto=10000。 0when 131= index_auto=10000。 0when 132= index_auto=10000。 0when 133= index_auto=10000。 0when 134= index_auto=10000。 0when 135= index_auto=10000。 0when 136= index_auto=10000。 0when others = null。end case。end process。end behave。 查表模塊library ieee。use 。use 。use 。entity table isport(index_key:in std_logic_vector(4 downto 0)。 這里是對鍵盤輸入音符的編碼 index_auto:in std_logic_vector(4 downto 0)。 這里是對自動播放音符的編碼button :in std_logic。 clr:in std_logic。 replay:in std_logic。index_store : in std_logic_vector(4 downto 0)。 這里是對錄入存儲音符的編碼tone:out integer range 0 to 100000 )。end。architecture search of table issignal index: std_logic_vector(4 downto 0)。 beginp1:process(button,replay) 選擇使用哪種播放模式的音符輸入 begin if (button = 39。139。and replay = 39。039。 )then index= index_auto。 elsif (button = 39。039。 and replay= 39。039。 )then index= index_key。 elsif (button = 39。039。 and replay= 39。139。) THEN index= index_store。 end if。end process p1。 p2:process(index,clr) begin if(clr=39。039。) then case index is when 00001= tone=95554。 對應(yīng)低音的1，即分頻系數(shù)=50MHz/2(tone+1) when 00010= tone=85600。 對應(yīng)低音的2 when 00011= tone=74849。 對應(yīng)低音的3 when 00100= tone=71592。 對應(yīng)低音的4 when 00101= tone=63775。 對應(yīng)低音的5 when 00110= tone=56818。 對應(yīng)低音的6 when 00111= tone=50619。 對應(yīng)低音的7 when 01001= tone=47773。 對應(yīng)中音的1 when 01010= tone=42800。 when 01011= tone=37922。 when 01100= tone=35792。 when 01101= tone=31887。 when 01110= tone=28409。 when 01111= tone=25309。 when 11001= tone=23888。 對應(yīng)高音的1 when 11010= tone=21282。 when 11011= tone=18900。 when 11100= tone=17896。 when 11101= tone=16000。 when 11110= tone=14204。 when 11111= tone=12566。 when others = tone=0。 end case。 elsif(clr=39。139。) then tone=0。 復(fù)位后，沒有聲音輸出 end if。 end process p2 。end search。 鍵盤輸入模塊library ieee。use 。use 。use 。entity keyplay isport( mode:in std_logic_vector(1 downto 0)。 代表高中低音的選擇 key:in std_logic_vector(6 downto 0)。 index_key:out std_logic_vector(4 downto 0) )。end。architecture behave of keyplay is signal md:std_logic_vector(8 downto 0)。begin md=modeamp。key。 將按鍵和模式統(tǒng)一編碼 process(md) begin case md is when 000000001= index_key=00001。按鍵從右到左依次表示do,re,mi,fa,sol,la,ti when 000000010= index_key=00010。 when 000000100= index_key=00011。 when 000001000= index_key=00100。 when 000010000= index_key=00101。 when 000100000= index_key=00110。 when 001000000= index_key=00111。 when 010000001= index_key=01001 when 010000010= index_key=01010。 when 010000100= index_key=01011。 when 010001000= index_key=01100。 when 010010000= index_key=01101。 when 010100000= index_key=01110。 when 011000000= index_key=01111。 when 110000001= index_key=11001 when 110000010= index_key=11010。 when 110000100= index_key=11011。 when 110001000= index_key=11100。 when 110010000= index_key=11101。 when 110100000= index_key=11110。 when 111000000= index_key=11111。 when others = index_key=00000。 end case。 end process 。end behave。 分頻模塊library ieee。use 。use 。use 。entity fenpin isport(clk:in std_logic。 50MHz時鐘 tone:in integer range 0 to 100000。 輸入分頻系數(shù) buzz:out std_logic)。 驅(qū)動揚聲器發(fā)聲end。architecture behave of fenpin is signal clk_data: std_logic。 signal i: integer range 0 to 65540