求VHDL的流水灯程序！！！！！！

求VHDL的流水灯程序！！！！！！

跑马灯？

邮箱？   qq：956693281

--***************************************************************
--流水灯
--a1,a2,a3,a4,a5,a6,a7,a8代表8个灯
--控制8个灯的循环点亮，q1对时钟的上升沿计数 ，q1的变化对应8个灯的状态

--****************************************************************
library ieee;
use ieee.std_logic_1164.all;   
--use ieee.std_logic_signed.all;
use ieee.std_logic_unsigned.all;
--use ieee.std_logic_arith.all;

entity lxd is
port (
      --reset: in std_logic;--系统复位信号
          clk:in std_logic; --1hz时钟信号
         a1,a2,a3,a4,a5,a6,a7,a8: out std_logic);
end lxd;
architecture bhv of lxd is
signal q: std_logic ;
signal q1: std_logic_vector(3 downto 0);       

signal c: std_logic_vector(7 downto 0);       
signal clk1: std_logic;
begin
process(clk)  --对系统时钟3000000分频；
   variable cnt:integer range 0 to 30000000 ;
   variable q: std_logic;

begin
if clk'event and clk='1'then
  if cnt =29999999 then
  cnt:=0 ; q:='1';
   else
    cnt:=cnt+1; q:='0';
  end if;
end  if;
clk1<=q;
end process;



process(clk)   --------控制灯显示，q1对时钟的上升沿计数           
begin
if clk'event and clk='1'then
  if q1 ="1111" then q1<="0000";
  else q1<=q1+1;
end if;
end if;
end process;

process(q1)
begin
case q1 is
when "0000" =>c<="01111111";
when "0001" =>c<="10111111";
when "0010" =>c<="11011111";
when "0011" =>c<="11101111";
when "0100" =>c<="11110111";
when "0101" =>c<="11111011";
when "0110" =>c<="11111101";
when "0111" =>c<="11111110";
when "1000" =>c<="11111110";
when "1001" =>c<="11111101";
when "1010" =>c<="11111011";
when "1011" =>c<="11110111";
when "1100" =>c<="11101111";
when "1101" =>c<="11011111";
when "1110" =>c<="10111111";
when "1111" =>c<="01111111";
when others =>c<="11111111";
end case;
a1<=c(0);a2<=c(1);a3<=c(2);a4<=c(3);a5<=c(4);a6<=c(5);a7<=c(6);a8<=c(7);
end process;
end bhv;

楼上回帖很给力！

的确很给力哦！！！！！

的确很给力哦！！！！！

很好，4楼的回答