【正文】 wait for clk_peri。end process。wait for clk_period*10。wait for clk_period*10。wait for clk_period*10。wait for clk_period*10。wait for clk_period*10。wait for clk_period*10。wait for clk_period*10。wait for clk_period*10。wait for clk_period*70。 end process。run=2013。 run = 2016。 clk_process :process begin run=2013。 end ponent。039。 y2a: in integer:=2013 。 d2a: in integer:=1。 mn2a:in integer:=20 。 y1a: in integer:=2013 。 d1a: in integer:=1。 mn1a:in integer:=30 。 ponent alarm_clock port( run:in integer :=2016。 。signal ring: std_logic:=39。signal m2a: integer:=12 。signal h2a: integer:=10 。signal s2a: integer:=0 。signal m1a: integer:=12 。signal h1a: integer:=12 。signal s1a: integer:=0 。entity test is end test。use 。end。end if。時間比較一致（這里只設(shè)計時分作為鬧鐘，如果要設(shè)置年月日時分秒的鬧鐘，可以添加各個對應(yīng)時間的比較），提醒else ring=39。 是閏年，提醒elsif (mn1a=mn2a and h1a=h2a ) then ring=39。architecture one of alarm_clock is beginprocess(s2a,mn2a,h2a,d2a,m2a,y2a,s1a,mn1a,h1a,d1a,m1a,y1a ,run)beginif ( run rem 4 =0 ) then ring=39。 ring: out std_logic )。 m2a: in integer range 1 to 12。 h2a: in integer range 0 to 59。 s2a:in integer range 0 to 59 。 m1a: in integer range 1 to 12。 h1a: in integer range 0 to 23。 s1a:in integer range 0 to 59。use 。Alarm_clock（鬧鐘）模塊： library ieee。 end process。wait for clk_period*100。wait for clk_period*100。wait for clk_period*100。alarmy=39。039。wait for clk_period*100。 Stimulus process stim_proc: process begin sety=39。 wait for clk_period/2。 clky = 39。139。 begin DUT :year port map(clky,sety,alarmy,ya,ys,qty1,qty2,yx,yy)。 yy : out integer:=2013)。 qty2: out integer:=2013。 ys : in integer:=2013。139。139。139。 constant clk_period : time := 1ms。 signal yx : integer :=2013。 signal qty2 : integer :=2013。 signal ys : integer :=2013。139。039。039。entity test is end test。use 。end nian。qty2=qy。end process。 then yx=ya。process(alarmy,ya)beginif alarmy=39。 end if。 else qy=qy+1。139。 elsif(clky39。139。architecture nian of year issignal qy:integer range 2013 to 2099。 yy: out integer range 2013 to 2099) 。 qty2: out integer range 2013 to 2099。設(shè)置從2013年到2099年 ys: in integer range 2013 to 2099。 alarmy: in std_logic。entity year isport ( clky: in std_logic。use 。Years模塊：library ieee。end process。wait for clk_period*100。wait for clk_period*100。wait for clk_period*100。alarmm=39。039。wait for clk_period*100。stim_proc: processbegin setm=39。 wait for clk_period/2。 clkm = 39。139。 begin DUT :month port map(clkm,setm,alarmm,ma,mts,qtm1,qtm2,clk4,mx,my)。 my : out integer:=12)。 clk4 : out std_logic。 qtm1 : out integer:=12。 ma : in integer:=12。 alarmm : in std_logic:=39。 setm : in std_logic:=39。ponent monthport( clkm : in std_logic:=39。 signal my : integer :=12。 signal clk4 : std_logic。signal qtm1 : integer :=12。signal ma : integer :=12。signal alarmm : std_logic:=39。signal setm : std_logic:=39。architecture one of test issignal clkm : std_logic:=39。use 。月testbenchlibrary ieee。my=qm。qtm1=qm。end if。139。end process。 end if。 clk4=39。139。) then if(qm=12) then qm=1。event and clkm=39。 end if。 then if mts=0 then qm=qm。begin process(clkm,setm,mts) begin if setm=39。 end month。 mx: out integer range 1 to 12。 qtm2: out integer range 1 to 12。 mts: in integer range 1 to 12。 alarmm: in std_logic。entity month isport ( clkm: in std_logic。Month模塊：library ieee。 end process。wait for clk_period*100。wait for clk_period*100。wait for clk_period*200。wait for clk_period*800。wait for clk_period*100。alarmd=39。039。wait for clk_period*100。 Stimulus process stim_proc: process begin setd=39。 wait for clk_period/2。 clkd = 39。139。 begin DUT :day port map(clkd,setd,alarmd,yearin,monthin,da,ds,qtd,clk2,dx,dy)。 dy : out integer:=1)。 clk2:out std_logic。 ds : in integer:=1。 monthin:in integer :=12。139。139。139。 constant clk_period : time := 1ms。 signal dx : integer :=1。 signal qtd : integer :=1。 signal da : integer :=1。signal yearin : integer :=2013。signal alarmd : std_logic:=39。signal setd : std_logic:=39。architecture one of test issignal clkd : std_logic:=39。use 。天testbenchlibrary ieee。end process。 then dx=da。 process(alarmd,da)beginif alarmd=39。 dy=qd。 end if。 end if。 clk2=39。139。 elsif ((monthin=4) or (monthin=6) or (monthin=9) or (monthin=11)) then非閏年中月30天 if(qd=30) then qd=1。039。 elsif qd28 then qd=qd+1。 clk2=39。 end if。 clk2=39。139。 elsif ((monthin=1) or (monthin=3) or (monthin=5) or (monthin=7) or (monthin=8) or (monthin=10) or (monthin=12)) then 非閏年大月份31天 if(qd=31) then qd=1。 end if。 clk2=39。139。 elsif ((monthin=4) or (monthin=6) or (monthin=9) or (monthin=11)) then if(qd=30) then 當(dāng)前為中月30天 qd=1。039。 elsif qd29 then qd=qd+1。 clk2=39。 end if。 clk2=39。139。) then if ( yea