求助？自动交通控制系统
题目：自动交通控制系统设计任务：用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 = '1' OR (Clrn = '1' AND NOT(Count = "000000")) THEN Count <= "000000";
ELSIF clk'EVENT AND clk = '1' 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 = '1' THEN State <= mgcr;Clrn <= '0';
ELSIF clk'EVENT AND clk = '1' THEN
CASE State IS
WHEN mgcr => IF Count >= "111011" AND S = '1' THEN State <= mycr;Clrn <= '1';
ELSE Clrn <= '0';
END IF;
WHEN mycr => IF Count >= "000011" THEN State <= mrcg;Clrn <= '1';
ELSE Clrn <= '0';
END IF;
WHEN mrcg => IF Count >= "010011" OR S = '0' THEN State <= mrcy;Clrn <= '1';
ELSE Clrn <= '0';
END IF;
WHEN mrcy => IF Count >= "000011" THEN State <= mgcr;Clrn <= '1';
ELSE Clrn <= '0';
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.php?tid=219&highlight=%BD%BB%CD%A8%B5%C6
页:
[1]
