双数码管显示实验说明.docVIP

双数码管显示实验 LIBRARY IEEE; USE IEEE.STD_LOGIC_1164.ALL; ENTITY seg7_8 IS PORT ( BCD_in_1 : IN STD_LOGIC_VECTOR(3 DOWNTO 0); --输入底四位BCD码 BCD_in_2 : IN STD_LOGIC_VECTOR(3 DOWNTO 0); --输入高四位BCD码 SG_out_1 : OUT STD_LOGIC_VECTOR(6 DOWNTO 0); --输出底七位字形码 SG_out_2 : OUT STD_LOGIC_VECTOR(6 DOWNTO 0)); --输出高七位字形码 END; ARCHITECTURE one OF seg7_8 IS BEGIN P1:PROCESS(BCD_in_1) BEGIN CASE BCD_in_1 IS WHEN 0000 = SG_out_1 = 0111111; WHEN 0001 = SG_out_1 = 0000110; WHEN 0010 = SG_out_1 = 1011011; WHEN 0011 = SG_out_1 = 1001111; WHEN 0100 = SG_out_1 = 1100110; WHEN 0101 = SG_out_1 = 1101101; WHEN 0110 = SG_out_1 = 1111101; WHEN 0111 = SG_out_1 = 0000111; WHEN 1000 = SG_out_1 = 1111111; WHEN 1001 = SG_out_1 = 1101111; WHEN 1010 = SG_out_1 = 1110111; WHEN 1011 = SG_out_1 = 1111100; WHEN 1100 = SG_out_1 = 0111001; WHEN 1101 = SG_out_1 = 1011110; WHEN 1110 = SG_out_1 = 1111001; WHEN 1111 = SG_out_1 = 1110001; WHEN OTHERS = NULL ; END CASE ; END PROCESS P1; P2:PROCESS(BCD_in_2) BEGIN CASE BCD_in_2 IS WHEN 0000 = SG_out_2 = 0111111; WHEN 0001 = SG_out_2 = 0000110; WHEN 0010 = SG_out_2 = 1011011; WHEN 0011 = SG_out_2 = 1001111; WHEN 0100 = SG_out_2 = 1100110; WHEN 0101 = SG_out_2 = 1101101; WHEN 0110 = SG_out_2 = 1111101; WHEN 0111 = SG_out_2 = 0000111; WHEN 1000 = SG_out_2 = 1111111; WHEN 1001 = SG_out_2 = 1101111; WHEN 1010 = SG_out_2 = 1110111; WHEN 1011 = SG_out_2 = 1111100; WHEN 1100 = SG_out_2 = 0111001; WHEN 1101 = SG_out_2 = 1011110; WHEN 1110 = SG_out_2 = 1111001; WHEN 1111 = SG_out_2 = 1110001; WHEN OTHERS = N