【正文】 初步驗證設計的正確性。 WHEN 0110= SEG7=01111101。 WHEN OTHERS= TEMP=1111。 END IF。 ARCHITECTURE ART OF disp_scan IS signal temp: STD_LOGIC_VECTOR(3 DOWNTO 0)。 USE 。139。139。 AIN25M, AIN25B, AIN05: IN STD_LOGIC_VECTOR(7 DOWNTO 0)。 END PROCESS。 END PROCESS。)THEN IF EN05M=39。 USE 。 BCD數(shù)1, 06 WHEN OTHERS =DOUT25B=00000000。 BCD數(shù)5, 50 WHEN 10101=DOUT25B=00000100。 BCD數(shù)9, 50 WHEN 10001=DOUT25B=00001000。 BCD數(shù)13, 50 WHEN 01101=DOUT25B=00010010。 BCD數(shù)17, 50 WHEN 01001=DOUT25B=00010110。 BCD數(shù)21, 50 WHEN 00101=DOUT25B=00100000。 BCD數(shù)25, 50 WHEN 00001=DOUT25B=00100100。 ELSIF EN25=39。039。 USE 。 BCD數(shù)1, 06 WHEN OTHERS=DOUT45M=00000000。 BCD數(shù)5, 50 WHEN 101001=DOUT45M=00000100。 BCD數(shù)9, 50 WHEN 100101=DOUT45M=00001000。 BCD數(shù)13, 50 WHEN 100001=DOUT45M=00010010。 BCD數(shù)17, 50 WHEN 011101=DOUT45M=00010110。 BCD數(shù)21, 50 WHEN 011001=DOUT45M=00100000。 BCD數(shù)25, 50 WHEN 010101=DOUT45M=00100100。 BCD數(shù)29, 50 WHEN 010001=DOUT45M=00101000。 BCD數(shù)33, 50 WHEN 001101=DOUT45M=00110010。 BCD數(shù)37, 50 WHEN 001001=DOUT45M=00110110。 BCD數(shù)41, 50 WHEN 000101=DOUT45M=01000000。 BCD數(shù)45, 50 WHEN 000001=DOUT45M=01000100。 ELSE CNT6B=000000。139。 USE 。139。139。039。039。039。139。 END CASE。 ELSE STATE=C。 STATE=D。 WHEN B= IF CNT=4 THEN CNT=0。 END IF。EVENT AND CLK=39。USE 。三、實驗內(nèi)容設計并調(diào)試好一個由一條主干道和一條支干道的匯合點形成的十字交叉路口的交通燈控制器，具體要求如下：、支干道各設一個綠、黃、紅指示燈，兩個顯示數(shù)碼管。 。而支干道允許通行亮綠燈時，主干道亮紅燈。END ENTITY JTDKZ。139。 THEN STATE=B。STATE=B。 END IF。 WHEN D= IF CNT=4 THEN CNT=0。 RGY:PROCESS(STATE) ISBEGIN CASE STATE IS WHEN A= MR=39。 BY=39。 MG=39。 WHEN C= MR=39。 BY=39。 MG=39。 END CASE。 DOUT45M, DOUT45B: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 AND SM=39。 END IF。 DOUT45B=01001000。 DOUT45B=01000100。 DOUT45B=01000000。 DOUT45B=00110110。 DOUT45B=00110010。 DOUT45B=00101000。 DOUT45B=00100100。 DOUT45B=00100000。 DOUT45B=00010110。 DOUT45B=00010010。 DOUT45B=00001000。 END PROCESS。 END ENTITY time_25s。EVENT AND CLK= 39。 END IF。 DOUT25M=00101000。 DOUT25M=00100100。 DOUT25M=00100000。 DOUT25M=00010110。 DOUT25M=00010010。 DOUT25M=00001000。 END PROCESS。 END ENTITY time_5s。139。 BCD數(shù)04 WHEN 010 =DOUT5=00000011。 LIBRARY IEEE。 ARCHITECTURE ART OF XSKZ IS BEGIN PROCESS(EN45,EN25,EN05M, EN05B,AIN45M,AIN45B,AIN05,AIN25M,AIN25B) IS BEGIN IF EN45=39。 ELSIF EN25=39。 END IF。 DEC_M: IN STD_LOGIC_VECTOR(7 DOWNTO 0)。EVENT AND CLK_scan=39。 LEDW=CNT。 WHEN 0001= SEG7=00000110。 WHEN 1001= SEG7=01101111。ENTITY traffic IS PORT(SB,SM, CLK, clk_scan: IN STD_LOGIC。 END COMPONENT JTDKZ。 DOUT5: OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 DEC_M: IN STD_LOGIC_VECTOR(7 DOWNTO 0)。 SIGNAL DATA_25B :STD_LOGIC_VECTOR(7 DOWNTO 0)。 U4:XSKZ PORT MAP(MG1,BG1,MY1,BY1,DATA_45M,DATA_45B,DATA_25M,DATA_25B,DATA_05,DEC_M,DEC_B )