BJ-EPM CPLD开发板：VHDL入门例程3(3)

　　process(Clk,Rst_n)

　　begin

　　if (Rst_n = '0') then --异步复位

　　key_value <= "111";

　　elsif (Clk'event AND Clk = '1') then --时钟上升沿

　　if (cnt20ms = 10#1000000#) then --计数值到20ms

　　key_value <= key_inr1; --锁存键值

　　end if;

　　end if;

　　end process;

　　--消抖后第一拍按键锁存

　　process(Clk,Rst_n)

　　begin

　　if (Rst_n = '0') then --异步复位

　　key_valuer0 <= "111";

　　elsif (Clk'event AND Clk = '1') then --时钟上升沿

　　key_valuer0 <= key_value; --锁存上一拍键值

　　end if;

　　end process;

　　--消抖后第二拍按键锁存

　　process(Clk,Rst_n)

　　begin

　　if (Rst_n = '0') then --异步复位

　　key_valuer1 <= "111";

　　elsif (Clk'event AND Clk = '1') then --时钟上升沿

　　key_valuer1 <= key_valuer0; --锁存上一拍键值

　　end if;

　　end process;

　　--消抖后按键下降沿检测

　　key_valueneg <= key_valuer1 AND (NOT key_valuer0); --消抖后按键下降沿标志位，高电平有效一个时钟周期

　　--按键控制LED控制位状态(流水灯工作/停止)

　　process(Clk,Rst_n)

　　begin

　　if (Rst_n = '0') then --异步复位

　　led_display <= '0';

　　elsif (Clk'event AND Clk = '1') then --时钟上升沿

　　if (key_valueneg(2) = '1') then --控制流水灯工作/停止

　　led_display <= NOT led_display; --锁存键值

　　end if;

　　end if;

　　end process;