BJ-EPM CPLD開(kāi)發(fā)板:VHDL入門(mén)例程3(2)

2012年05月16日 11:01 來(lái)源:本站整理 作者:秩名 我要評(píng)論(0)

--第一拍按鍵鎖存

  process(Clk,Rst_n)

  begin

  if (Rst_n = '0') then --異步復(fù)位

  key_inr0 <= "111";

  elsif (Clk'event AND Clk = '1') then --時(shí)鐘上升沿

  key_inr0 <= Key_in; --鎖存上一拍鍵值

  end if;

  end process;

  --第二拍按鍵鎖存

  process(Clk,Rst_n)

  begin

  if (Rst_n = '0') then --異步復(fù)位

  key_inr1 <= "111";

  elsif (Clk'event AND Clk = '1') then --時(shí)鐘上升沿

  key_inr1 <= key_inr0; --鎖存上一拍鍵值

  end if;

  end process;

  --按鍵邊沿檢測(cè)

  key_posedge <= (NOT key_inr1) AND key_inr0; --按鍵上升沿標(biāo)志位,高電平有效一個(gè)時(shí)鐘周期

  key_negedge <= key_inr1 AND (NOT key_inr0); --按鍵下降沿標(biāo)志位,高電平有效一個(gè)時(shí)鐘周期

  --20ms計(jì)數(shù)

  process(Clk,Rst_n)

  begin

  if (Rst_n = '0') then --異步復(fù)位

  cnt20ms <= x"00000";

  elsif (Clk'event AND Clk = '1') then --時(shí)鐘上升沿

  if ((key_posedge /= "000") OR (key_negedge /= "000")) then --鍵值邊沿標(biāo)志位復(fù)位計(jì)數(shù)器,此處理目的為消除抖動(dòng)

  cnt20ms <= x"00000";

  elsif (cnt20ms < 10#1000000#) then --20ms計(jì)數(shù)

  cnt20ms <= cnt20ms+1;

  else

  cnt20ms <= x"00000";

  end if;

  end if;

  end process;

  

上一頁(yè)1234下一頁(yè)

本文導(dǎo)航