8位数码管扫描实验.docVIP

对进入的电压进行分频： LIBRARY IEEE; USE IEEE.STD_LOGIC_1164.ALL; USE IEEE.STD_LOGIC_ARITH.ALL; USE IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY div_frequency IS PORT(CLK_IN : IN STD_LOGIC; CLK_OUT : OUT STD_LOGIC); END div_frequency; ARCHITECTURE ONE OF div_frequency IS SIGNAL CLK_OUTQ : STD_LOGIC := 0 ; --赋初值仅供仿真使用 SIGNAL COUNTQ : STD_LOGIC_VECTOR(23 DOWNTO 0) := 000000000000000000000000; BEGIN PROCESS(CLK_IN) BEGIN IF(CLK_INEVENT AND CLK_IN = 1) THEN IF(COUNTQ /= 46000) THEN COUNTQ = COUNTQ + 1; ELSE CLK_OUTQ = NOT CLK_OUTQ; COUNTQ = (OTHERS = 0); END IF; END IF; END PROCESS; CLK_OUT = CLK_OUTQ; END ARCHITECTURE; -- 通过改变COUNTQ /= X , 分频值为 (X+1)*2; 数码管显示电路程序： LIBRARY IEEE; USE IEEE.STD_LOGIC_1164.ALL; USE IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY CounterTube IS PORT(CLK : IN STD_LOGIC; SEG : OUT STD_LOGIC_VECTOR(7 DOWNTO 0); BIT : OUT STD_LOGIC_VECTOR(7 DOWNTO 0)); END ENTITY; ARCHITECTURE ONE OF CounterTube IS SIGNAL CNT8 : STD_LOGIC_VECTOR(2 DOWNTO 0); SIGNAL I : INTEGER RANGE 0 TO 15; BEGIN P1: PROCESS(CLK) -- 扫描时钟 BEGIN IF CLKEVENT AND CLK = 1 THEN CNT8 = CNT8 + 1; END IF; END PROCESS; P2: PROCESS(CNT8) -- 位码扫描电路 BEGIN CASE CNT8 IS WHEN 000 = BIT =; I = 0; WHEN 001 = BIT =; I = 3; WHEN 010 = BIT =; I = 1; WHEN 011 = BIT =; I = 0; WHEN 100 = BIT =; I = 0; WHEN 101 = BIT =; I = 4; WHEN 110 = BIT =; I = 1; WHEN 111 = BIT =; I = 8; WHEN OTHERS = NULL; END CASE; END PROCESS; P3: PROCESS(I) -- 译码电路 BEGIN CASE I IS WHEN 0 = SEG = WHEN 1 = SEG = WHEN 2 = SEG = WHEN 3 = SEG = WHEN 4 = SEG = WHEN 5 = SEG = WHEN 6 = SEG =