源代碼如下自己把各個模塊打好包下面有個圖?自己看看
LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL;
USE?IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY?TZKZQ?IS
PORT(KEY:?IN?STD_LOGIC_VECTOR(1?DOWNTO?0);?--按鍵信號
CLK_KEY:?IN?STD_LOGIC;?--鍵盤掃描信號 MAX_DAYS:IN?STD_LOGIC_VECTOR(4?DOWNTO?0);--本月最大天數 SEC_EN,MIN_EN,HOUR_EN,DAY_EN,MON_EN,YEAR_EN,WEEK_EN:OUT?STD_LOGIC;?--異步並行置位使能 HOUR_CUR:IN?STD_LOGIC_VECTOR(4?DOWNTO?0);? MIN_CUR,SEC_CUR:IN?STD_LOGIC_VECTOR(5?DOWNTO?0); YEAR_CUR:IN?STD_LOGIC_VECTOR(6?DOWNTO?0); MON_CUR?:IN?STD_LOGIC_VECTOR(3?DOWNTO?0); DAY_CUR?:IN?STD_LOGIC_VECTOR(4?DOWNTO?0); WEEK_CUR:IN?STD_LOGIC_VECTOR(2?DOWNTO?0); SEC,MIN:BUFFER?STD_LOGIC_VECTOR(5?DOWNTO?0); HOUR:BUFFER?STD_LOGIC_VECTOR(4?DOWNTO?0);? DAY?:BUFFER?STD_LOGIC_VECTOR(4?DOWNTO?0); MON?:BUFFER?STD_LOGIC_VECTOR(3?DOWNTO?0); YEAR:BUFFER?STD_LOGIC_VECTOR(6?DOWNTO?0); WEEK:BUFFER?STD_LOGIC_VECTOR(2?DOWNTO?0));END?ENTITY?TZKZQ;
ARCHITECTURE?ART?OF?TZKZQ?IS
TYPE?STATETYPE?IS?(NORMAL,SEC_SET,MIN_SET,HOUR_SET,DAY_SET,MON_SET,
YEAR_SET,WEEK_SET);
SIGNAL?MODE:STATETYPE;
BEGIN
PROCESS(KEY,CLK_KEY)
BEGIN?
IF?CLK_KEY'EVENT?AND?CLK_KEY='1'?THEN
IF?KEY="01"?THEN?
SEC_EN<='1';MIN_EN<='1';HOUR_EN<='1';
DAY_EN<='1';MON_EN<='1';YEAR_EN<='1';
WEEK_EN<='1';
CASE?MODE?IS? WHEN?NORMAL?=>MODE<=SEC_SET;SEC<=SEC_CUR;SEC_EN<='0'; WHEN?SEC_SET?=>?MODE<=MIN_SET;MIN<=MIN_CUR;SEC_EN<='1';MIN_EN<='0';? WHEN?MIN_SET?=>?MODE<=HOUR_SET;HOUR<=HOUR_CUR;MIN_EN<='1';HOUR_EN<='0'; WHEN?HOUR_SET=>?MODE<=DAY_SET;DAY<=DAY_CUR;HOUR_EN<='1';DAY_EN<='0'; WHEN?DAY_SET?=>?MODE<=MON_SET;MON<=MON_CUR;DAY_EN<='1';MON_EN<='0'; WHEN?MON_SET?=>?MODE<=YEAR_SET;YEAR<=YEAR_CUR;?MON_EN<='1';YEAR_EN<='0';
WHEN?YEAR_SET?=>?MODE<=WEEK_SET;WEEK<=WEEK_CUR;YEAR_EN<='1';WEEK_EN<='0'; WHEN?WEEK_SET?=>?MODE<=NORMAL; END?CASE; ELSIF?KEY="10"?THEN--如果按下調整鍵，則自加? CASE?MODE?ISWHEN?SEC_SET?=>?SEC_EN<='0';
--異步並行置位使能有效
IF?SEC="111011"?THEN?SEC<="000000"; --如果秒計數到59，返回到0重新計數 ELSE?SEC<=SEC+1;?--否則繼續計數 END?IF;WHEN?MIN_SET?=>?MIN_EN<='0';
IF?MIN="111011"?THEN?MIN<="000000"; ELSE?MIN<=MIN+1;? END?IF;WHEN?HOUR_SET=>?HOUR_EN<='0';
IF?HOUR="11000"?THENHOUR<="00000"; ELSE?HOUR<=HOUR+1; END?IF;WHEN?DAY_SET?=>?DAY_EN<='0';
IF?DAY=MAX_DAYS?THEN?DAY<="00001"; ELSE?DAY<=DAY+1; END?IF; WHEN?WEEK_SET=>?WEEK_EN<='0'; IF?WEEK="111"?THEN?WEEK<="001"; ELSE?WEEK<=WEEK+1; END?IF; WHEN?OTHERS=>NULL; END?CASE; END?IF; END?IF; END?PROCESS; END?ARCHITECTURE?ART;LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL; USE?IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY?CNT60?IS?PORT(LD:?IN?STD_LOGIC;?
CLK:?IN?STD_LOGIC;?
DATA:?IN?STD_LOGIC_VECTOR(5?DOWNTO?0);?
NUM:?BUFFER?STD_LOGIC_VECTOR(5?DOWNTO?0);?
CO:?OUT?STD_LOGIC);
END?ENTITY?CNT60; ARCHITECTURE?ART?OF?CNT60?ISBEGIN
PROCESS(CLK,LD)?IS BEGIN IF(LD='0')?THEN NUM<=DATA;? ELSIF?CLK'EVENT?AND?CLK='1'?THEN IF?NUM="111011"?THEN?--59NUM<="000000";CO<='1';
ELSE?NUM<=NUM+1;CO<='0';
END?IF; END?IF;END?PROCESS;
END?ARCHITECTURE?ART;
LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL; USE?IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY?CNT60?IS?PORT(LD:?IN?STD_LOGIC;?
CLK:?IN?STD_LOGIC;?
DATA:?IN?STD_LOGIC_VECTOR(5?DOWNTO?0);?
NUM:?BUFFER?STD_LOGIC_VECTOR(5?DOWNTO?0);?
CO:?OUT?STD_LOGIC);
END?ENTITY?CNT60; ARCHITECTURE?ART?OF?CNT60?ISBEGIN
PROCESS(CLK,LD)?IS BEGIN IF(LD='0')?THEN NUM<=DATA;? ELSIF?CLK'EVENT?AND?CLK='1'?THEN IF?NUM="111011"?THEN?--59NUM<="000000";CO<='1';
ELSE?NUM<=NUM+1;CO<='0';
END?IF; END?IF;END?PROCESS;
END?ARCHITECTURE?ART;
LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL; USE?IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY?CNT24?IS?PORT(LD:?IN?STD_LOGIC;?
CLK:?IN?STD_LOGIC;?
DATA:?IN?STD_LOGIC_VECTOR(4?DOWNTO?0);?
NUM:?BUFFER?STD_LOGIC_VECTOR(4?DOWNTO?0);?
CO:?OUT?STD_LOGIC);
END?ENTITY?CNT24; ARCHITECTURE?ART?OF?CNT24?ISBEGIN
PROCESS(CLK,LD)?IS BEGIN IF(LD='0')?THEN NUM<=DATA;? ELSIF?CLK'EVENT?AND?CLK='1'?THEN IF?NUM="11000"?THEN?--24NUM<="00000";CO<='1';
ELSE?NUM<=NUM+1;CO<='0';
END?IF; END?IF;END?PROCESS;
END?ARCHITECTURE?ART;
LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL; USE?IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY?CNT30?IS PORT(LD:IN?STD_LOGIC;?CLK:IN?STD_LOGIC;
NIAN:IN?STD_LOGIC_VECTOR(6?DOWNTO?0);?
YUE?:IN?STD_LOGIC_VECTOR(3?DOWNTO?0);?
DATA:IN?STD_LOGIC_VECTOR(4?DOWNTO?0);?
NUM:BUFFER?STD_LOGIC_VECTOR(4?DOWNTO?0); MAX_DAYS:OUT?STD_LOGIC_VECTOR(4?DOWNTO?0); CO:OUT?STD_LOGIC); END?ENTITY?CNT30;ARCHITECTURE?ART?OF?CNT30?IS
SIGNAL?TOTAL_DAYS:STD_LOGIC_VECTOR(4?DOWNTO?0); BEGIN PROCESS(CLK,LD)?IS VARIABLE?IS_RUNNIAN:STD_LOGIC; BEGIN CASE?NIAN?IS? WHEN?"0000000"?=>?IS_RUNNIAN:='1';?--0? WHEN?"0000100"?=>?IS_RUNNIAN:='1';--4 WHEN?"0001000"?=>?IS_RUNNIAN:='1';--8 WHEN?"0001100"?=>?IS_RUNNIAN:='1';--12 WHEN?"0010000"?=>?IS_RUNNIAN:='1';--16 WHEN?"0010100"?=>?IS_RUNNIAN:='1';--20 WHEN?"0011000"?=>?IS_RUNNIAN:='1';--24 WHEN?"0011100"?=>?IS_RUNNIAN:='1';--28 WHEN?"0100000"?=>?IS_RUNNIAN:='1';--32 WHEN?"0100100"?=>?IS_RUNNIAN:='1';--36 WHEN?"0101000"?=>?IS_RUNNIAN:='1';--40 WHEN?"0101100"?=>?IS_RUNNIAN:='1';--44 WHEN?"0110000"?=>?IS_RUNNIAN:='1';--48 WHEN?"0110100"?=>?IS_RUNNIAN:='1';--52 WHEN?"0111000"?=>?IS_RUNNIAN:='1';--56 WHEN?"0111100"?=>?IS_RUNNIAN:='1';--60 WHEN?"1000000"?=>?IS_RUNNIAN:='1';--64 WHEN?"1000100"?=>?IS_RUNNIAN:='1';--68 WHEN?"1001000"?=>?IS_RUNNIAN:='1';--72 WHEN?"1001100"?=>?IS_RUNNIAN:='1';--76 WHEN?"1010000"?=>?IS_RUNNIAN:='1';--80 WHEN?"1010100"?=>?IS_RUNNIAN:='1';--84 WHEN?"1011000"?=>?IS_RUNNIAN:='1';--88 WHEN?"1011100"?=>?IS_RUNNIAN:='1';--92 WHEN?"1100000"?=>?IS_RUNNIAN:='1';--96 WHEN?OTHERS=>?IS_RUNNIAN:='0'; END?CASE; CASE?YUE?IS WHEN?"0001"=>?TOTAL_DAYS<="11111";?--1 WHEN?"0011"=>?TOTAL_DAYS<="11111";--3 WHEN?"0101"=>?TOTAL_DAYS<="11111";--5 WHEN?"0111"=>?TOTAL_DAYS<="11111";--7 WHEN?"1000"=>?TOTAL_DAYS<="11111";--8 WHEN?"1010"=>?TOTAL_DAYS<="11111";--10 WHEN?"1100"=>?TOTAL_DAYS<="11111";--12 WHEN?"0100"=>?TOTAL_DAYS<="11110";--4 WHEN?"0110"=>?TOTAL_DAYS<="11110";--6 WHEN?"1001"=>?TOTAL_DAYS<="11110";--9 WHEN?"1011"=>?TOTAL_DAYS<="11110";--11 WHEN?"0010"=>IF?(IS_RUNNIAN='1')?THEN?
TOTAL_DAYS<="11101";ELSE?
TOTAL_DAYS<="11100";?
END?IF;
WHEN?OTHERS=>NULL; END?CASE; IF(LD='0')?THEN NUM<=DATA;? ELSIF?CLK'EVENT?AND?CLK='1'?THEN MAX_DAYS<=TOTAL_DAYS;IF?NUM=TOTAL_DAYS?THEN--99
NUM<="00001";CO<='1';
ELSENUM<=NUM+1;CO<='0';
END?IF; END?IF;END?PROCESS;
END?ARCHITECTURE?ART;
LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL; USE?IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY?CNT7?IS?PORT(LD:?IN?STD_LOGIC;?
CLK:?IN?STD_LOGIC;?
DATA:?IN?STD_LOGIC_VECTOR(2?DOWNTO?0);?
NUM:?BUFFER?STD_LOGIC_VECTOR(2?DOWNTO?0));
END?ENTITY?CNT7; ARCHITECTURE?ART?OF?CNT7?ISBEGIN
PROCESS(CLK,LD)?IS BEGIN IF(LD='0')?THEN NUM<=DATA;? ELSIF?CLK'EVENT?AND?CLK='1'?THEN IF?NUM="111"?THEN?--7NUM<="000";
ELSE?NUM<=NUM+1;
END?IF; END?IF;END?PROCESS;
END?ARCHITECTURE?ART;
LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL; USE?IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY?CNT12?IS?PORT(LD:?IN?STD_LOGIC;?
CLK:?IN?STD_LOGIC;?
DATA:?IN?STD_LOGIC_VECTOR(3?DOWNTO?0);?
NUM:?BUFFER?STD_LOGIC_VECTOR(3?DOWNTO?0);?
CO:?OUT?STD_LOGIC);
END?ENTITY?CNT12; ARCHITECTURE?ART?OF?CNT12?ISBEGIN
PROCESS(CLK,LD)?IS BEGIN IF(LD='0')?THEN NUM<=DATA;? ELSIF?CLK'EVENT?AND?CLK='1'?THEN IF?NUM="1100"?THEN?--12NUM<="0000";CO<='1';
ELSE?NUM<=NUM+1;CO<='0';
END?IF; END?IF;END?PROCESS;
END?ARCHITECTURE?ART;
LIBRARY?IEEE;
USE?IEEE.STD_LOGIC_1164.ALL; USE?IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY?CNT99?IS?PORT(LD:?IN?STD_LOGIC;?
CLK:?IN?STD_LOGIC;?
DATA:?IN?STD_LOGIC_VECTOR(6?DOWNTO?0);?
NUM:?BUFFER?STD_LOGIC_VECTOR(6?DOWNTO?0));
END?ENTITY?CNT99; ARCHITECTURE?ART?OF?CNT99?ISBEGIN
PROCESS(CLK,LD)?IS BEGIN IF(LD='0')?THEN NUM<=DATA;? ELSIF?CLK'EVENT?AND?CLK='1'?THEN IF?NUM="1100011"?THEN?--12NUM<="0000000";
ELSE?NUM<=NUM+1;
END?IF; END?IF;END?PROCESS;
END?ARCHITECTURE?ART;