1(2).txt

3-8译码器,BCD码转换10进制,计数器

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY DECODER47 IS
   PORT(
      D: IN STD_LOGIC_VECTOR(3 DOWNTO 0);
     SEG:OUT STD_LOGIC_VECTOR(6 DOWNTO 0)
     ); 
 END DECODER47;
ARCHITECTURE STR OF DECODER47  IS
BEGIN 
   SEG<="0111111" WHEN D=0 ELSE
        "0000110" WHEN D=1 ELSE
        "1011011" WHEN D=2 ELSE
        "1001111" WHEN D=3 ELSE
        "1100110" WHEN D=4 ELSE
        "1101101" WHEN D=5 ELSE
        "1111101" WHEN D=6 ELSE
        "0000111" WHEN D=7 ELSE
        "1111111" WHEN D=8 ELSE
        "1101111" WHEN D=9 ELSE
        "0000000" ;
END STR;