process(cnt) 数码管地址扫描 begin case catis when0=>scan<=“00000001";data<=1 K1 when1=>scan<=00000010;data<=2; K when2=>scan<=00000100;data<=4; when3=>scan<=00001000;data<=5; K4 when4=>scan<=“00010000;data<=7; K 5 when5=>scan<=“00100000;daa<=9; -K6 when6=>scan<=“01000000;data<=13; K7 when7=>scan<=“1000000;data<=15; -K8 when others => nule end case; end processprocess(cnt) --数码管地址扫描 begin case cnt is when 0 => scan <=“00000001”; data<=1; --K1 when 1 => scan <=“00000010”; data<=2; --K2 when 2 => scan <=“00000100”; data<=4; --K3 when 3 => scan <=“00001000”; data<=5; --K4 when 4 => scan <=“00010000”; data<=7; --K5 when 5 => scan <=“00100000”; data<=9; --K6 when 6 => scan <=“01000000”; data<=13; --K7 when 7 => scan <=“10000000”; data<=15; --K8 when others => null; end case; end process;