基于vhdl交通灯的设计说明书推荐.docVIP

用VHDL语言设计交通灯控制器:要求:1.东西方向为主干道,南北方向为副干道.2.主干道通行40秒后，若副干道无车，仍主干道通行，否则转换。3.换向要有4秒黄灯期。4.南北通行时间为20秒，到时间转换，若未到时，仍南北方向。 --JTDKZ.VHDLIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;ENTITY JTDKZ ISPORT(CLK,SM,SB:IN STD_LOGIC;MR,MY0,MG0,BR,BY0,BG0: OUT STD_LOGIC);END ENTITY JTDKZ;ARCHITECTURE ART OF JTDKZ ISTYPE STATE_TYPE IS(A,B,C,D);SIGNAL STATE: STATE_TYPE;BEGINCNT:PROCESS(CLK) ISVARIABLE S:INTEGER RANGE 0 TO 45;VARIABLE CLR,EN:BIT;BEGINIF(CLKEVENT AND CLK=1)THENIF CLR=0THEN S:=0;ELSE IF EN=0 THEN S:=S;ELSE S:=S+1;END IF;CASE STATE ISWHEN A=MR=0; MY0=0;MG0=1;BR=1; BY0=0; BG0=0;IF(SB AND SM)= 1 THENIF S=45 THEN STATE=B;CLR:= 0; EN:= 0;ELSE STATE=A; CLR:= 1; EN:= 1;END IF;ELSE IF(SB AND (NOT SM))= 1 THEN STATE=B;CLR:= 0;EN:= 0;ELSE STATE=A; CLR:= 1; EN:= 1;END IF;END IF;WHEN B=MR=0; MY0=1;MG0=0;BR=1; BY0=0; BG0=0;IF S=5 THEN STATE=C;CLR:= 0; EN:= 0;ELSE STATE=B; CLR:= 1; EN:= 1;END IF;WHEN C=MR=1; MY0=0;MG0=0;BR=0; BY0=0; BG0=1;IF(SM AND SB)= 1 THENIF S=25 THEN STATE=D;CLR:=0; EN:= 0;ELSE STATE=C; CLR:= 1; EN:= 1;END IF;ELSE IF SB=0 THEN STATE=D;CLR:= 0; EN:= 0;ELSE STATE=C; CLR:= 1; EN:= 1;END IF;END IF;WHEN D=MR=1; MY0=0;MG0=0;BR=0; BY0=1; BG0=0;IF S=5 THEN STATE=A;CLR:= 0; EN:= 0;ELSE STATE=D; CLR:= 1; EN:= 1;END IF;END CASE;END IF;END IF;END PROCESS CNT;END ARCHITECTURE ART;--CNT05S.VHDLIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY CNT05S ISPORT(CLK,EN05M,EN05B:IN STD_LOGIC;DOUT5: OUT STD_LOGIC_VECTOR(7 DOWNTO 0));END ENTITY CNT05S;ARCHITECTURE ART OF CNT05S ISSIGNAL CNT3B: STD_LOGIC_VECTOR(2 DOWNTO 0);BEGINPROCESS(CLK,EN05M,EN05B) ISBEGINIF(CLKEVENT AND CLK= 1)THENIF EN05M=1 THEN CNT3B=CNT3B+1;ELSIF EN05B=1 THEN CNT3B=CNT3B+1;ELSIF EN05B=0 THEN CNT3B=CNT3B-CNT3B-1;END IF;END IF;END PROCESS;PROCESS(CNT3B) ISBEGINCASE CNT3B ISWHEN 000=DOUT5WHEN 001=DOUT5WHEN 010=DOUT5WHEN 011=DOUT5WHEN 100=DOUT5WHEN OTHERS=DOUT5=0000000