seg7dec.vhd

QUARTUS II平台上的基于VHDL语言的电梯系统控制程序。

LIBRARY ieee;
USE ieee.std_logic_1164.ALL;

ENTITY seg7dec IS
   PORT( data : IN std_logic_vector(3 DOWNTO 0);
         segout : OUT std_logic_vector(6 DOWNTO 0);
         en : IN std_logic);
END seg7dec;

ARCHITECTURE ver3 OF seg7dec IS
SIGNAL INPUT : std_logic_vector(3 DOWNTO 0);
SIGNAL CE : std_logic;
BEGIN
PROCESS(data)
BEGIN
INPUT <= STD_LOGIC_VECTOR(data);
CE <= std_logic(en);
END PROCESS;
SEVEN_SEGMENT : BLOCK
BEGIN
segout <= "1000000" WHEN INPUT="0000" AND CE='1'ELSE
          "1111001" WHEN INPUT="0001" AND CE='1'ELSE
          "0100100" WHEN INPUT="0010" AND CE='1'ELSE
          "0110000" WHEN INPUT="0011" AND CE='1'ELSE
          "0011001" WHEN INPUT="0100" AND CE='1'ELSE
          "0010010" WHEN INPUT="0101" AND CE='1'ELSE
          "0000010" WHEN INPUT="0110" AND CE='1'ELSE
          "1111000" WHEN INPUT="0111" AND CE='1'ELSE
          "0000000" WHEN INPUT="1000" AND CE='1'ELSE
          "0010000" WHEN INPUT="1001" AND CE='1'ELSE
          "0001000" WHEN INPUT="1010" AND CE='1'ELSE
          "0000011" WHEN INPUT="1011" AND CE='1'ELSE
          "1000110" WHEN INPUT="1100" AND CE='1'ELSE
          "0100001" WHEN INPUT="1101" AND CE='1'ELSE
          "0000110" WHEN INPUT="1110" AND CE='1'ELSE
          "0001110" WHEN INPUT="1111" AND CE='1'ELSE
          "1111111" ;
END BLOCK SEVEN_SEGMENT;
END ver3;