【正文】
。 END PROCESS lamper。 END IF。 count=count+1。 ELSIF(count=10)THEN lamp=100。 lamper:PROCESS(clk) BEGIN IF(rising_edge(clk))THEN IF(count=10)THEN IF(count=00)THEN lamp=001。 END IF 。 END IF 。)THEN IF(dain=0000000)THEN IF(count1=10)THEN count1=00。event and clk=39。 BEGIN speaker:PROCESS(clk) BEGIN speak=count1(1)。 ARCHITECTURE fun OF alert IS SIGNAL count:STD_LOGIC_VECTOR(1 DOWNTO 0)。 lamp:OUT STD_LOGIC_VECTOR(2 DOWNTO 0))。 dain:IN STD_LOGIC_VECTOR(6 DOWNTO 0)。 USE 。 整點(diǎn)報(bào)時(shí)模塊 VHDL 語言源程序 LIBRARY IEEE。 END PROCESS。 END IF。 ELSIF (count1623)THEN count=count+1。 else count=000000。139。 ELSIF(clk39。039。 BEGIN daout=count。 END ENTITY hour。 ENTITY hour IS PORT(clk,reset:IN STD_LOGIC。 use 。 END fun。 END IF。 ELSE count=0000000。039。 ELSIF (count 1660) THEN count=count+1。 ELSE count=0000000。 ELSE count=count+7。139。139。 14 ELSIF(clk39。039。 enhour= (enhour_1 or enhour_2)。 BEGIN daout=count。 ARCHITECTURE fun OF minute IS SIGNAL count :STD_LOGIC_VECTOR (6 DOWNTO 0)。 daout:OUT STD_LOGIC_VECTOR(6 DOWNTO 0))。 ENTITY minute IS PORT(clk,clk1,reset,sethour:IN STD_LOGIC。 USE 。 END fun。 END IF。 ELSE count=0000000。03