tonetaba.vhd

乐曲演奏设计电路,可演奏不同的乐曲.长时间播放音乐.

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 tonetaba;
  architecture one of tonetaba is
      begin
         search:process(index)
         begin
        case index is
      when"0000"=>tone<="11111111111";code<="0000";high<='0';--2047;
      when"0001"=>tone<="01100000101";code<="0001";high<='0';--773; 
      when"0010"=>tone<="01110010000";code<="0010";high<='0';--912; 
      when"0011"=>tone<="10000001100";code<="0011";high<='0';--1036; 
      when"0101"=>tone<="10010101101";code<="0101";high<='0';--1197;  
      when"0110"=>tone<="10100001010";code<="0110";high<='0';--1290;  
      when"0111"=>tone<="10101011100";code<="0111";high<='0';--1372;
      when"1000"=>tone<="10110000010";code<="0001";high<='1';--1410; 
      when"1001"=>tone<="10111001000";code<="0010";high<='1';--1480; 
      when"1010"=>tone<="11000000110";code<="0011";high<='1';--1542; 
      when"1100"=>tone<="11001010110";code<="0101";high<='1';--1622;  
      when"1101"=>tone<="11010000100";code<="0110";high<='1';--1668;   
      when"1111"=>tone<="11011000000";code<="0001";high<='1';--1728; 
      when others=>null;
   end case;
  end process;
end;