cnt45s.vhd

课程设计《交通灯控制的设计》

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY CNT45S IS
   PORT(CLK,SB,EN45:IN STD_LOGIC;
        DOUT45M,DOUT45B:OUT STD_LOGIC_VECTOR(7 DOWNTO 0));
END CNT45S;
ARCHITECTURE art OF CNT45S IS
SIGNAL CNT6B:STD_LOGIC_VECTOR(5 DOWNTO 0);
BEGIN
PROCESS(SB,CLK,EN45)IS
  BEGIN
     IF CLK'EVENT AND CLK='1' THEN
       IF SB='0'THEN 
           IF CNT6B="101100"THEN 
              CNT6B<=CNT6B;
           ELSE
              CNT6B<=CNT6B+1;
           END IF;
       ELSIF SB='1'THEN
          IF CNT6B="101100"THEN
             CNT6B<="000000";
          ELSIF EN45='1'THEN 
             CNT6B<=CNT6B+1;
          ELSIF EN45='0'THEN 
             CNT6B<=CNT6B-CNT6B-1;
          END IF;      
       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<="00111001";
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 art;