example16-2.vhd

vhdl 实例 通过实例学习vhdl 编程

LIBRARY IEEE;
USE IEEE.std_logic_1164.all;
USE IEEE.std_logic_arith.all;
USE IEEE.std_logic_unsigned.all;

ENTITY counter16 IS
	PORT (
		clk: IN std_logic;
		reseta: IN std_logic;
		resetb: IN std_logic;
		loada: IN std_logic;
		loadb: IN std_logic;
		counta: BUFFER std_logic_vector (15 downto 0);
		countb: BUFFER std_logic_vector (15 downto 0)
		);
END counter16;

ARCHITECTURE behave OF counter16 IS
BEGIN
	countera:PROCESS(clk,reseta)
	BEGIN
		IF reseta='1' THEN
			counta<="1010101010101010";
		ELSIF clk'EVENT and clk='1' THEN
			IF loada='1' THEN
				counta<=countb;
			ELSE
				counta<=counta+1;
			END IF;
		END IF;
	END PROCESS countera;
	
	counterb:PROCESS(clk,resetb)
	BEGIN
		IF resetb='1' THEN
			countb<="0101010101010101";
		ELSIF clk'EVENT and clk='1' THEN
			IF loadb='1' THEN
				countb<=counta;
			ELSE
				countb<=countb+1;
			END IF;
		END IF;
	END PROCESS counterb;  
END behave;