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