--3-8譯碼   

library ieee;
use ieee.std_logic_1164.all;
--***********************---
entity text38 is 
port(en :in bit;
     num:in bit_vector(2 downto 0);
     q: out bit_vector(6 downto 0)
);
end;
--***************************
architecture behav of text38 is
begin 
process(en,num)
begin
if en='0' then
--********************************
case num is
when "000"=>q<="1111110"; 
when "001"=>q<="0110000";
when "010"=>q<="1101101";
when "011"=>q<="1111001";
when "100"=>q<="0110011";
when "101"=>q<="1011011";
when "110"=>q<="1011111";
when "111"=>q<="1110000";
when others=>null;
end case;
--*****************************
end if;
end process;
end behav;