end if;

else

cnt1：=cnt1+1;

end if;

end if;

end process;

process（p，clk_1k）

begin

if clk_1k=’1‘ and clk_1k’event then

if p=7 then

p《=0;

else

p《=p+1;

end if;

end if;

case p is

when 0 =》 l《=“000”;

when 1 =》 l《=“001”;

when 2 =》 l《=“010”;

when 3 =》 l《=“011”;

when 4 =》 l《=“100”;

when 5 =》 l《=“101”;

when 6 =》 l《=“110”;

when 7 =》 l《=“111”;

when others=》

end case;

end process;

process（clk_1k）

FUNCTION b_to_s7（bcd8421:INTEGER RANGE 0 TO 9） RETURN STD_LOGIC_VECTOR IS

VARIABLE smg7： STD_LOGIC_VECTOR（7 DOWNTO 0）;

BEGIN

CASE bcd8421 IS

WHEN 0 =》 smg7：=“11111100”;

WHEN 1 =》 smg7：=“01100000”;

WHEN 2 =》 smg7：=“11011010”;

WHEN 3 =》 smg7：=“11110010”;

WHEN 4 =》 smg7：=“01100110”;

WHEN 5 =》 smg7：=“10110110”;

WHEN 6 =》 smg7：=“10111110”;

WHEN 7 =》 smg7：=“11100000”;

WHEN 8 =》 smg7：=“11111110”;

WHEN 9 =》 smg7：=“11110110”;

END CASE;

RETURN smg7;

END b_to_s7;

begin

if clk_1k=‘1’ then

case key is

when “11111111”=》bell《=‘0’;

when “11111110”=》 data_o《=b_to_s7（1）;bell《=‘1’;

when “11111101”=》data_o《=b_to_s7（2）;bell《=‘1’;

when “11111011”=》data_o《=b_to_s7（3）;bell《=‘1’;

when “11110111”=》data_o《=b_to_s7（4）;bell《=‘1’;

when “11101111”=》data_o《=b_to_s7（5）;bell《=‘1’;

when “11011111”=》data_o《=b_to_s7（6）;bell《=‘1’;

when “10111111”=》data_o《=b_to_s7（7）;bell《=‘1’;

when “01111111”=》data_o《=b_to_s7（8）;bell《=‘1’;

when others=》data_o《=“10001111”;bell《=‘1’;

end case;

end if;

end process;

end an;

所編寫程序經過下載到電路板后，當分別撥動開關sw0—sw7時，在LED數碼管上分別顯示數字1—8，并且蜂鳴器發出聲響，有關部分運行結果的如下圖所示。