請教各位先進們VHDL鍵盤掃描寫法^^

ultraman · 發表於 2011-10-21 20:30:05

各位先進們,老師最近派了一個鍵盤掃描題目給我們寫,硬體架構和老師發的一些資料都在附件中,我有寫出來兩個程式,一個是用Mealy狀態機防彈跳和看書說故事的寫法,不過我很討厭Mealy狀態機和看書說故事,所以我又寫了第二個寫法,用旗標交握以及計數器防彈跳,因為班上沒人寫出來,所以才在這裡發帖,主要想看先進們的邏輯寫法,以下是我的程式,寫的邏輯很爛可以噹我沒關係,呵呵...因為小弟弟剛升會員,所以只有1RDB,希望先進們見諒.

Library ieee;
Use ieee.std_logic_1164.all;
Use ieee.std_logic_unsigned.all;

Entity Keyboard_scanning_2 is
Port(
clk,c1,c2,p_21 : in std_logic;
kbi : in std_logic_vector(2 downto 0);
lt,p_20,p_6 : out std_logic;
kscano,key : out std_logic_vector(3 downto 0));
end Keyboard_scanning_2;

Architecture K_S of Keyboard_scanning_2 is
signal x0,x1,x2,x3,ena,l_p,d_b,count : std_logic;
signal D : std_logic_vector(1 downto 0);
signal ks1,kok : boolean;
Begin
lt<=c1 nor c2;

freqp

rocess(clk)
variable ff : std_logic_vector(16 downto 0);
Begin
if (clk'event and clk='1') then
ff:=ff+1;
end if;
l_p<=ff(12);
d_b<=ff(13);
count<=ff(15);
end process freqp;

deb

rocess(d_b)
variable c : std_logic_vector(1 downto 0);
Begin
if (d_b'event and d_b='1') then
if (kbi(2) or kbi(1)or kbi(0))='1' then
if c="11" then
ena<='1';
x2<=kbi(1);
x3<=kbi(0);
kok<=false;
else
c:=c+1;
end if;
elsif (kbi(2) or kbi(1)or kbi(0))='0' then
ena<='0';
kok<=true;
c:="00";
end if;
end if;
end process deb;

counter_scan

rocess(count)
Begin
if (count'event and count='1') then
if ena='1' then
x1<=D(1);
x0<=D(0);
else
if D="11" then
D<="00";
else
D<=D+1;
end if;
end if;
end if;
case D is
when "00"=>
kscano<="0001";
when "01"=>
kscano<="0010";
when "10"=>
kscano<="0100";
when "11"=>
kscano<="1000";
when others=>null;
end case;
end process counter_scan;

ld_pls

rocess(l_p)
Begin
if (l_p'event and l_p='1') then
if ena='1' then
if ks1 then
p_6<='1';
p_20<='0';
ks1<=false;
elsif ks1=false then
p_6<='0';
if p_21='1' then
p_20<='1';
key(3)<=x3;
key(2)<=x2;
key(1)<=x1;
key(0)<=x0;
else
p_20<='0';
end if;
end if;
elsif kok then
ks1<=true;
end if;
end if;
end process ld_pls;
end K_S;