Chip123 科技應用創新平台

標題: 請教各位先進們VHDL鍵盤掃描寫法^^ [打印本頁]

---

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

8 f1 n' w! i5 S( v0 FLibrary ieee;
Use ieee.std_logic_1164.all;
Use ieee.std_logic_unsigned.all;
1 @& b; _) d1 w* ~1 k$ k
) Q: v; C- U. S1 W* h- LEntity Keyboard_scanning_2 is
1 Q0 n, x, {" L. s0 Q. a! lPort(
1 g. g! o- i! s; _) Q5 P6 M! z        clk,c1,c2,p_21 : in std_logic;
        kbi : in std_logic_vector(2 downto 0);
3 J1 t: s+ [" e. O3 l0 S. ~        lt,p_20,p_6 : out std_logic;
0 n/ v1 r& q  R+ b        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;
0 c1 N8 a9 f  J$ k; t& hBegin
lt<=c1 nor c2;
% B$ }, R/ u" c4 s" z; H
freqprocess(clk)                                    
variable ff : std_logic_vector(16 downto 0);  
, }. c- w6 ~! oBegin
( g% S/ K* T% E; j+ i        if (clk'event and clk='1') then
$ V; h7 U( w% V& _                ff:=ff+1;
        end if;
        l_p<=ff(12);                                    
) N' N) K' @7 x0 ]        d_b<=ff(13);                                    
2 o1 Z3 _- J$ C# C        count<=ff(15);                                             
end process freqp;

debrocess(d_b)
3 C0 ~/ K0 F  B4 Q+ x- y( X& Q% qvariable c : std_logic_vector(1 downto 0);
Begin
; J2 ~5 u8 I: [2 m        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);
6 \4 \: d2 w* c% z                                kok<=false;
0 Z' `1 @4 z' K+ g                        else
1 ~1 ?( C" u1 q4 }. D) S4 |7 ~2 E                                c:=c+1;
3 H( R% `' }/ U' A" B5 @                        end if;
- L% y& Q; ~  H7 f! D8 g' j% I                elsif (kbi(2) or kbi(1)or kbi(0))='0' then
  Z) [; u0 a" p7 A1 |                        ena<='0';
0 U6 [, E$ Q9 i5 B                        kok<=true;
) ]( ~4 h4 l2 k: D) z% _6 A                        c:="00";               
2 \' j& W9 l+ Z7 ~2 O7 B# O                end if;       
" j( I2 f- X5 f2 B6 N5 W( H& b        end if;
+ g0 l& ^; `& l4 V) e2 ^) jend process deb;

counter_scanrocess(count)
Begin
        if (count'event and count='1') then
                if ena='1' then
& b) l# a9 Q# b                        x1<=D(1);
/ i$ v+ e* I' [                        x0<=D(0);
                else
                        if D="11" then
7 d' `/ v4 i/ K1 p- J, b% m' p0 `                                D<="00";
8 t' T2 r3 T0 C                        else
9 i6 F" y# m  ]3 C6 `4 B; M                                D<=D+1;
                        end if;
! ^9 e: E1 X- H/ I0 F9 N. \                end if;
0 y. P# L0 F4 y) {. \        end if;
& ], T6 m- a' f: L, B" @        case D is
) ?9 G6 c- s0 @7 K                when "00"=>
6 k* {! J. }* L4 U1 s                        kscano<="0001";
                when "01"=>
                        kscano<="0010";                 
                when "10"=>
                        kscano<="0100";       
                when "11"=>
3 z( v2 b9 E, a; {0 h                        kscano<="1000";
                when others=>null;
0 g) w% l% E3 ~' b% f        end case;                       
end process counter_scan;
6 B% B$ J7 v! X6 [7 B2 Y4 e6 `
4 Q0 c$ d0 [; c6 S. B' U: Zld_plsrocess(l_p)
Begin
        if (l_p'event and l_p='1') then
                        if ena='1' then
                                if ks1 then
7 S1 `% }# B+ F- y5 g& U                                        p_6<='1';
6 {$ W. L! \. V, @1 P                                        p_20<='0';
% ?/ C! e; u0 ^8 {# ^1 s4 t                                        ks1<=false;
                                elsif ks1=false  then
  |( t0 Y2 P* L  P$ D7 p7 D! v                                        p_6<='0';                                                                       
) ~; v$ h+ t7 a/ F/ P; ^                                        if p_21='1' then
                                                p_20<='1';
                                                key(3)<=x3;
                                                key(2)<=x2;
6 ?' \- v. E8 a$ a5 R4 d                                                key(1)<=x1;
                                                key(0)<=x0;
                                        else
                                                p_20<='0';
: e: [6 y" f* A$ W5 x                                        end if;
+ n6 e( Q# G" N2 G: O1 ?' [                                end if;
9 }: [! M: s1 C" V3 f                        elsif kok then
/ Y1 c5 Z, o4 d5 t# |                                ks1<=true;                               
0 R! Z# x; E! \2 Y3 d' S                        end if;
        end if;
end process ld_pls;
end K_S;

---

作者: ultraman    時間: 2011-10-22 11:06 AM
如果有Verilog的寫法也可以喔^^,最近也正在學ing.

---

作者: winslow    時間: 2011-10-25 02:55 PM


# [8 K/ \) e9 Q8 o3 J3 |" l/ C先請問一下，您所謂的"看書說故事"的寫法是什麼意思?
不好意思，個人才疏學淺...

---

作者: ultraman    時間: 2011-10-25 09:45 PM
回復 1# ultraman
% |" V# L7 I) x" G0 p0 S0 Y& S
就是照著既有的流程圖去寫程式,^^謝謝你的回覆呦!!

---

作者: sieg70    時間: 2011-10-31 02:52 PM
附件????  abcdefghijklmnopq...

---

作者: ultraman    時間: 2011-10-31 06:49 PM

( a$ T4 y' R/ L( `) b
我在附件一次.看的到嗎??

---

作者: williams7442    時間: 2011-11-22 09:30 PM
灌水~~~~ 哈哈 沒rmb了

---

歡迎光臨 Chip123 科技應用創新平台 (http://www.chip123.com/)

Powered by Discuz! X3.2