华东交通大学
end if; end if; end process p6; P7:process(tmpclk,cnt4) begin
if tmpclk'event and tmpclk='1' and cnt4<8 then case cnt4 is
when 0=> selbit <=\
when 1=> selbit <=\ when 2=> selbit <=\ when 3=> selbit <=\;tmpbcdnum<=curcustom_hh; when 4=> selbit <=\ when 5=> selbit <=\ when 6=> selbit <=\ when 7=> selbit <=\ when others=>selbit<=\ end case; ——给每个数码管赋值见图四; end if; end process p7; P8:process(tmpbcdnum) begin
case tmpbcdnum is
第 19 页 共 22 页
华东交通大学
when \ ——段选位显示“0”的字样; when \ ——段选位显示“1”的字样; when \ ——段选位显示“2”的字样; when \ ——段选位显示“3”的字样; when \ ——段选位显示“4”的字样; when \ ——段选位显示“5”的字样; when \ ——段选位显示“6”的字样; when \ ——段选位显示“7”的字样; when \ ——段选位显示“8”的字样; when \ ——段选位显示“9”的字样; when others=>lednum<=\ ——段选位无任何输出; end case; end process p8; end;
第 20 页 共 22 页

