text38.vhd

大家一定要看 哦 程序在与多看多练 我找了好久才找到呢

--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;