EEPW论坛

--（本源码不排除包含些许错误，参考者谨慎！）
--主频：40Mhz,0.5s计数一次，六个数码管，动态扫描方式逐次点亮
entity leddisplay is
port(clk,rst:in std_logic;
ledk:out std_logic_vector(5 downto 0);
leda:out std_logic_vector(7 downto 0));
end leddisplay;
architecture a of leddisplay is
signal count:std_logic_vector(25 downto 0);
signal countt:std_logic_vector(15 downto 0);
signal ledat:std_logic_vector(23 downto 0);
signal ledmove:std_logic_vector(2 downto 0);
signal ledaa:std_logic_vector(3 downto 0);
begin
process(clk,rst)
begin
if rst='0' then
count<=(others=>'0');
ledat<=(others=>'0');
countt<=(others=>'0');
ledmove<="000";
elsif rising_edge(clk) then
if count=19999999 then
count<=(others=>'0');
ledat<=ledat+1;
countt<=countt+1;
else
count<=count+1;
countt<=countt+1;
if countt(15)=1 then
countt<=(others=>'0');
ledmove<=ledmove+1;
if ledmove=6 then
ledmove<="000";
end if;
end if;
end if;
end if;
end process;
process(clk,rst)
begin
if rst='0' then
ledk<="111 111";
ledaa<="0000";
elsif rising_edge(clk) then
case ledmove is
when "000"=>
ledk<=not "111 110";
ledaa<=ledat(23 downto 20);
when "001"=>
ledk<=not "111 101";
ledaa<=ledat(19 downto 16);
when "010"=>
ledk<=not "111 011";
ledaa<=ledat(15 downto 12);
when "011"=>
ledk<=not "110 111";
ledaa<=ledat(11 downto 8);
when "100"=>
ledk<=not "101 111";
ledaa<=ledat(7 downto 4);
when "101"=>
ledk<=not "011 111";
ledaa<=ledat(3 downto 0);
when others=>
ledk<="000 000";
end case;
end if;
end process;
process(ledaa)
begin
case ledaa is
when "0000"=>
leda<=x"3f";
when "0001"=>
leda<=x"06";
when "0010"=>
leda<=x"5b";
when "0011"=>
leda<=x"4f";
when "0100"=>
leda<=x"66";
when "0101"=>
leda<=x"6d";
when "0110"=>
leda<=x"7d";
when "0111"=>
leda<=x"07";
when "1000"=>
leda<=x"7f";
when "1001"=>
leda<=x"6f";
when "1010"=>
leda<=x"77";
when "1011"=>
leda<=x"7c";
when "1100"=>
leda<=x"39";
when "1101"=>
leda<=x"5e";
when "1110"=>
leda<=x"79";
when "1111"=>
leda<=x"71";
when others =>
leda<=x"00";
end case;
end process;
end a;