【正文】 CASE。96 WHEN OTHERS =IS_RUNYEAR:=39。92 WHEN1100000=IS_RUNYEAR:=39。88 WHEN1011100=IS_RUNYEAR:=39。84 WHEN1011000=IS_RUNYEAR:=39。80 WHEN1010100=IS_RUNYEAR:=39。76 WHEN1010000=IS_RUNYEAR:=39。72 WHEN1001100=IS_RUNYEAR:=39。68 WHEN1001000=IS_RUNYEAR:=39。64 WHEN1000100=IS_RUNYEAR:=39。60 WHEN1000000=IS_RUNYEAR:=39。56 WHEN0111100=IS_RUNYEAR:=39。52 WHEN0111000=IS_RUNYEAR:=39。48 WHEN0110100=IS_RUNYEAR:=39。44 WHEN0110000=IS_RUNYEAR:=39。30 WHEN0101100=IS_RUNYEAR:=39。36 WHEN0101000=IS_RUNYEAR:=39。32 WHEN0100100=IS_RUNYEAR:=39。28 WHEN0100000=IS_RUNYEAR:=39。24 WHEN0011100=IS_RUNYEAR:=39。20 WHEN0011000=IS_RUNYEAR:=39。16 WHEN0010100=IS_RUNYEAR:=39。12 WHEN0010000=IS_RUNYEAR:=39。8 WHEN0001100=IS_RUNYEAR:=39。4 WHEN0001000=IS_RUNYEAR:=39。0 WHEN0000100=IS_RUNYEAR:=39。 BEGIN CASE YEAR IS WHEN0000000=IS_RUNYEAR:=39。ARCHITECTURE ART2 OF CNT30A IS SIGNAL TOTAL_DAYS:STD_LOGIC_VECTOR(4 DOWNTO 0)。 CO:OUT STD_LOGIC)。 NUM:BUFFER STD_LOGIC_VECTOR(4 DOWNTO 0)。 MONTH:IN STD_LOGIC_VECTOR(3 DOWNTO 0)。 CLK: IN STD_LOGIC。USE 。 、CNT30計(jì)時(shí)電路的VHDL源程序LIBRARY IEEE。 END PROCESS。 END IF。CO=39。139。THEN IF NUM=111011THEN NUM=000000。EVENT AND CLK=39。)THEN NUM=DATA。ARCHITECTURE ART1 OF CNT60 IS BEGIN PROCESS(CLK,LD)IS BEGIN IF(LD=39。 CO:OUT STD_LOGIC)。 DATA:IN STD_LOGIC_VECTOR(5 DOWNTO 0)。ENTITY CNT60 IS PORT(LD:IN STD_LOGIC。USE 。END ARCHITECTURE ART4。 END IF。 END CASE。 END IF。 IF WEEK=111 THEN WEEK=001。 WHEN WEEK_SET=WEEK_EN=39。IF99 ELSE YEAR=YEAR+1。039。 END IF。 IF MON=1100 THEN MON=0001。 WHEN MON_SET=MON_EN=39。 ELSE DAY=DAY+1。039。 END IF。 IF HOUR=11000THEN HOUR=00000。 WHEN HOUR_SET=HOUR_EN=39。IF59 ELSE MIN=MIN+1。039。 END IF。 IF SEC=111011THEN SEC=000000。 ELSIF KEY=10THEN CASE MODE IS WHEN SEC_SET=SEC_EN=39。 WHEN WEEK_SET=MODE=NORMAL。WEEK_EN=39。YEAR_EN=39。 WHEN YEAR_SET=MODE=WEEK_SET。YEAR_EN=39。MON_EN=39。 WHEN MON_SET=MODE=YEAR_SET。MON_EN=39。DAY_EN=39。 WHEN DAY_SET=MODE=MON_SET。DAY_EN=39。HOUR_EN=39。 WHEN HOUR_SET=MODE=DAY_SET。HOUR_EN=39。MIN_EN=39。 WHEN MIN_SET=MODE=HOUR_SET。MIN=39。SEC_EN=39。 WHEN SEC_SET=MODE=MIN_SET。SEC_EN=39。 CASE MODE IS WHEN NORMAL= MODE=SEC_SET。 WEEK_EN=39。YEAR_EN=39。MON_EN=39。 DAY_EN=39。HOUR_EN=39。MIN_EN=39。THEN IF KEY=01THEN SEC_EN=39。EVENT AND CLK_KEY=39。 SIGNAL MODE:STATETYPE。END ENTITY TZKZQ。 DAY:BUFFER STD_LOGIC_VECTOR(4 DOWNTO 0)。 YEAR:BUFFER STD_LOGIC_VECTOR(6 DOWNTO 0)。 SEC,MIN:BUFFER STD_LOGIC_VECTOR(5 DOWNTO 0)。 DAY_CUR:IN STD_LOGIC_VECTOR(4 DOWNTO 0)。 YEAR_CUR:IN STD_LOGIC_VECTOR(6 DOWNTO 0)。 HOUR_CUR:IN STD_LOGIC_VECTOR(4 DOWNTO 0)。 KEY:IN STD_LOGIC_VECTOR(1 DOWNTO 0)。 SEC_EN,MIN_EN,HOUR_EN, DAY_EN,MON_EN,YEAR_EN, WEEK_EN:OUT STD_LOGIC。USE 。2調(diào)整控制電路TZKZQ的VHDL源程序LIBRARY IEEE。 END PROCESS。 WHEN OTHERS=BCD_DATA=00000000。 WHEN 98=BCD_DATA=10011000。 WHEN 96=BCD_DATA=10010110。 WHEN 94=BCD_DATA=10010100。 WHEN 92=BCD_DATA=10010010。 WHEN 90=BCD_DATA=10010000。 WHEN 88=BCD_DATA=10001000。 WHEN 86=BCD_DATA=10000110。 WHEN 84=BCD_DATA=10000100。 WHEN 82=BCD_DATA=10000010。 WHEN 80=BCD_DATA=10000000。 WHEN 78=BCD_DATA=01111000。 WHEN 76=BCD_DATA=01110110。 WHEN 74=BCD_DATA=01110100。 WHEN 72=BCD_DATA=01110010。 WHEN 70=BCD_DATA=01110000。 WHEN 68=BCD_DATA=01101000。 WHEN 66=BCD_DATA=01100110。 WHEN 64=BCD_DATA=01100100。 WHEN 62=BCD_DATA=01100010。 WHEN 60=BCD_DATA=01100000。 WHEN 58=BCD_DATA=01011000。 WHEN 56=BCD_DATA=01010110。 WHEN 54=BCD_DATA=01010100。 WHEN 52=BCD_DATA=01010010。 WHEN 50=BCD_DATA=01010000。 WHEN 48=BCD_DATA=01001000。 WHEN 46=BCD_DATA=01000110。 WHEN 44=BCD_DATA=01000100。 WHEN 42=BCD_DATA=01000010。 WHEN 40=BCD_DATA=01000000。 WHEN 38=BCD_DATA=00111000。 WHEN 36=BCD_DATA=00110110。 WHEN 34=BCD_DATA=00110100。 WHEN 32=BCD_DATA=00110010。 WHEN 30=BCD_DATA=00