vhdl键盘程序,帮忙看一下
发布网友
发布时间：2022-05-05 09:29
共2个回答
热心网友
时间：2022-06-27 06:43
以手机键盘为例子写的
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;
ENTITY keyboard IS
PORT( clk:IN STD_LOGIC;
keyin:IN STD_LOGIC_VECTOR(2 DOWNTO 0);
keyout:OUT STD_LOGIC_VECTOR(3 DOWNTO 0);
led:OUT STD_LOGIC_VECTOR(7 DOWNTO 1));
END keyboard;
ARCHITECTURE bhv OF keyboard IS
SIGNAL start:STD_LOGIC;
SIGNAL tmp:STD_LOGIC_VECTOR(3 DOWNTO 0);
BEGIN
p1:PROCESS(keyin,clk)
BEGIN
IF clk'EVENT AND clk='1' THEN
IF keyin/="111" THEN start<='1';
ELSE start<='0';
END IF;
END IF;
END PROCESS p1;
p2:PROCESS(start,clk,keyin,tmp)
VARIABLE count:STD_LOGIC_VECTOR(1 DOWNTO 0);
VARIABLE tmp1:STD_LOGIC_VECTOR(3 DOWNTO 0);
BEGIN
IF start='1' THEN
IF clk'EVENT AND clk='1' THEN count:=count+1;
ELSE NULL;
END IF;
CASE count IS
WHEN "00" =>keyout<="0111";
CASE keyin IS
WHEN "011" to "110" =>tmp1:="0001";
-- WHEN "101" =>tmp1:="0010";
-- WHEN "110" =>tmp1:="0011";
WHEN OTHERS=>tmp1:="1100";
END CASE;
WHEN "01" =>keyout<="1011";
CASE keyin IS
WHEN "011" =>tmp1:="0100";
WHEN "101" =>tmp1:="0101";
WHEN "110" =>tmp1:="0110";
WHEN OTHERS=>tmp1:="1100";
END CASE;
WHEN "10" =>keyout<="1101";
CASE keyin IS
WHEN "011" =>tmp1:="0111";
WHEN "101" =>tmp1:="1000";
WHEN "110" =>tmp1:="1001";
WHEN OTHERS=>tmp1:="1100";
END CASE;
WHEN "11" =>keyout<="1110";
CASE keyin IS
WHEN "011" =>tmp1:="1110";
WHEN "101" =>tmp1:="0000";
WHEN "110" =>tmp1:="1111";
WHEN OTHERS=>tmp1:="1100";
END CASE;
WHEN OTHERS => keyout<="ZZZZ";
END CASE;
ELSE keyout<="ZZZZ";tmp1:="1100";
END IF;
tmp<=tmp1;
END PROCESS p2;
--以下是译码电路
p3:PROCESS(tmp)
BEGIN
CASE tmp IS
WHEN "0001" => led<="0110000";
WHEN "0010" => led<="1011011";
WHEN "0011" => led<="1001111";
WHEN "0100" => led<="1100110";
WHEN "0101" => led<="1101101";
WHEN "0110" => led<="1111101";
WHEN "0111" => led<="0000111";
WHEN "1000" => led<="1111111";
WHEN "1001" => led<="1101111";
WHEN "1110" => led<="1001001"; -- 以 --- 代替显示 *
WHEN "0000" => led<="0111111";
WHEN "1111" => led<="0110110"; -- 以 | | 代替显示 #
WHEN "1100" => led<="0000000";
WHEN OTHERS => led<="0000000";
END CASE;
END PROCESS p3;
END bhv;
热心网友
时间：2022-06-27 06:43
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
entity clk_gen is
port(
clk : in std_logic;
clk_scan: out std_logic
);
end clk_gen;
architecture rtl of clk_gen is
signal cnt :integer range 0 to 9; --这里是为了仿真方便，只用了200分频，如果要下载程序，应按实际要求改写数值
begin
process(clk)
begin
if clk'event and clk='1' then
if cnt =cnt'high then --表示cnt的上限值，这样写可以更容易根据实际分频改写
cnt <= 0;
else
cnt <= cnt + 1;
end if;
end if;
end process;
process(cnt,clk)
begin
if clk'event and clk='1' then --200为计数单位，分频
if cnt>=cnt'high/2 then
clk_scan <='1';
else
clk_scan <='0';
end if;
end if;
end process;
end rtl;
library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;
entity keyboard_ledledled is
port(
clk: in std_logic;
row: out std_logic_vector(3 downto 0);
column: in std_logic_vector(3 downto 0);
rst: in std_logic;
led: out std_logic_vector(3 downto 0)
);
end keyboard_ledledled;
architecture key_input_led of keyboard_ledledled is
component clk_gen
port(
clk : in std_logic;
clk_scan : out std_logic
);
end component;
signal clk_scan: std_logic;
signal key_code: std_logic_vector(3 downto 0);
signal scan_key: std_logic_vector(3 DOWNTO 0);
signal reg: std_logic_vector(7 downto 0);
signal reg1: std_logic_vector(7 downto 0);
signal result: std_logic_vector(7 downto 0);
signal next_state: std_logic_vector(3 downto 0);
signal key_pressed: std_logic;
begin
row<=scan_key;
scaning:clk_gen
port map(clk=>clk,clk_scan=>clk_scan);
PROCESS(clk_scan)
BEGIN
IF(clk_scan'EVENT AND clk_scan = '1')THEN
scan_key<=next_state;
END IF;
END PROCESS;
process(scan_key)
begin
case scan_key is --循环扫描------扫描的时间比检查是否有键按下的时间要快得多
when "0001"=> next_state<= "0010";
when "0010"=> next_state<= "0100";
when "0100"=> next_state<= "1000";
when "1000"=> next_state<= "0001";
when others=> next_state<= "0001";
end case;
end process;
PROCESS(clk_scan)
BEGIN
IF (NOT rst = '1') THEN
key_code <= "0000";
reg1<="00000000";
ELSE
IF(clk_scan'EVENT AND clk_scan='1')THEN
CASE scan_key IS --检查何处有按键按下
WHEN "0001" =>
CASE column IS
WHEN "0001" =>
key_code <= "0001"; -- 1
key_pressed<=not key_pressed;
WHEN "0010" =>
key_code <= "0010"; -- 2
key_pressed<=not key_pressed;
WHEN "0100" =>
key_code <= "0011"; -- 3
key_pressed<=not key_pressed;
WHEN "1000" =>
key_code <= "0100"; -- 4
key_pressed<=not key_pressed;
WHEN OTHERS =>
key_code <= "1111";
END CASE;
WHEN "0010" =>
CASE column IS
WHEN "0001" =>
key_code <= "0101"; -- 5
key_pressed<=not key_pressed;
WHEN "0010" =>
key_code <= "0110"; -- 6
key_pressed<=not key_pressed;
WHEN "0100" =>
key_code <= "0111";
key_pressed<=not key_pressed;
WHEN "1000" =>
key_code <= "1000";
key_pressed<=not key_pressed;
WHEN OTHERS =>
key_code <= "1111";
END CASE;
WHEN "0100" =>
CASE column IS
WHEN "0001" =>
key_code <= "1001";
key_pressed<=not key_pressed;
WHEN "0010" =>
key_code <= "0000";
key_pressed<=not key_pressed;
WHEN "0100" =>
key_code <= "1010";
key_pressed<=not key_pressed;
WHEN "1000" =>
key_code <= "1011";
key_pressed<=not key_pressed;
WHEN OTHERS =>
key_code <= "1111";
END CASE;
WHEN "1000" =>
CASE column IS
WHEN "0001" =>
key_code <= "1100";
key_pressed<=not key_pressed;
WHEN "0010" =>
key_code <= "1101";
key_pressed<=not key_pressed;
WHEN "0100" =>
key_code <= "1110";
key_pressed<=not key_pressed;
WHEN "1000" =>
key_code <= "1111";
key_pressed<=not key_pressed;
WHEN OTHERS =>
key_code <= "1111";
END CASE;
WHEN OTHERS =>
key_code <= "1111";
END CASE;
END IF;
end if;
END PROCESS;
process(key_pressed)
begin
reg<=column&scan_key;
reg1<=reg;
end process;
process(clk_scan)
begin
if clk_scan'event and clk_scan='1' then
result<=reg XOR reg1;
if result= "00000000" then
led<=key_code;
else
led<="0000";
end if;
end if;
end process;
end key_input_led;
