EDA课程设计-交通信号灯

E TL:=TL-1; Р END IF;Р ELSE TH:="0000"; Р TL:="0000"; Р GA<='0'; Р RA<='0'; Р YA<='0'; Р A:='0'; Р STATE:=RED; Р END IF;Р END IF; Р END CASE; Р END IF; TIMEAH<=TH;Р TIMEAL<=TL; Р END PROCESS;Р END BHV; РLIBRARY IEEE; РUSE IEEE.STD_LOGIC_1164.ALL; РUSE IEEE.STD_LOGIC_UNSIGNED.ALL;Р ENTITY CONTRALX IS Р PORT(CLK:IN STD_LOGIC; Р RB,GB,YB,CHU:OUT STD_LOGIC;Р TIMEAH,TIMEAL:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)); Р END CONTRALX;Р ARCHITECTURE BHV OF CONTRALX IS Р TYPE RGY IS(RED,YELLOW1,GREEN,YELLOW2);Р BEGIN PROCESS(CLK)Р VARIABLE A:STD_LOGIC;Р VARIABLE TH,TL:STD_LOGIC_VECTOR(3 DOWNTO 0); РVARIABLE STATE:RGY;РBEGIN IF CLK'EVENT AND CLK='1'Р THEN CASE STATE ISР WHEN YELLOW1=>IF A='0'Р THEN TH:="0000";Р TL:="0100";Р A:='1';Р YB<='1';Р GB<='0'; Р RB<='0';Р CHU<='1';Р ELSE IF NOT(TH="0000"AND TL="0001")