VHDL语言编写经典常用实例.docxVIP

-----------------------------------------------------------------------------------------LED灯花样闪烁程序libraryieee;use ieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entityled_change isport(clk:instd_logic;led:outstd_logic_vector(7 downto 0));endled_change;architecture fun of led_change issignalcnt: std_logic_vector(31 downto 0);signalflip_led: std_logic_vector(4 downto 0);beginprocess(clk)beginif(clkevent and clk=1)thencnt=cnt+1;if(cntthenflip_led=flip_led+1;cnt=(others=0);end if;end if;caseflip_led iswhen 00000=ledwhen 00001=ledwhen 00010=ledwhen 00011=ledwhen 00100=ledwhen 00101=ledwhen 00110=ledwhen 00111=ledwhen 01000=ledwhen 01001=ledwhen 01010=ledwhen 01011=ledwhen 01100=ledwhen 01101=ledwhen 01110=ledwhen 01111=ledwhen 10000=ledwhen 10001=ledwhen 10010=ledwhen 10011=ledwhen 10100=ledwhen others =led=ZZZZZZZZ;end case;if(flip_led10100)thenflip_led=00000;end if;end process;end fun;--拨码开关控制LED程序libraryieee;use ieee.std_logic_1164.all;entityswitch_led isport(key : in std_logic_vector(1 downto 0); led : out std_logic_vector(7 downto 0)); --八个led灯endswitch_led;architecture fun of switch_led isbeginprocess(key) begincase key is when 00 = led -- // 0when 01 = led -- // 1when 10 = led -- // 2when 11 = led -- // 3when others = led =ZZZZZZZZ;end case;end process;end;--按键消抖控制LED程序libraryieee;use ieee.std_logic_1164.all;useieee.std_logic_arith.all;useieee.std_logic_unsigned.all;entitystable_key is port(clk :in std_logic;key_in:instd_logic;key_out: out std_logic);end ;architecture fun of stable_key is signalcnt : integer range 0 to 1999999;signal key ,key_d : std_logic;beginprocess(clk)beginifclkevent and clk=1 then if key /= key_in then -----键值变化开始计时 10mskey_d =