用VHDL编写行列式键盘扫描程序

1、24 行列式键盘扫描程序library IEEE;use IEEE.STD_LOGIC_1164.ALL;use IEEE.STD_LOGIC_ARITH.ALL;use IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY wsw ISPORT (clk: IN std_logic;row:bufferstd_logic_vector(1 DOWNTO 0);column: IN std_logic_vector(3 DOWNTO 0);dyp: OUT std_logic_vector(8 DOWNTO 1):=11110011; ledct: OUT std_logic_

2、vector(5 downto 0):=000001); END wsw;ARCHITECTURE behave OF wsw ISstd_logic_vector(1 DOWNTO 0); std_logic_vector(3 DOWNTO 0); std_logic_vector(8 DOWNTO 1);SIGNAL div_cnt: std_logic_vector(20 downto 0);SIGNAL scan_key:SIGNAL key_code:SIGNAL dyp_tmp:BEGINrow= scan_key;dyp= dyp_tmp;ledct=000001;PROCESS

3、(clk)BEGINIF(clkEVENT AND clk = 1)THENdiv_cntscan_keyscan_key null;END CASE;END PROCESS;PROCESS(clk)BEGINIF(clkEVENT AND clk=1)THENCASE scan_key IS WHEN 10 =CASE column ISWHEN 1110 =key_codekey_codekey_codekey_codeNULL;END CASE;WHEN 01 =CASE column ISWHEN 1110 =key_codekey_codekey_codekey_codeNULL;E

4、ND CASE;WHEN OTHERS = key_codedyp_tmp dyp_tmpdyp_tmpdyp_tmp dyp_tmpdyp_tmpdyp_tmpdyp_tmpdyp_tmp NULL;END CASE;END PROCESS;END behave;用VHDL编写的一个简单4X4键盘扫描程序,把相应的键值显示在数码管上 ,VHDL标签： vhdl 键盘扫描没有考虑去抖和判断键弹起的问 程序如下 : library IEEE;use IEEE.STD_LOGIC_1164.ALL;use IEEE.STD_LOGIC_ARITH.ALL;use IEEE.STD_LOGIC_UN

5、SIGNED.ALL;ENTITY KEYDIS IS PORT (clkrow columndyp 数据: IN std_logic;: OUT std_logic_vector(3 DOWNTO 0); - 行线: IN std_logic_vector(3 DOWNTO 0); - 列线: OUT std_logic_vector(7 DOWNTO 1):=1111001; - 数码管显示ledctEND KEYDIS;: OUT std_logic_vector(5 downto 0):=000001); - 数码管显示使能ARCHITECTURE arch OF KEYDIS ISS

6、IGNAL div_cntSIGNAL scan_keySIGNAL key_codeSIGNAL dyp_tmp: std_logic_vector(24 downto 0);: std_logic_vector(3 DOWNTO 0); - 扫描码寄存器 : std_logic_vector(3 DOWNTO 0);: std_logic_vector(7 DOWNTO 1);BEGINrow= scan_key;-dyp= dyp_tmp;ledct=000001;PROCESS(clk)BEGINIF(clkEVENT AND clk = 1)THENdiv_cntscan_keysc

7、an_keyscan_keyscan_key=0111;END CASE;END PROCESS;PROCESS(clk)BEGIN- IF (NOT rst = 1) THEN- key_codeCASE column ISWHEN 1110 =key_codekey_codekey_codekey_codeNULL;END CASE;WHEN 1101 =CASE column ISWHEN 1110 =key_codekey_codekey_codekey_codeNULL;END CASE;WHEN 1011 =CASE column ISWHEN 1110 =key_codekey_codekey_codekey_codeNULL;END CASE;WHEN 0111 =CASE column ISWHEN 1110 =key_codekey_codekey_codekey_codeNULL;END CASE; WHEN OTHERS = key_codedyp_tmp dyp_tmpdyp_tmpdyp_tmpdyp_tmpdyp_tmp dyp_tmpdy