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' ;
----------------------JOSEP ADD NEXT LINE--------------------
    WHEN 4  => Tone <= 1116; CODE <= 4; 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' ;
----------------------JOSEP ADD NEXT LINE--------------------
    WHEN 11 => Tone <= 1582; CODE <= 4; HIGH <= '1' ;
	WHEN 12 => Tone <= 1622; CODE <= 5; HIGH <= '1' ;
	WHEN 13 => Tone <= 1668; CODE <= 6; HIGH <= '1' ;
----------------------JOSEP ADD NEXT LINE--------------------
    WHEN 14 => Tone <= 1698; CODE <= 7; HIGH <= '1' ;
	WHEN 15 => Tone <= 1728; CODE <= 1; HIGH <= '1' ;
	WHEN OTHERS => NULL;
	END CASE;
  END PROCESS;
END;