霓虹灯.txt

用VHDL实现16个霓虹灯按照多种方式闪亮.

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
use ieee.std_logic_arith.all;
entity led is
port( clk:in std_logic; --40MHz;
      reset:in std_logic ; --是复位；
      leds:out std_logic_vector(15 downto 0));--控制16个led灯的亮灭；
end;
architecture ojh of led is
signal clk1:std_logic;--led闪烁时钟;
signal kz:std_logic_vector(6 downto 0);
signal dd:std_logic_vector(2 downto 0);
begin
p20:process(clk) --分频为10Hz;
   variable n:integer range 0 to 1999999;
   begin
and clk='1' then
   if n=1999999 then n:=0; clk1<=not clk1;
   else n:=n+1; 
   end if; end if;
   end process;   
p21:process(clk1,reset)
     begin                                                                                        
    if reset='1' then leds<=(others=>'0');
    elsif clk1'event and clk1='1' then
    if kz="1010000" then kz<="0000000";
    else kz<=kz+1;end if;
    case kz is
    when "0000000"=>  leds<="1111111111111111";
    when "0000001" => leds<="1000000000000000";
 
    when "0000011" => leds<="0010000000000000";
    when "0000100" => leds<="0001000000000000";
    when "0000101" => leds<="0000100000000000";
    when"0000110"=>leds<="0000010000000000";  
    when "0000111" => leds<="0000001000000000";
    when "0001000" => leds<="0000000100000000";
    when "0001001" => leds<="0000000010000000";
    when "0001010" => leds<="0000000001000000";
    when "0001011" => leds<="0000000000100000";
    when "0001100" => leds<="0000000000010000";
    when "0001101" => leds<="0000000000001000";
    when "0001110" => leds<="0000000000000100";
    when "0001111" => leds<="0000000000000010";
    when "0010000" => leds<="0000000000000001";
    when "0010001" => leds<="0000000000000010";
    when "0010010" => leds<="0000000000000100";
    when "0010011" => leds<="0000000000001000";
    when "0010100" => leds<="0000000000010000";
    when "0010101" => leds<="0000000000100000";
    when "0010110" => leds<="0000000001000000";
    when "0010111" => leds<="0000000010000000";
    when "0011000" => leds<="0000000100000000";
    when "0011001" => leds<="0000001000000000";
    when "0011010" => leds<="0000010000000000";
    when "0011011" => leds<="0000100000000000";
    when "0011100" => leds<="0001000000000000";
    when "0011101" => leds<="0010000000000000";
    when "0011110" => leds<="0100000000000000";
    when "0011111" => leds<="1000000000000000";
    when "0100000" => leds<="1111111111111111";
    when "0100001" => leds<="0000000000000000";
    when "0100010" => leds<="1000000000000000";
    when "0100011" => leds<="1100000000000000";
    when "0100100" => leds<="1110000000000000";  
    when "0100101" => leds<="1111000000000000";
    when "0100110" => leds<="1111100000000000";   
    when "0100111" => leds<="1111110000000000";
    when "0101000" => leds<="1111111000000000";   
    when "0101001" => leds<="1111111100000000";
    when "0101010" => leds<="1111111110000000";
    when "0101011" => leds<="1111111111000000";
    when "0101100" => leds<="1111111111100000";
    when "0101101" => leds<="1111111111110000";
    when "0101110" => leds<="1111111111111000";
    when "0101111" => leds<="1111111111111100";  
    when "0110000" => leds<="1111111111111110";
    when "0110001" => leds<="1111111111111111";   
    when "0110010" => leds<="1111111111111110";
    when "0110011" => leds<="1111111111111100";   
    when "0110100" => leds<="1111111111111000";
    when "0110101" => leds<="1111111111110000";
    when "0110110" => leds<="1111111111100000";
    when "0110111" => leds<="1111111111000000";
    when "0111000" => leds<="1111111110000000";
    when "0111001" => leds<="1111111100000000";
    when "0111010" => leds<="1111111000000000";  
    when "0111011" => leds<="1111110000000000";
    when "0111100" => leds<="1111100000000000";   
    when "0111101" => leds<="1111000000000000";
    when "0111110" => leds<="1110000000000000";   
    when "0111111" => leds<="1100000000000000";
    when "1000000" => leds<="1000000000000000"; 
    when "1000001" => leds<="1000000000000001";
    when "1000010" => leds<="1100000000000011";   
    when "1000011" => leds<="1110000000000111";
    when "1000100" => leds<="1111000000001111";   
    when "1000101" => leds<="1111100000011111";
    when "1000110" => leds<="1111110000111111";
    when "1000111" => leds<="1111111001111111";
    when "1001000" => leds<="1111110000111111";
    when "1001001" => leds<="1111100000011111";
    when "1001010" => leds<="1111000000001111";
    when "1001011" => leds<="1110000000000111";  
    when "1001100" => leds<="1100000000000011";
    when "1001101" => leds<="1000000000000001";   
    when "1001110" => leds<="1111111111111111";
    when "1001111" => leds<="0000000000000000";  
    when "1010000" => leds<="0000000110000000";
    when "1010001" => leds<="0000001111000000";
    when "1010010" => leds<="0000011111100000";   
    when "1010011" => leds<="0000111111110000";
    when "1010100" => leds<="0001111111111000";   
    when "1010101" => leds<="0011111111111100";
    when "1010110" => leds<="0111111111111110";
    when "1010111" => leds<="1111111111111111";
    when "1011000" => leds<="0111111111111110";
    when "1011001" => leds<="0011111111111100";
    when "1011010" => leds<="0001111111111000";
    when "1011011" => leds<="0000111111110000";  
    when "1011100" => leds<="0000011111100000";
    when "1011101" => leds<="0000001111000000";   
    when "1011110" => leds<="0000000110000000";
    when "1011111" => leds<="1111111111111111"; 
    when "1100000" => leds<="0000000000000000";
    when others=>null;
    end case;
    end if;
    end process;
end;