cnt45s.vhd

交通灯控制系统VHDL源码

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

ENTITY CNT45S IS
  PORT(SB,CLK,EN45:IN STD_LOGIC;
       DOUT45M,DOUT45B:OUT STD_LOGIC_VECTOR(7 DOWNTO 0));
END ENTITY CNT45S;

ARCHITECTURE ART OF CNT45S IS
  SIGNAL CNT6B:STD_LOGIC_VECTOR(5 DOWNTO 0);
  BEGIN
  PROCESS(SB,CLK,EN45) IS
    BEGIN
    IF SB='0' THEN CNT6B<=CNT6B-CNT6B-1;
      ELSIF(CLK'EVENT AND CLK='1') THEN
        IF EN45='1' THEN CNT6B<=CNT6B+1;
          ELSIF EN45='0' THEN CNT6B<=CNT6B-CNT6B-1;
        END IF;
     END IF;
  END PROCESS;
PROCESS(CNT6B) IS
  BEGIN
  CASE CNT6B IS
  WHEN "000000"=>DOUT45M<="01000101";DOUT45B<="01010000";
  WHEN "000001"=>DOUT45M<="01000100";DOUT45B<="01001001";
  WHEN "000010"=>DOUT45M<="01000011";DOUT45B<="01001000";
  WHEN "000011"=>DOUT45M<="01000010";DOUT45B<="01000111";
  WHEN "000100"=>DOUT45M<="01000001";DOUT45B<="01000110";
  WHEN "000101"=>DOUT45M<="01000000";DOUT45B<="01000101";
  WHEN "000110"=>DOUT45M<="00111001";DOUT45B<="01000100";
  WHEN "000111"=>DOUT45M<="00111000";DOUT45B<="01000011";
  WHEN "001000"=>DOUT45M<="00110111";DOUT45B<="01000010";
  WHEN "001001"=>DOUT45M<="00110110";DOUT45B<="01000001";
  WHEN "001010"=>DOUT45M<="00110101";DOUT45B<="01000000";
  WHEN "001011"=>DOUT45M<="00110100";DOUT45B<="01101001";
  WHEN "001100"=>DOUT45M<="00110011";DOUT45B<="00111000";
  WHEN "001101"=>DOUT45M<="00110010";DOUT45B<="00110111";
  WHEN "001110"=>DOUT45M<="00110001";DOUT45B<="00110110";
  WHEN "001111"=>DOUT45M<="00110000";DOUT45B<="00110101";
  WHEN "010000"=>DOUT45M<="00101001";DOUT45B<="00110100";
  WHEN "010001"=>DOUT45M<="00101000";DOUT45B<="00110011";
  WHEN "010010"=>DOUT45M<="00100111";DOUT45B<="00110010";
  WHEN "010011"=>DOUT45M<="00100110";DOUT45B<="00110001";
  WHEN "010100"=>DOUT45M<="00100101";DOUT45B<="00110000";
  WHEN "010101"=>DOUT45M<="00100100";DOUT45B<="00101001";
  WHEN "010110"=>DOUT45M<="00100011";DOUT45B<="00101000";
  WHEN "010111"=>DOUT45M<="00100010";DOUT45B<="00100111";
  WHEN "011000"=>DOUT45M<="00100001";DOUT45B<="00100110";
  WHEN "011001"=>DOUT45M<="00100000";DOUT45B<="00100101";
  WHEN "011010"=>DOUT45M<="00011001";DOUT45B<="00100100";
  WHEN "011011"=>DOUT45M<="00011000";DOUT45B<="00100011";
  WHEN "011100"=>DOUT45M<="00010111";DOUT45B<="00100010";
  WHEN "011101"=>DOUT45M<="00010110";DOUT45B<="00100001";
  WHEN "011110"=>DOUT45M<="00010101";DOUT45B<="00100000";
  WHEN "011111"=>DOUT45M<="00010100";DOUT45B<="00011001";
  WHEN "100000"=>DOUT45M<="00010011";DOUT45B<="00011000";
  WHEN "100001"=>DOUT45M<="00010010";DOUT45B<="00010111";
  WHEN "100010"=>DOUT45M<="00010001";DOUT45B<="00010110";
  WHEN "100011"=>DOUT45M<="00010000";DOUT45B<="00010101";
  WHEN "100100"=>DOUT45M<="00001001";DOUT45B<="00010100";
  WHEN "100101"=>DOUT45M<="00001000";DOUT45B<="00010011";
  WHEN "100110"=>DOUT45M<="00000111";DOUT45B<="00010010";
  WHEN "100111"=>DOUT45M<="00000110";DOUT45B<="00010001";
  WHEN "101000"=>DOUT45M<="00000101";DOUT45B<="00010000";
  WHEN "101001"=>DOUT45M<="00000100";DOUT45B<="00001001";
  WHEN "101010"=>DOUT45M<="00000011";DOUT45B<="00001000";
  WHEN "101011"=>DOUT45M<="00000010";DOUT45B<="00000111";
  WHEN "101100"=>DOUT45M<="00000001";DOUT45B<="00000110";
  WHEN   OTHERS=>DOUT45M<="00000000";DOUT45B<="00000000";
  END CASE;
 END PROCESS;
END ARCHITECTURE ART;