用6个灯制造流星的效果程序
library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_unsigned.all;
entity deng50 is
port(clk:in std_logic;
d0,d1,d2,d3,d4,d5:out std_logic);
end deng50;
architecture deng of deng50 is
signal q0:std_logic_vector(24 downto 0);
signal qq0:std_logic_vector(13 downto 0);
signal qq1:std_logic_vector(2 downto 0);
signal c0: std_logic;
begin
process(clk)
begin
if clk'event and clk='1' then
if q0=4500000 then q0<="0000000000000000000000000";c0<='1';
else q0<=q0+1;c0<='0';
end if;
if qq0=13650 then qq0<="00000000000000";
else qq0<=qq0+1;
end if;
end if;
if c0'event and c0='1' then qq1<=qq1+1;
if qq1=7 then qq1<="000";end if;
end if;
case qq1 is
when "000"=>
if qq0<5 then d1<='0';else d1<='0';end if;
if qq0<30 and qq0>10 then d2<='0';else d2<='0';end if;
if qq0<130 and qq0>50 then d3<='0';else d3<='0';end if;
if qq0<530 and qq0>210 then d4<='0';else d4<='0';end if;
if qq0<2210 and qq0>850 then d5<='0';else d5<='0';end if;
if qq0<13650 and qq0>3410 then d0<='1';else d0<='0';end if;
when "001"=>
if qq0<5 then d2<='0';else d2<='0';end if;
if qq0<30 and qq0>10 then d3<='0';else d3<='0';end if;
if qq0<130 and qq0>50 then d4<='0';else d4<='0';end if;
if qq0<530 and qq0>210 then d5<='0';else d5<='0';end if;
if qq0<2210 and qq0>850 then d0<='1';else d0<='0';end if;
if qq0<13650 and qq0>3410 then d1<='1';else d1<='0';end if;
when "010"=>
if qq0<5 then d3<='0';else d3<='0';end if;
if qq0<10 and qq0>10 then d4<='0';else d4<='0';end if;
if qq0<80 and qq0>50 then d5<='0';else d5<='0';end if;
if qq0<330 and qq0>210 then d0<='1';else d0<='0';end if;
if qq0<1310 and qq0>850 then d1<='1';else d1<='0';end if;
if qq0<13650 and qq0>3410 then d2<='1';else d2<='0';end if;
when "011"=>
if qq0<2 then d4<='0';else d4<='0';end if;
if qq0<10 and qq0>10 then d5<='0';else d5<='0';end if;
if qq0<80 and qq0>50 then d0<='1';else d0<='0';end if;
if qq0<330 and qq0>210 then d1<='1';else d1<='0';end if;
if qq0<1310 and qq0>850 then d2<='1';else d2<='0';end if;
if qq0<13650 and qq0>3410 then d3<='1';else d3<='0';end if;
when "100"=>
if qq0<2 then d5<='0';else d1<='0';end if;
if qq0<10 and qq0>10 then d0<='1';else d0<='0';end if;
if qq0<80 and qq0>50 then d1<='1';else d1<='0';end if;
if qq0<330 and qq0>210 then d2<='1';else d2<='0';end if;
if qq0<1310 and qq0>850 then d3<='1';else d3<='0';end if;
if qq0<13650 and qq0>3410 then d4<='1';else d4<='0';end if;
when "101"=>
if qq0<2 then d0<='1';else d0<='0';end if;
if qq0<10 and qq0>10 then d1<='1';else d1<='0';end if;
if qq0<80 and qq0>50 then d2<='1';else d2<='0';end if;
if qq0<330 and qq0>210 then d3<='1';else d3<='0';end if;
if qq0<1310 and qq0>850 then d4<='1';else d4<='0';end if;
if qq0<13650 and qq0>3410 then d5<='1';else d5<='0';end if;
when others=>d0<='0';d2<='0';d2<='0';d3<='0';d4<='0';d5<='0';
end case;
end process;
end;
时间的简便编法：
if clk'event and clk='1' then secondL<=secondL+1;
if secondL=9 then secondL<="0000";secondH<=secondH+1;end if;
if secondH=5 and secondL=9 then secondH<="0000";monthL<=monthL+1;end if;
if monthL=9 and secondH=5 and secondL=9 then monthL<="0000";monthH<=monthH+1;end if;
if monthH=5 and monthL=9 and secondH=5 and secondL=9 then monthH<="0000";hourL<=hourL+1;end if;
if hourL=9 and monthH=5 and monthL=9 and secondH=5 and secondL=9 then hourL<="0000";hourH<=hourH+1;end if;
if hourH=2 and hourL=3 and monthH=5 and monthL=9 and secondH=5 and secondL=9 then
hourL<="0000";hourH<="0000";day<=day+1;
end if;
end if;
-电子元器件采购网（www.ruidan.com）是本土元器件目录分销商，采用“小批量、现货、样品”销售模式，致力于满足客户多型号、高质量、快速交付的采购需求。 自建高效智能仓储，拥有自营库存超过50,000种，提供一站式正品现货采购、个性化解决方案、选型替代等多元化服务。
