tonetaba.vhd

简单的乐曲播放器,实验课程作品,使用VHDL语言编写

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY ToneTaba IS
  PORT ( Index: IN INTEGER RANGE 0 TO 15;
         
         CAIDENG : OUT STD_LOGIC_VECTOR(6 DOWNTO 0); 
         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<= 0;      
      WHEN 1=>Tone<= 1274;   CAIDENG<="1000000";
      WHEN 2=>Tone<= 1135;   CAIDENG<="0100000";
      WHEN 3=>Tone<= 1011;   CAIDENG<="0010000";
      WHEN 4=>Tone<= 954;    CAIDENG<="0001000";
      WHEN 5=>Tone<= 850;    CAIDENG<="0000100";
      WHEN 6=>Tone<= 757;    CAIDENG<="0000010";
      WHEN 7=>Tone<= 675;    CAIDENG<="0000001";
      WHEN 8=>Tone<= 637;    CAIDENG<="1000000";
      WHEN 9=>Tone<= 567;    CAIDENG<="0100000";
      WHEN 10=>Tone<=505;    CAIDENG<="0010000";
      WHEN 11=>Tone<=477;    CAIDENG<="0001000";
      WHEN 12=>Tone<=425;    CAIDENG<="0000100";
      WHEN 13=>Tone<=379;    CAIDENG<="0000010";
      WHEN 14=>Tone<=337;    CAIDENG<="0000001";
      WHEN 15=>Tone<=319;    CAIDENG<="1000000";
      WHEN OTHERS =>NULL;
  END CASE;
END PROCESS;


END;