automusic.vhd

本源码设计了自动电子琴

library IEEE; 
use IEEE.STD_LOGIC_1164.ALL; 
use IEEE.STD_LOGIC_ARITH.ALL; 
use IEEE.STD_LOGIC_UNSIGNED.ALL; 
entity automusic is 
Port ( clk,Auto : in std_logic;      
index2 : in std_logic_vector(7 downto 0);    
index0 : out std_logic_vector(7 downto 0)); 
end automusic; 

architecture Behavioral of automusic is 
signal count0:integer range 0 to 53;
signal count5:std_logic;
begin
process(Auto)
begin
if(Auto'event and Auto='0')then

count5<=not count5;
end if;
end process;
music:process(clk)                  
       begin

 if clk'event and clk='1' then 
    if count5='1' then
      if count0=53 then count0<=0; 
      else count0<=count0+1; 
      end if;
    else count0<=0;  
    end if;
end if;

end process; 
com1:process(count0,Auto,index2)       
begin 
if count5='1' then 
 case count0 is 
                  
  when 1 => index0<="11111110";  --1 
 when 2=> index0<="11111110";  --1
  when 3=> index0<="11101111";  --5 
  when 4 => index0<="11101111";  --5 
  when 5 => index0<="11011111";  --6 
  when 6 =>index0<="11101111";  --5
  when 7=> index0<="11101111";  --5 
  when 8=> index0<="11110111";  --4
  when 9=> index0<="11110111";  --4 
  when 10=> index0<="11111011";  --3
  when 11=> index0<="11111011";  --3 
  when 12=> index0<="11111101";  --2 
  when 13=> index0<="11111101";  --2 
  when 14=> index0<="11111110";  --1 
  when 15=> index0<="11111110";  --1 
  when 16=> index0<="11111110";  --1   
  when 17=> index0<="11101111";  --5 
  when 18=> index0<="11101111";  --5
  when 19=> index0<="11110111";  --4
  when 20=> index0<="11110111";  --4 
  when 21=> index0<="11111011";  --3
  when 22=> index0<="11111011";  --3 
  when 23=> index0<="11111101";  --2 
  when 24=> index0<="11111101";  --2 
  when 25=> index0<="11111101";  --2 
  when 26=> index0<="11111110";  --1   
  when 27=> index0<="11101111";  --5 
  when 28=> index0<="11101111";  --5
  when 29=> index0<="11110111";  --4
  when 30=> index0<="11110111";  --4 
  when 31=> index0<="11111011";  --3
  when 32=> index0<="11111011";  --3 
  when 33=> index0<="11111101";  --2 
  when 34=> index0<="11111101";  --2 
  when 35=> index0<="11111101";  --2 
  when 36=> index0<="11111110";  --1 
  when 37=> index0<="11111110";  --1 
  when 38=> index0<="11101111";  --5 
  when 39=> index0<="11101111";  --5 
  when 40 => index0<="11011111";  --6 
  when 41=>index0<="11101111";  --5
  when 42=> index0<="11101111";  --5 
  when 43=> index0<="11101111";  --5 
  when 44=> index0<="11110111";  --4
  when 45=> index0<="11110111";  --4 
  when 46=> index0<="11111011";  --3
  when 47=> index0<="11111011";  --3 
  when 48=> index0<="11111101";  --2 
  when 49=> index0<="11111101";  --2 
  when 50=> index0<="11111110";  --1 
  when 51=> index0<="11111110";  --1 
  when 52=> index0<="11111110";  --1
  when others =>index0<="11111111";  --nul
end case; 
else index0<=index2;                        
end if; 
end process; 
end Behavioral;