【正文】 。 signal s : std_logic_vector(2 downto 0)。event and clk=39。) then if(clk_count10000) then clk_count=clk_count+1。 end if。 clk1HZ=clk_count(13)。 process(clk) begin if(clk39。139。 seg=dis。 end process。event and clk1Hz=39。) then if(key=39。) then 緊急情況到來 count_nanbei=count_nanbei。 else count_nanbei=count_nanbei+1。 end if。 end process。event and clk1Hz=39。) then if(key=39。) then 緊急情況到來 count_dongxi=count_dongxi。 else count_dongxi=count_dongxi+1。 end if。 end process。039。139。039。039。139。039。039。139。039。039。039。039。139。039。139。039。039。139。039。039。039。139。139。039。039。 end if。 end process。 num_dongxi=20count_dongxi。 num_dongxi=25count_dongxi。 num_dongxi=45count_dongxi。 end if。 process(num_nanbei) 南北時間顯示分位 begin if(num_nanbei10) then s_n_gewei=num_nanbei。 else if(num_nanbei=10)then s_n_shiwei=num_nanbei/10。 end if。 end process。 e_w_shiwei=0。 e_w_gewei=num_dongxi mod 10。 end if。 process(del) begin case del+1 is 位選掃描加1 when 000=display=e_w_shiwei。 第二個數(shù)碼管顯示東西個位 when 010=display=10。 滅 when 100=display=10。 滅 when 110=display=s_n_shiwei。 第八個數(shù)碼管顯示南北個位 end case。 process(display) begin case display is when 0=dis=00111111。 1 when 2=dis=01011011。 3 when 4=dis=01100110。 5 when 6=dis=01111101。 7 when 8=dis=01111111。 9 when others=dis=00000000。 end process。event and clk=39。)then dount=dount+1。 else s=s+1。 s=s+1。 end if。 else cdount=0000。 end if。 end process。 when 0001=hang=0001000010000001。 when 0011=hang=0001001000000010。 when 0101=hang=0001000010001000。 when 0111=hang=0111000000100000。 when 1001=hang=0001000010001000。 when 1011=hang=0001010000000100。 when 1101=hang=0011001100000011。 when 1111=hang=0000000000000000。 else if s=01 then 通 case cdount is when 0000=hang=0000001000000000。 when 0010=hang=0010001000000100。 when 0100=hang=0000000000000100。 when 0110=hang=1000111111111101。 when 1000=hang=1010100100100001。 when 1010=hang=1010100100101001。 when 1100=hang=1001111111110001。 when 1110=hang=0000000000000010。 end case； else if s1 then 燈 case cdount is when 0000=hang=0000000100000010。 when 0010=hang=0000000000011000。 when 0100=hang=0000010000010000。 when 0110=hang=0010000000000000。 when 1000=hang=0010000000000010。 when 1010=hang=0011111111111110。 when 1100=hang=0010000000000000。 when 1110=hang=0010000000000000。 end case。 end if。 end process。 22