se7.vhd

来自「里面有一个很实用的源码,数字引爆密码设计」· VHDL 代码 · 共 75 行

LIBRARY IEEE;
USE IEEE.std_logic_1164.ALL;

ENTITY se7 IS
           PORT (A,B,C,D        : IN  std_logic;
                 E,F,G,H,I,J,K  : OUT std_logic);
END se7;

--  seven_segment encoding 
--            E
--          ----
--       J |     | F
--          ----K
--       I |     | G
--          ----
--            H
--  end of description for seven_segment encoding

ARCHITECTURE se7_arc OF se7 IS
BEGIN
     PROCESS(A,B,C,D)
     BEGIN
          IF (A ='0' AND B ='0' AND C ='0' AND D ='0') THEN
	     E <= '1';  F <= '1';  G <='1';
             H <= '1';  I <= '1';  J <= '1';  K <= '0';
          ELSIF (A ='1' AND B ='0' AND C ='0' AND D ='0') THEN
             E <= '0';  F <= '1';  G <='1';
             H <= '0';  I <= '0';  J <= '0';  K <= '0';
          ELSIF (A ='0' AND B ='1' AND C ='0' AND D ='0') THEN
             E <= '1';  F <= '1';  G <='0';
             H <= '1';  I <= '1';  J <= '0';  K <= '1';
          ELSIF (A ='1' AND B ='1' AND C ='0' AND D ='0') THEN
             E <= '1';  F <= '1';  G <='1';
             H <= '1';  I <= '0';  J <= '0';  K <= '1';
          ELSIF (A ='0' AND B ='0' AND C ='1' AND D ='0') THEN
             E <= '0';  F <= '1';  G <='1';
             H <= '0';  I <= '0';  J <= '1';  K <= '1';
          ELSIF (A ='1' AND B ='0' AND C ='1' AND D ='0') THEN
             E <= '1';  F <= '0';  G <='1';
             H <= '1';  I <= '0';  J <= '1';  K <= '1';
          ELSIF (A ='0' AND B ='1' AND C ='1' AND D ='0') THEN
             E <= '1';  F <= '0';  G <='1';
             H <= '1';  I <= '1';  J <= '1';  K <= '1';
          ELSIF (A ='1' AND B ='1' AND C ='1' AND D ='0') THEN
             E <= '1';  F <= '1';  G <='1';
             H <= '0';  I <= '0';  J <= '0';  K <= '0';
          ELSIF (A ='0' AND B ='0' AND C ='0' AND D ='1') THEN
             E <= '1';  F <= '1';  G <='1';
             H <= '1';  I <= '1';  J <= '1';  K <= '1';
          ELSIF (A ='1' AND B ='0' AND C ='0' AND D ='1') THEN
             E <= '1';  F <= '1';  G <='1';
             H <= '1';  I <= '0';  J <= '1';  K <= '1';
          ELSIF (A ='0' AND B ='1' AND C ='0' AND D ='1') THEN
             E <= '1';  F <= '1';  G <='1';
             H <= '0';  I <= '1';  J <= '1';  K <= '1';
          ELSIF (A ='1' AND B ='1' AND C ='0' AND D ='1') THEN
             E <= '0';  F <= '0';  G <='1';
             H <= '1';  I <= '1';  J <= '1';  K <= '1';
          ELSIF (A ='0' AND B ='0' AND C ='1' AND D ='1') THEN
             E <= '1';  F <= '0';  G <='0';
             H <= '1';  I <= '1';  J <= '1';  K <= '0';
          ELSIF (A ='1' AND B ='0' AND C ='1' AND D ='1') THEN
             E <= '0';  F <= '1';  G <='1';
             H <= '1';  I <= '1';  J <= '0';  K <= '1';
          ELSIF (A ='0' AND B ='1' AND C ='1' AND D ='1') THEN
             E <= '1';  F <= '0';  G <='0';
             H <= '1';  I <= '1';  J <= '1';  K <= '1';
          ELSE
	     E <= '1';  F <= '0';  G <='0';
             H <= '0';  I <= '1';  J <= '1';  K <= '1';
          END IF;
     END PROCESS;     
END se7_arc;