cnt10.vhd

采用MaxPlusII写的一个小时钟程序

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_ARITH.ALL;


ENTITY cnt10 IS
	PORT(reset,en,clk:IN STD_ULOGIC;
		 carry1:OUT STD_ULOGIC;
		 q:OUT STD_ULOGIC_VECTOR(3 DOWNTO 0));
END cnt10;

ARCHITECTURE rtl OF cnt10 IS

	SIGNAL qs:STD_LOGIC_VECTOR(3 DOWNTO 0);
	SIGNAL ca:STD_ULOGIC;
		BEGIN
		PROCESS(clk)
			VARIABLE q10:INTEGER;
			BEGIN
				IF (clk'EVENT AND clk ='1') THEN
					IF (reset='1') THEN
						q10:=0;
					ELSIF(en='1') THEN
						IF(q10=9) THEN
							q10:=0;
							ca<='1';
						ELSE
							q10:=q10+1;
							ca<='0';
						END IF;
					END IF;
				END IF;
		qs<=CONV_STD_LOGIC_VECTOR(q10,4);
		q<=TO_STDULOGICVECTOR(qs);
		END PROCESS;
		PROCESS(ca,en)
			BEGIN
				carry1<=ca AND en;
				
		  	END PROCESS;
END rtl;