ftimer.vhd

来自「能够实现小时（24进制）、分钟和秒钟（60进制）的计数功能 具有复位功能 功」· VHDL 代码 · 共 41 行

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

ENTITY FTIMER IS
	PORT( iNF:   IN STD_LOGIC;
		  hou:  IN STD_LOGIC_VECTOR(4 DOWNTO 0);
		  min:  IN STD_LOGIC_VECTOR(5 DOWNTO 0);
		  sec:  IN STD_LOGIC_VECTOR(5 DOWNTO 0);
		  iSMin: IN STD_LOGIC_VECTOR(5 DOWNTO 0);
		  iSHou: IN STD_LOGIC_VECTOR(4 DOWNTO 0);
		  oHouR: OUT STD_LOGIC;
		  oRing: OUT STD_LOGIC);
END FTIMER;

ARCHITECTURE run OF FTIMER IS
BEGIN
 HR:PROCESS(min, sec)
	BEGIN
		IF min = "00000" AND sec = "00000"
		THEN oHouR <= '1';
		ELSE IF sec = "01010"
			THEN oHouR <= '0';
			END IF;
		END IF;
	END PROCESS;
 SR:PROCESS(min, hou, iSMin, iSHou, iNF)
	VARIABLE Ring : STD_LOGIC;
	BEGIN
		IF iNF = '1'
		THEN IF min = iSMin 
			 THEN IF hou = iSHou
		          THEN Ring := '1';
		          END IF;
		     END IF;
		ELSIF iNF = '0'
		THEN Ring := '0';
		END IF;
		oRing <= Ring;
	END PROCESS;
END run;