vhdl万年历FPGA——VHDL万年历
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY TIMER IS
PORT(CLK,RES,XUAN,JIA_SEC1,JIA_SEC2,JIA_MIN1,JIA_MIN2,JIA_HOUR1,JIA_HOUR2:IN STD_L
OGIC;
HOUR2,HOUR1,MIN2,MIN1,SEC2,SEC1:OUT STD_LOGIC_VECTOR(3 DO...
FPGA——VHDL万年历
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY TIMER IS
PORT(CLK,RES,XUAN,JIA_SEC1,JIA_SEC2,JIA_MIN1,JIA_MIN2,JIA_HOUR1,JIA_HOUR2:IN STD_L
OGIC;
HOUR2,HOUR1,MIN2,MIN1,SEC2,SEC1:OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
COUT:OUT STD_LOGIC);
END;
ARCHITECTURE ONE OF TIMER IS
SIGNAL HOUR11,HOUR22,SEC11,SEC22,MIN11,MIN22:STD_LOGIC_VECTOR(3 DOWNTO 0);
BEGIN
PROCESS(CLK,RES,XUAN,JIA_SEC1,JIA_SEC2,JIA_MIN1,JIA_MIN2,JIA_HOUR1,JIA_HOUR2)
BEGIN
IF(XUAN='0')THEN----------------------自动计时
IF(CLK'EVENT AND CLK='1')THEN
IF(RES='0')THEN
IF(HOUR22<"0010")THEN
IF(HOUR11<"1001")THEN ------<19 HOURS
IF(MIN22<"0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<=MIN22+1;
END IF;
END IF;
ELSIF(MIN22="0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<="0000";HOU R11<=HOUR11+1;
END IF;
END IF;
END IF;
END IF;
ELSIF(HOUR11="1001")THEN
IF(MIN22<"0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<=MIN22+1;
END IF;
END IF;
END IF;
ELSIF(MIN22="0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<="0000";HOU R11<="0000";HOUR22<=HOUR22+1;
END IF;
END IF;
END IF;
END IF;
END IF;
ELSIF(HOUR22="0010")THEN -----20--23 hours
IF(MIN22<"0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<=MIN22+1;
END IF;
END IF;
END IF;
ELSIF(MIN22="0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<="0000";HOU
R11<=HOUR11+1;
END IF;
END IF;
END IF;
END IF;
ELSIF(HOUR11="0100")THEN------------------------------------20--23HOURS
IF(MIN22<"0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<=MIN22+1;
END IF;
END IF;
END IF;
ELSIF(MIN22="0101")THEN
IF(MIN11<"1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<=MIN11+1;
END IF;
END IF;
ELSIF(MIN11="1001")THEN
IF(SEC22<"0101")THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<=SEC22+1;
END IF;
ELSIF(SEC22="0101") THEN
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<="0000";HOU
R11<="0000";HOUR22<="0000";
END IF;
END IF;
END IF;
END IF;
END IF;
END IF;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<="0000";HOUR11<="0000";HOU
R22<="0000";
END IF;
END IF;
ELSE------------------------------------------进行手动调整
IF(RES='0')THEN
IF(JIA_SEC1'EVENT AND JIA_SEC1='1')THEN------------------调整秒1
IF(SEC11<"1001")THEN
SEC11<=SEC11+1;
ELSE SEC11<="0000";
END IF;
END IF;
IF(JIA_SEC2'EVENT AND JIA_SEC2='1')THEN------------------调整秒2
IF(SEC22<"0101")THEN
SEC22<=SEC22+1;
ELSE SEC22<="0000";
END IF;
END IF;
IF(JIA_MIN1'EVENT AND JIA_MIN1='1')THEN------------------调整分1
IF(MIN11<"1001")THEN
MIN11<=MIN11+1;
ELSE MIN11<="0000";
END IF;
END IF;
IF(JIA_MIN2'EVENT AND JIA_MIN2='1')THEN------------------调整分2
IF(MIN22<"0101")THEN
MIN22<=MIN22+1;
ELSE MIN22<="0000";
END IF;
END IF;
IF(JIA_HOUR1'EVENT AND JIA_HOUR1='1')THEN----------------调整时1
IF(HOUR11<"1001")THEN
HOUR11<=HOUR11+1;
ELSE HOUR11<="0000";
END IF;
END IF;
IF(JIA_HOUR2'EVENT AND JIA_HOUR2='1')THEN----------------调整时2
IF(HOUR22<"0010")THEN
HOUR22<=HOUR22+1;
ELSE HOUR22<="0000";
END IF;
END IF;
ELSE SEC11<="0000";SEC22<="0000";MIN11<="0000";MIN22<="0000";HOUR11<="0000";HOUR2
2<="0000";
END IF;
END IF;
END PROCESS;
PROCESS(SEC11,SEC22,MIN11,MIN22)
BEGIN
IF(MIN11="0000" AND MIN22="0000")THEN
IF(SEC11<"1010" AND SEC22<"0011")THEN
COUT<='1';
ELSE COUT<='0';
END IF;
ELSIF(MIN11="0000" AND MIN22="0011")THEN
IF(SEC11<"1010" AND SEC22<"0011")THEN
COUT<='1';
ELSE COUT<='0';
END IF;
ELSE COUT<='0';
END IF;
END PROCESS;
HOUR2<=HOUR22;
HOUR1<=HOUR11;
SEC1<=SEC11;
SEC2<=SEC22;
MIN1<=MIN11;
MIN2<=MIN22;
END;
本文档为【vhdl万年历】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483