shumaer.vhd

流水灯和跑马灯的程序 已经编译 可以用 是quartus的开发环境

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY shumaer IS                                    
    PORT (   CLK   : IN STD_LOGIC;
              cat   : OUT STD_LOGIC_VECTOR(5 DOWNTO 0);
              yout : out STD_LOGIC_VECTOR(9 downto 0));
END shumaer;
ARCHITECTURE code of shumaer IS
    SIGNAL con : STD_LOGIC_VECTOR(5 DOWNTO 0);
    SIGNAL o : STD_LOGIC_VECTOR(9 DOWNTO 0);
BEGIN
p1:PROCESS(CLK)
    BEGIN 
   if(CLK 'event and CLK='1') then
        CASE con IS
        
          when "111110"=>con<="111101";
          when "111101"=>con<="111011";
          when "111011"=>con<="110111";
          when "110111"=>con<="101111";
          when "101111"=>con<="011111";

          when "011111"=>con<="111110";
          when "111110"=>con<="111101";
          when "111101"=>con<="111011";
          when "111011"=>con<="110111";
          when "110111"=>con<="101111";
          when "101111"=>con<="111111";


          
          when others=>con<="111110";
        END CASE;
    end if;
END PROCESS p1;
p2:PROCESS(CLK)
    BEGIN 
   if(CLK 'event and CLK='1') then
         case o is
           when "0001111110" =>o <= "0000110000";
           when "0000110000" =>o <= "0001101101";
           when "0001101101" =>o <= "0001111001";
           when "0001111001" =>o <= "0000110011";
           when "0000110011" =>o <= "0001011011";
          
           when "0001011011" =>o <= "0010110000";
           when "0010110000" =>o <= "0011101101";
           when "0011101101" =>o <= "0011111001";
           when "0011111001" =>o <= "0010110011";
           when "0010110011" =>o <= "0011011011"; 
           when "0011011011" =>o <= "0000000000";
        
           when "0000000000" =>o <= "0101101101";
           when "0101101101" =>o <= "0101111001";
           when "0101111001" =>o <= "0100110011";
           when "0100110011" =>o <= "0101011011";
           when "0101011011" =>o <= "0101111110";
           when "0101111110" =>o <= "0100110000";
 
           when "0100110000" =>o <= "0111111001";
           when "0111111001" =>o <= "0110110011";
           when "0110110011" =>o <= "0111011011";
           when "0111011011" =>o <= "0111111110";
           when "0111111110" =>o <= "0110110000";
           when "0110110000" =>o <= "0111101101";

           when "0111101101" =>o <= "1000110011";
           when "1000110011" =>o <= "1001011011";
           when "1001011011" =>o <= "1001111110";
           when "1001111110" =>o <= "1000110000";
           when "1000110000" =>o <= "1001101101";
           when "1001101101" =>o <= "1001111001";

           when "1001111001" =>o <= "1011011011";
           when "1011011011" =>o <= "1011111110";
           when "1011111110" =>o <= "1010110000";
           when "1010110000" =>o <= "1011101101";
           when "1011101101" =>o <= "1011111001";
           when "1011111001" =>o <= "1010110011";

           when others=>o<="0001111110";
    end case;
 end if;
end process p2;

cat<=con;
yout<=o;            
end code;