求助？自动交通控制系统

题目：自动交通控制系统

设计任务：用FPGA实现设计

在一个具有主、支干道的十字路口，设计一个交通灯自动控制装置。要求：

1.当主干道与支干道均无车辆要求通行时，主干道应保持畅通，亮绿灯，支干道亮红灯。

2.如果主干道无车，支干道有车，则允许支干道通行，主干道亮红灯，支干道亮绿灯。

3.如果主干道和支干道均有车要求通行，则两者应交替通行，并要求主干道每次通行30秒，支干道每次通行20秒。

给你参考
交通灯源码
交通灯源码
交通灯

LIBRARY ieee;
USE ieee.std_logic_1164.all;
USE IEEE.STD_LOGIC_UNSIGNED.ALL;

ENTITY TrafficLight IS
PORT (Clk        : IN STD_LOGIC;
    S,Reset      : IN STD_LOGIC;
    LED        : OUT STD_LOGIC_VECTOR(7 DOWNTO 0);
    Mg,My,Mr,Cg,Cy,Cr : OUT STD_LOGIC );
END TrafficLight ;

ARCHITECTURE rtl OF TrafficLight IS
TYPE TrafficState IS (mgcr, mycr, mrcg, mrcy);
SIGNAL State  : TrafficState ;
SIGNAL DataOut : STD_LOGIC_VECTOR(5 DOWNTO 0);
SIGNAL Count  : STD_LOGIC_VECTOR(5 DOWNTO 0);
SIGNAL SetCount : STD_LOGIC_VECTOR(5 DOWNTO 0);
SIGNAL Clrn   : STD_LOGIC ;
SIGNAL LEDB   : STD_LOGIC_VECTOR(7 DOWNTO 0);
BEGIN

Counter : PROCESS(clk)
BEGIN
  IF Reset = &#39;1&#39; OR (Clrn = &#39;1&#39; AND NOT(Count = "000000")) THEN Count <= "000000";
  ELSIF clk&#39;EVENT AND clk = &#39;1&#39; THEN
   IF NOT(Count = "111011" AND State = mgcr) THEN Count <= Count + 1;END IF;
  END IF;
END PROCESS Counter;

StateTransition : PROCESS(clk)
BEGIN
  IF Reset = &#39;1&#39; THEN State <= mgcr;Clrn <= &#39;0&#39;;
   ELSIF clk&#39;EVENT AND clk = &#39;1&#39; THEN
    CASE State IS
     WHEN mgcr => IF Count >= "111011" AND S = &#39;1&#39; THEN State <= mycr;Clrn <= &#39;1&#39;;
            ELSE Clrn <= &#39;0&#39;;
            END IF;
     WHEN mycr => IF Count >= "000011" THEN State <= mrcg;Clrn <= &#39;1&#39;;
            ELSE Clrn <= &#39;0&#39;;
            END IF;
     WHEN mrcg => IF Count >= "010011" OR S = &#39;0&#39; THEN State <= mrcy;Clrn <= &#39;1&#39;;
            ELSE Clrn <= &#39;0&#39;;
            END IF;
     WHEN mrcy => IF Count >= "000011" THEN State <= mgcr;Clrn <= &#39;1&#39;;
            ELSE Clrn <= &#39;0&#39;;
            END IF;
     WHEN OTHERS => NULL;
    END CASE;
  END IF;
END PROCESS StateTransition;

CountDown : PROCESS(CLK)
BEGIN
  IF LEDB > 59 THEN LED <= LEDB + 36;
  ELSIF LEDB > 49 THEN LED <= LEDB + 30;
  ELSIF LEDB > 39 THEN LED <= LEDB + 24;
  ELSIF LEDB > 29 THEN LED <= LEDB + 18;
  ELSIF LEDB > 19 THEN LED <= LEDB + 12;
  ELSIF LEDB > 9 THEN LED <= LEDB + 6;
  ELSE LED <= LEDB;
  END IF;
END PROCESS CountDown;

Output : BLOCK
BEGIN
  WITH State SELECT
   DataOut <= "100001" WHEN mgcr,
         "010001" WHEN mycr,
         "001100" WHEN mrcg,
         "001010" WHEN mrcy;
  WITH State SELECT
   SetCount <= "111100" WHEN mgcr,
         "000100" WHEN mycr,
         "010100" WHEN mrcg,
         "000100" WHEN mrcy;
  Mg <= DataOut(5);My <= DataOut(4);Mr <= DataOut(3);
  Cg <= DataOut(2);Cy <= DataOut(1);Cr <= DataOut(0);
  LEDB <= SetCount - ("00" & Count);
END BLOCK Output;

END ARCHITECTURE rtl;

交通灯控制器方案下载
http://www.fpgaw.com/viewthread.php?tid=219&highlight=%BD%BB%CD%A8%B5%C6

交通灯控制器方案下载
http://www.fpgaw.com/viewthread. ... =%BD%BB%CD%A8%B5%C6