【正文】 和和綜合計時電路組轉而成。USE 。USE 。 SEC,MIN:IN STD_LOGIC_VECTOR(5 DOWNTO 0)。 DAY:IN STD_LOGIC_VECTOR(4 DOWNTO 0)。 YEAR:IN STD_LOGIC_VECTOR(6 DOWNTO 0)。 SELOUT:OUT STD_LOGIC_VECTOR(2 DOWNTO 0)。END ENTITY DISPLAY。 SIGNAL CNT:STD_LOGIC_VECTOR(2 DOWNTO 0)。EVENT AND CLK_SCAN=39。THEN IF CNT=111THEN CNT=000。139。 END IF。 SELOUT=CNT。 WHEN001=TEMP=CONV_INTEGER(MIN)。 WHEN011=TEMP=CONV_INTEGER(DAY)。 WHEN101=TEMP=CONV_INTEGER(YEAR)。 WHEN111=TEMP=CONV_INTEGER(WEEK)。 END CASE。 WHEN 1=BCD_DATA=00000001。 WHEN 3=BCD_DATA=00000011。 WHEN 5=BCD_DATA=00000101。 WHEN 7=BCD_DATA=00000111。 WHEN 9=BCD_DATA=00001001。 WHEN 11=BCD_DATA=00010001。 WHEN 13=BCD_DATA=00010011。 WHEN 15=BCD_DATA=00010101。 WHEN 17=BCD_DATA=00010111。 WHEN 19=BCD_DATA=00011001。 WHEN 21=BCD_DATA=00100001。 WHEN 23=BCD_DATA=00100011。 WHEN 25=BCD_DATA=00100101。 WHEN 27=BCD_DATA=00100111。 WHEN 29=BCD_DATA=00101001。 WHEN 31=BCD_DATA=00110001。 WHEN 33=BCD_DATA=00110011。 WHEN 35=BCD_DATA=00110101。 WHEN 37=BCD_DATA=00110111。 WHEN 39=BCD_DATA=00111001。 WHEN 41=BCD_DATA=01000001。 WHEN 43=BCD_DATA=01000011。 WHEN 45=BCD_DATA=01000101。 WHEN 47=BCD_DATA=01000111。 WHEN 49=BCD_DATA=01001001。 WHEN 51=BCD_DATA=01010001。 WHEN 53=BCD_DATA=01010011。 WHEN 55=BCD_DATA=01010101。 WHEN 57=BCD_DATA=01010111。 WHEN 59=BCD_DATA=01011001。 WHEN 61=BCD_DATA=01100001。 WHEN 63=BCD_DATA=01100011。 WHEN 65=BCD_DATA=01100101。 WHEN 67=BCD_DATA=01100111。 WHEN 69=BCD_DATA=01101001。 WHEN 71=BCD_DATA=01110001。 WHEN 73=BCD_DATA=01110011。 WHEN 75=BCD_DATA=01110101。 WHEN 77=BCD_DATA=01110111。 WHEN 79=BCD_DATA=01111001。 WHEN 81=BCD_DATA=10000001。 WHEN 83=BCD_DATA=10000011。 WHEN 85=BCD_DATA=10000101。 WHEN 87=BCD_DATA=10000111。 WHEN 89=BCD_DATA=10001001。 WHEN 91=BCD_DATA=10010001。 WHEN 93=BCD_DATA=10010011。 WHEN 95=BCD_DATA=10010101。 WHEN 97=BCD_DATA=10010111。 WHEN 99=BCD_DATA=10011001。 END CASE。END ARCHITECTURE ART3。USE 。ENTITY TZKZQ IS PORT( CLK_KEY:IN STD_LOGIC。 CURRUT_MONTH_DAYS:IN STD_LOGIC_VECTOR(4 DOWNTO 0)。 SEC_CUR:IN STD_LOGIC_VECTOR(5 DOWNTO 0)。 MIN_CUR:IN STD_LOGIC_VECTOR(5 DOWNTO 0)。 MON_CUR:IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 WEEK_CUR:IN STD_LOGIC_VECTOR(2 DOWNTO 0)。 HOUR:BUFFER STD_LOGIC_VECTOR(4 DOWNTO 0)。 MON:BUFFER STD_LOGIC_VECTOR(3 DOWNTO 0)。 WEEK:BUFFER STD_LOGIC_VECTOR(2 DOWNTO 0))。ARCHITECTURE ART4 OF TZKZQ IS TYPE STATETYPE IS(NORMAL,SEC_SET,MIN_SET,HOUR_SET,DAY_SET,MON_SET,YEAR_SET,WEEK_SET)。 BEGIN PROCESS(KEY,CLK_KEY)IS BEGIN IF CLK_KEY39。139。139。139。139。139。139。139。139。SEC=SEC_CUR。039。MIN=MIN_CUR。139。039。 HOUR=HOUR_CUR。139。039。 DAY=DAY_CUR。139。039。 MON=MON_CUR。139。039。 YEAR=YEAR_CUR。139。039。 WEEK=WEEK_CUR。139。039。 END CASE。039。IF59 ELSE SEC=SEC+1。 WHEN MIN_SET=MIN_EN=39。 IF MIN=111011THEN MIN=000000。 END IF。039。IF23 ELSE HOUR=HOUR+1。 WHEN DAY_SET=DAY_EN=39。 IF DAY=CURRUT_MONTH_DAYS THEN DAY=00001。 END IF。039。IF12 ELSE MON=MON+1。 WHEN YEAR_SET=YEAR_EN=39。 IF YEAR=1100011 THEN YEAR=0000000。 END IF。039。IF7 ELSE WEEK=WEEK+1。 WHEN OTHERS=NULL。 END IF。 END PROCESS。、CNT60計數(shù)模塊的VHDL源程序LIBRARY IEEE。USE 。 CLK:IN STD_LOGIC。 NUM:BUFFER STD_LOGIC_VECTOR(5 DOWNTO 0)。END ENTITY CNT60。039。 ELSIF CLK39。139。CO=39。 ELSE NUM=NUM+1。039。 END IF。END ARCHITECTURE ART1。USE 。ENTITY CNT30A IS PORT(LD:IN STD_LOGIC。 YEAR:IN STD_LOGIC_VECTOR(6 DOWNTO 0)。 DATA:IN STD_LOGIC_VECTOR(4 DOWNTO 0)。 CURRUT_MONTH_DAYS:OUT STD_LOGIC_VECTOR(4 DOWNTO 0)。END ENTITY CNT30A。 BEGIN PROCESS(CLK,LD)IS VARIABLE IS_RUNYEAR:STD_LOGIC。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。139。039。 CASE MONTH IS WHEN0000=TOTAL_DAYS=11111。3YUE WHEN0101=TOTAL_DAYS=11111。7YUE WHEN1000=TOTAL_DAYS=11111。10YUE WHEN1100=TOTAL_DAYS=11111。4YUE WHEN0110=TOTAL_DAYS=11110。9YUE WHEN1011=TOTAL_DAYS=11110。139。29