《eda程序.docVIP

跑马灯； library ieee; use ieee.std_logic_1164.all; use ieee.std_logic_unsigned.all; entity paomadeng is port(clk : in std_logic; input: in std_logic; reset: in std_logic; q: out std_logic_vector(7 downto 0)); end; architecture rtl of paomadeng is type state_type is (s0, s1, s2, s3); signal state : state_type; signal q1:std_logic_vector(7 downto 0); signal count:std_logic_vector(3 downto 0); begin process (clk, reset) begin if reset = 1 then state = s0; q1=(others=0); elsif (rising_edge(clk)) then case state is when s0= if q1then --s0 q1 elsif count=0111 then count=(others=0); q1 state = s1; else q1=q1(0)q1(7 downto 1); count=count+1; state = s0; end if; when s1= if count=0111 then --s1 count=(others=0); q1 state = s2; else q1=q1(6 downto 0)q1(7); count=count+1; state = s1; end if; when s2= if count=0111 then --s2 count=(others=0); q1 state = s3; else q1(7 downto 4)=q1(4)q1(7 downto 5); q1(3 downto 0)=q1(2 downto 0)q1(3); count=count+1; state = s2; end if; when s3= if count=0111 then --s1 count=(others=0); q1 state = s0; else q1(7 downto 4)=q1(6 downto 4)q1(7); q1(3 downto 0)=q1(0)q1(3 downto 1); count=count+1; state = s3; end if; end case; end if; end process; q=q1; end rtl; S0模式：从左到右逐个点亮LED S1模式：从右到左逐个点亮LED S2模式：从两边到中间逐个点亮LED S3模式：从中间到两边逐个点亮LED 四位全加器； library ieee; use ieee.std_logic_1164.all; use ieee.std_logic_unsinged.all; entity adder4 is port(a,b:in std_logic_vector(3 downto 0); ci:in std_logic; s:out std_logic_vector(3 downto 0); c:out std_logic); end; architecture two of adder4 is signal temp:std_logic_vector(4 downto 0); begin temp=(0a)+b+ci; s=temp(3 downto 0); c=temp(4); end; 四位全减器； library ieee; use ie