tonetaba.vhd

上个用VHDL语言写的音乐程序,希望对大家能够有帮助

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY ToneTaba IS
    PORT ( Index :  IN INTEGER RANGE 0 TO 15;
           CODE  : OUT INTEGER RANGE 0 TO 15;
           HIGH  : OUT STD_LOGIC; 
           Tone  : OUT INTEGER RANGE 0 TO 16#7FF#  );
END;
ARCHITECTURE one OF ToneTaba IS
BEGIN
    Search : PROCESS(Index)
    BEGIN
        CASE Index IS              -- 译码电路，查表方式，控制音调的预置数
            WHEN 0  => Tone <= 2047; CODE <= 0; HIGH <= '0';  
            WHEN 1  => Tone <= 773;  CODE <= 1; HIGH <= '0';  
            WHEN 2  => Tone <= 912;  CODE <= 2; HIGH <= '0';  
            WHEN 3  => Tone <= 1036; CODE <= 3; HIGH <= '0';  
            WHEN 5  => Tone <= 1197; CODE <= 5; HIGH <= '0';  
            WHEN 6  => Tone <= 1290; CODE <= 6; HIGH <= '0';  
            WHEN 7  => Tone <= 1372; CODE <= 7; HIGH <= '0';  
            WHEN 8  => Tone <= 1410; CODE <= 1; HIGH <= '1';  
            WHEN 9  => Tone <= 1480; CODE <= 2; HIGH <= '1';  
            WHEN 10 => Tone <= 1542; CODE <= 3; HIGH <= '1';  
            WHEN 12 => Tone <= 1622; CODE <= 5; HIGH <= '1';  
            WHEN 13 => Tone <= 1668; CODE <= 6; HIGH <= '1';  
            WHEN 15 => Tone <= 1728; CODE <= 1; HIGH <= '1';  
            WHEN OTHERS => NULL;
        END CASE;
    END PROCESS;
END;