键盘扫描显示实验.docVIP

汕 头 大 学 实 验 报 告 _______________________________________________________________________________实验三 键盘扫描显示实验 一、实验目的和要求实验内容及实验数据LIBRARY IEEE; USE IEEE.STD_LOGIC_1164.ALL; USE IEEE.STD_LOGIC_ARITH.ALL; USE IEEE.STD_LOGIC_UNSIGNED.ALL; ENTITY key4x4 IS PORT ( cpu_clk : IN STD_LOGIC; col : IN STD_LOGIC_VECTOR(3 DOWNTO 0); row : OUT STD_LOGIC_VECTOR(3 DOWNTO 0); reset : IN STD_LOGIC; sel : OUT STD_LOGIC_VECTOR(2 DOWNTO 0); led : OUT STD_LOGIC_VECTOR(3 DOWNTO 0); disp : OUT STD_LOGIC_VECTOR(6 DOWNTO 0) ); END ENTITY; ARCHITECTURE behave of key4x4 IS TYPE STATE IS (S1, S2, S3, S4, S5, S6, S7, S8, S9); -- 键盘扫描状态 SIGNAL Status : STATE; SIGNAL Delay : INTEGER; SIGNAL DelayFlag : STD_LOGIC; SIGNAL OROut : STD_LOGIC; SIGNAL ColReg : STD_LOGIC_VECTOR(3 DOWNTO 0); SIGNAL RowReg : STD_LOGIC_VECTOR(3 DOWNTO 0); SIGNAL Cnt : INTEGER; BEGIN OROut = col(3) OR col(2) OR col(1) OR col(0); KEY_SCAN:PROCESS(cpu_clk) VARIABLE Delay : INTEGER := 0; BEGIN IF reset = 1 THEN DelayFlag = 0; Status = S1; Delay := 0; ColReg = 0000; RowReg = 0000; Cnt = 0; ELSE IF RISING_EDGE(cpu_clk) THEN CASE Status IS WHEN S1 = row = 1111; -- 全部输出0; Delay := 0; Status = S2; WHEN S2 = IF OROut = 1 THEN -- 判断是否有按键按下 Status = S3; Delay := 20; END IF; led = 0101; WHEN S3 = -- 延时去抖动 IF Delay = 0 THEN -- 延时后