led.rar_quartus交通灯

LIBRARY IEEE; --分频器

USE ieee.std_logic_1164.all;

use ieee.std_logic_unsigned.all;

ENTITY Fenpin IS

PORT

( Clock: IN STD_LOGIC;

Clockout: OUT STD_LOGIC);

IF Clock'EVENT AND Clock='1' THEN

cout:=cout+1;

IF cout=1000 THEN Clockout<='1';cout:=0;

ELSE Clockout<='0';

END IF;

END IF;

END PROCESS;

END ;

LIBRARY IEEE; --分频器

USE ieee.std_logic_1164.all;

ARCHITECTURE bhv OF Fenpin1 IS

BEGIN

PROCESS(Clock1)

VARIABLE cout:INTEGER RANGE 0 TO 1000;

BEGIN

IF Clock1'EVENT AND Clock1='1' THEN

cout:=cout+1;

IF cout=1000 THEN Clockout1<='1';cout:=0;

ELSE Clockout1<='0';

END IF;

USE ieee.std_logic_1164.all;

use ieee.std_logic_unsigned.all;

ENTITY Fenpin2 IS

PORT

( Clock2: IN STD_LOGIC;

BEGIN

IF Clock2'EVENT AND Clock2='1' THEN

cout:=cout+1;

IF cout=40 THEN Clockout2<='1';cout:=0;

ELSE Clockout2<='0';

END IF;

END IF;

END PROCESS;

Hold:in std_logic;

countNum:buffer std_logic_vector(6 downto 0));

END;

ARCHITECTURE behavior OF counter IS

BEGIN

process(Reset,Clock)

BEGIN

IF Reset='1' THEN countNum<="0000000";

ELSIF rising_edge(Clock) THEN

IF Hold='1' then countNum<=countNum;

countNum<=countNum+'1';

END IF;

END IF;

END IF;

END PROCESS;

END;

LIBRARY IEEE; --控制器

Hold:in std_logic;

CountNum:in std_logic_vector(6 downto 0);

NumA,NumB:out std_logic_vector(6 downto 0);

RedA,GreenA,YellowA:out std_logic;

RedB,GreenB,YellowB:out std_logic);

END;

ARCHITECTURE behavior OF Countroller IS

BEGIN

BEGIN

IF Hold='1' THEN

RedA<='1';

IF CountNum<41 THEN

NumA<=40-CountNum;

RedA<='0';

GreenA<='1';

YellowA<='0';

ELSIF CountNum<46 THEN

NumA<=45-CountNum;

RedA<='0';

GreenA<='0';

YellowA<='1';