【正文】 = if(k=39。039。 and up=39。139。)then hourH=hourH+1。 elsif( p=39。039。 and down=39。139。)then hourH= hourH1。 end if。 when 2 = if( k=39。039。 and up=39。139。)then hourL= hourL+1。 elsif( p=39。039。 and down=39。139。)then hourL= hourL1。 end if。 when 3 = if(k=39。039。 and up=39。139。)then minuteH= minuteH +1。 elsif( p=39。039。 and down=39。139。)then minuteH= minuteH 1。 end if。 when 4 = if( k=39。039。 and up=39。139。)then minuteL= minuteL+1。 elsif( p=39。039。 and down=39。139。)then minuteL= minuteL1。 end if。 when 5= if(k=39。039。 and up=39。139。)then secondH= secondH +1。 elsif(p=39。039。 and down=39。139。)then secondH= secondH1。 end if。 when 6 = if( k=39。039。 and up=39。139。)then secondL= secondL +1。 elsif( p=39。039。 and down=39。139。)then secondL= secondL1。 end if。 when others=null。 end case。 end if。 第 7 頁 共 23 頁 此模塊的主要功能是進(jìn)行時(shí)鐘初始時(shí)間的設(shè)置。 設(shè)定 定時(shí) 模塊： if clk39。event and clk = 39。139。 then d=set。 k=up。 p=down。 if time=39。139。 then if ( d=39。039。 and set=39。139。)then stat=stat+1。 end if。 case stat is when 1 = if(k=39。039。 and up=39。139。)then alarm_hourH= alarm_hourH+1。 elsif( p=39。039。 and down=39。139。)then alarm_hourH= alarm_hourH1。 end if。 when 2 = if( k=39。039。 and up=39。139。)then alarm_hourL= alarm_hourL+1。 elsif( p=39。039。 and down=39。139。)then alarm_hourL= alarm_hourL1。 end if。 when 3 = if(k=39。039。 and up=39。139。)then alarm_minuteH= alarm_minuteH +1。 elsif( p=39。039。 and down=39。139。)then alarm_minuteH= alarm_minuteH 1。 end if。 when 4 = if( k=39。039。 and up=39。139。)then alarm_minuteL= alarm_minuteL+1。 elsif( p=39。039。 and down=39。139。)then alarm_minuteL= alarm_minuteL1。 end if。 when 5= if(k=39。039。 and up=39。139。)then alarm_secondH= alarm_secondH +1。 elsif(p=39。039。 and down=39。139。)then alarm_secondH=alarm_secondH1。 end if。 when 6 = if( k=39。039。 and up=39。139。)then alarm_secondL= alarm_secondL +1。 elsif( p=39。039。 and down=39。139。)then 第 8 頁 共 23 頁 alarm_secondL= alarm_secondL1。 end if。 when others=null。 end case。 end if。 此模塊完成鬧鐘的設(shè)定。 顯示模塊設(shè)計(jì) if (time=39。039。) then ahourH=hourH。 ahourL=hourL。 aminuteH=minuteH。 aminuteL=minuteL。 asecondH=secondH。 asecondL=secondL。 elsif(time=39。139。)then ahourH=alarm_hourH。 ahourL= alarm_hourL。 aminuteH= alarm_minuteH。 aminuteL= alarm_minuteL。 asecondH= alarm_secondH。 asecondL= alarm_secondL。 end if。 case t is To display the time. when 0 = L=000。 Enable the leftmost display. case ahourH is when 0 = dled=XFC。0 when 1 = dled=X60。1 when 2 = dled=XDA。2 when others = null。 end case。 when 1 = L=001。 Enable the second display. case ahourL is when 0 = dled=XFC。0 when 1 = dled=X60。1 when 2 = dled=XDA。2 when 3 = dled=XF2。3 when 4 = dled=X66。4 when 5 = dled=XB6。5 when 6 = dled=XBE。6 when 7 = dled=XE0。7 when 8 = dled=XFE。8 第 9 頁 共 23 頁 when 9 = dled=XF6。9 when others = null。 end case。 when 2 = L=010。 Enable the third display. dled=X01。 Blanked. when 3 = L=011。 Enable the fourth display. case aminuteH is when 0 = dled=XFC。0 when 1 = dled=X60。1 when 2 = dled=XDA。2 when 3 = dled=XF2。3 when 4 = dled=X66。4 when 5 = dled=XB6。5 when others = null。 end case。