这也是做实验时编的代码，由于做完将近一年了，当时也没有注意到要防抖，所以这个程序没有进行防抖，需要进行防抖 的朋友可以加锁存器进行锁存。     library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity matrix_key is port(clk : in std_logic;   display : out std_logic_vector(13 downto 0);   row : buffer std_logic_vector(3 downto 0);----行线    line : in std_logic_vector(3 downto 0));--列线 end entity matrix_key;------------------------------------------------------architecture behave of matrix_key iscomponent division isgeneric (data : integer:=10); port(clk_in : in std_logic;   clk_out : out std_logic);end component;signal read_data : std_logic_vector(3 downto 0);signal scan_data : std_logic_vector(1 downto 0);signal clk_temp : std_logic; beginU1: division port map(clk,clk_temp);P1: process(clk_temp) variable temp : std_logic_vector(1 downto 0); begin    if clk_temp'event and clk_temp='1' then  if temp < 3 then temp := temp + 1;  else temp := (others => '0');  end if; end if; scan_data <= temp; end process; P2: process(clk_temp,scan_data)----------扫描 begin  if scan_data="00" then row <= "0001";  case line is   when "0001" => read_data <= "0000";   when "0010" => read_data <= "0001";   when "0100" => read_data <= "0010";   when "1000" => read_data <= "0011";   when others => null;     end case; elsif scan_data="01" then row <= "0010";    case line is   when "0001" => read_data <= "0100";   when "0010" => read_data <= "0101";   when "0100" => read_data <= "0110";   when "1000" => read_data <= "0111";   when others => null;     end case; elsif scan_data="10" then row <= "0100";  case line is   when "0001" => read_data <= "1000";   when "0010" => read_data <= "1001";   when "0100" => read_data <= "1010";   when "1000" => read_data <= "1011";   when others => null;     end case; elsif scan_data="11" then row <= "1000";  case line is   when "0001" => read_data <= "1100";   when "0010" => read_data <= "1101";   when "0100" => read_data <= "1110";   when "1000" => read_data <= "1111";   when others => null;     end case; else null; end if; end process;P3: process(clk_temp,scan_data,read_data)-------译码  begin  case read_data is  when "0000" => display <= "01111110000110";---01  when "0001" => display <= "01111111011011";---02  when "0010" => display <= "01111111001111";---03  when "0011" => display <= "01111111100110";---04  when "0100" => display <= "01111111101101";---05  when "0101" => display <= "01111111111101";---06  when "0110" => display <= "01111110000111";---07  when "0111" => display <= "01111111111111";---08  when "1000" => display <= "01111111101111";---09  when "1001" => display <= "00001100111111";---10  when "1010" => display <= "00001100000110";---11  when "1011" => display <= "00001101011011";---12  when "1100" => display <= "00001101001111";---13  when "1101" => display <= "00001101100110";---14  when "1110" => display <= "00001101101101";---15  when "1111" => display <= "00001101111101";---16  end case; end process;end architecture;  

评论