tonetaba.vhd

基于VHDL的乐曲演奏硬件电路,基于AT的FPGA,由Quartus2编译通过

library ieee;
use ieee.std_logic_1164.all;
entity tonetaba is
port(index:in  std_logic_vector(3 downto 0);
      code:out std_logic_vector(3 downto 0);
      high:out std_logic;
      tone:out std_logic_vector(10 downto 0));
end;

architecture one of tonetaba is 
begin 
     search:process(index)
     begin
          case index is
     when"0000"=>tone<="11111111111";code<="0000";high<='0';
     when"0001"=>tone<="01000000101";code<="0001";high<='0';
     when"0010"=>tone<="01110010000";code<="0010";high<='0';
     when"0011"=>tone<="10000001100";code<="0011";high<='0';
     when"0101"=>tone<="10010101101";code<="0101";high<='0';
     when"0110"=>tone<="10100001010";code<="0110";high<='0';
     when"0111"=>tone<="10101011100";code<="0111";high<='0';
     when"1000"=>tone<="10110000010";code<="0001";high<='1';
     when"1001"=>tone<="10111001000";code<="0010";high<='1';
     when"1010"=>tone<="11000000110";code<="0011";high<='1';
     when"1100"=>tone<="11001010110";code<="0101";high<='1';
     when"1101"=>tone<="11010000100";code<="0110";high<='1';
     when"1111"=>tone<="11011000000";code<="0001";high<='1';
     when others=>null;
          end case;
     end process;
end;