工程名和顶层设计文件名cnt10。cnt10.vhd如下:
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY CNT10 IS
PORT (CLK, RST, EN : IN STD_LOGIC;
CQ : OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
COUT : OUT STD_LOGIC);
END CNT10;
ARCHITECTURE behav OF CNT10 IS
BEGIN
PROCESS(CLK, RST, EN)
VARIABLE CQI : STD_LOGIC_VECTOR(3 DOWNTO 0);
BEGIN
IF RST = '1' THEN CQI := (OTHERS => '0'); -- 计数器异步复位
ELSIF CLK'EVENT AND CLK = '1' THEN -- 检测时钟上升沿
IF EN = '1' THEN -- 检测是否使能
IF CQI < 9 THEN CQI := CQI + 1; -- 允许计数,如小于9,计数加1
ELSE CQI := (OTHERS => '0'); -- 否则,计数器清零
END IF;
END IF;
END IF;
IF CQI = 9 THEN COUT <= '1'; -- 输出进位信号
ELSE COUT <= '0';
END IF;
CQ <= CQI;
END PROCESS;
END behav;