process(data 7段译码 egin case data is when0=>seg<=“111110 when1=>seg<="01100000 when2=>seg<=“1101010″; when3=>seg<=1111010; when4=>seg<=“010010 when eg<=-10110110 when6=>seg<=“101111 when7=>seg<=1110000 when8=>seg<=“1111110 23456789a when9=>seg<="1110110″; when10=>seg<=“11101110; when11=>seg<=“00111110 when12=>seg<=“100110; when13=>seg<=“01111010 when14=>seg<="10011110 cdef when15=>seg<=110001110; when others = null end case end process; end one:process(data) -- 7段译码 begin case data is when 0 => seg <= “11111100” ； -- 0 when 1 => seg <= “01100000” ； -- 1 when 2 => seg <= “11011010” ； -- 2 when 3 => seg <= “11110010” ； -- 3 when 4 => seg <= “01100110” ； -- 4 when 5 => seg <= “10110110” ； -- 5 when 6 => seg <= “10111110” ； -- 6 when 7 => seg <= “11100000” ； -- 7 when 8 => seg <= “11111110” ； -- 8 when 9 => seg <= “11110110” ； -- 9 when 10 => seg <= “11101110” ； -- a when 11 => seg <= “00111110” ； -- b when 12 => seg <= “10011100” ； -- c when 13 => seg <= “01111010” ； -- d when 14 => seg <= “10011110” ； -- e when 15 => seg <= “10001110” ； -- f when others => null; end case; end process; end one;