您的位置:電子發(fā)燒友網(wǎng) > 電子技術(shù)應(yīng)用 > 實(shí)驗(yàn)中心 > 編程實(shí)驗(yàn) >
BJ-EPM CPLD開發(fā)板:VHDL入門例程3(4)
2012年05月16日 11:01 來源:本站整理 作者:秩名 我要評論(0)
process(Clk,Rst_n)
begin
if (Rst_n = '0') then --異步復(fù)位
led_direction <= '0';
elsif (Clk'event AND Clk = '1') then --時鐘上升沿
if (key_valueneg(1) = '1') then --控制流水燈工作/停止
led_direction <= '1'; --鎖存鍵值
elsif (key_valueneg(0) = '1') then --控制流水燈工作/停止
led_direction <= '0'; --鎖存鍵值
end if;
end if;
end process;
--320ms計(jì)數(shù)
process(Clk,Rst_n)
begin
if (Rst_n = '0') then --異步復(fù)位
cnt320ms <= x"000000";
elsif (Clk'event AND Clk = '1') then --時鐘上升沿
if (cnt320ms < 10#16000000#) then --320ms計(jì)數(shù)
cnt320ms <= cnt320ms+1;
else
cnt320ms <= x"000000";
end if;
end if;
end process;
--LED顯示控制
process(Clk,Rst_n)
begin
if (Rst_n = '0') then --異步復(fù)位
Led_out <= "0001";
elsif (Clk'event AND Clk = '1') then --時鐘上升沿
if (cnt320ms = 10#16000000# AND led_display = '1') then --每320ms做一次LED移位判斷
if (led_direction = '1') then --右移
Led_out <= Led_out(0) & Led_out(3) & Led_out(2) & Led_out(1);
--Led_out <= Led_out SLA 1;
else --左移
Led_out <= Led_out(2) & Led_out(1) & Led_out(0) & Led_out(3);
--Led_out <= Led_out SRA 1;
end if;
end if;
end if;
end process;
end architecture KEY_CONTROL_OF_LED;
本文導(dǎo)航
- 第 1 頁:BJ-EPM CPLD開發(fā)板:VHDL入門例程3(1)
- 第 2 頁:第一拍按鍵鎖存
- 第 3 頁:消抖后鍵值鎖存
- 第 4 頁:水燈左移/右移
標(biāo)簽:VHDL(159)分頻計(jì)數(shù)器(5)J-EPM CPLD(4)