基于eda的交通灯控制器课程设计

基于eda的交通灯控制器课程设计内容摘要：

T45M=00110000。 DOUT45B=00110101。 WHEN010000=DOUT45M=00101001。 DOUT45B=00110100。 WHEN010001=DOUT45M=00101000。 DOUT45B=00110011。 WHEN010010=DOUT45M=00100111。 DOUT45B=00110010。 WHEN010011=DOUT45M=00100110。 DOUT45B=00110001。 WHEN010100=DOUT45M=00100101。 DOUT45B=00110000。 WHEN010101=DOUT45M=00100100。 DOUT45B=00101001。 WHEN010110=DOUT45M=00100011。 DOUT45B=00101000。 WHEN010111=DOUT45M=00100010。 DOUT45B=00100111。 WHEN011000=DOUT45M=00100001。 DOUT45B=00100110。 WHEN011001=DOUT45M=00100000。 DOUT45B=00100101。 WHEN011010=DOUT45M=00011001。 DOUT45B=00100100。 WHEN011011=DOUT45M=00011000。 DOUT45B=00100011。 WHEN011100=DOUT45M=00010111。 DOUT45B=00100010。 WHEN011101=DOUT45M=00010110。 DOUT45B=00100001。 WHEN011110=DOUT45M=00010101。 DOUT45B=00100000。 WHEN011111=DOUT45M=00010100。 DOUT45B=00011001。 WHEN100000=DOUT45M=00010011。 DOUT45B=00011000。 WHEN100001=DOUT45M=00010010。 DOUT45B=00010111。 WHEN100010=DOUT45M=00010001。 DOUT45B=00010110。 WHEN100011=DOUT45M=00010000。 DOUT45B=00010101。 WHEN100100=DOUT45M=00001001。 DOUT45B=00010100。 WHEN100101=DOUT45M=00001000。 DOUT45B=00010011。 WHEN100110=DOUT45M=00000111。 DOUT45B=00010010。 WHEN100111=DOUT45M=00000110。 DOUT45B=00010001。 WHEN101000=DOUT45M=00000101。 DOUT45B=00010000。 WHEN101001=DOUT45M=00000100。 DOUT45B=00001001。 WHEN101010=DOUT45M=00000011。 DOUT45B=00001000。 WHEN101011=DOUT45M=00000010。 DOUT45B=00000111。 WHEN101100=DOUT45M=00000001。 DOUT45B=00000110。 WHEN OTHERS=DOUT45M=00000000。 DOUT45B=00000000。 END CASE。 END PROCESS。 END。 设计仿真的截图 ： CNT25S模块的实现 简单思路： CLK上升沿到来时，若到计时使能信号、 SM信号和 SB信号有效， CNT25S开始计数，并将输入状态通过 DOUT25M、 DOUT25B 分别输出到主、支干道显示。 设计的原理图模块 ： 设计源程序 ： LIBRARY IEEE。 USE。 USE。 ENTITY CNT25S IS PORT(SB,SM,CLK,EN25:IN STD_LOGIC。 DOUT25M,DOUT25B:OUT STD_LOGIC_VECTOR(7 DOWNTO 0))。 END ENTITY CNT25S。 ARCHITECTURE ART OF CNT25S IS SIGNAL CNT5B:STD_LOGIC_VECTOR(4 DOWNTO 0)。 BEGIN PROCESS(SB,SM,CLK,EN25)IS BEGIN IF SB=39。 039。 THEN CNT5B=CNT5BCNT5B1。 ELSIF SM=39。 039。 THEN CNT5B=CNT5BCNT5B1。 ELSIF(CLK39。 EVENT AND CLK=39。 139。 )THEN IF EN25=39。 139。 THEN CNT5B=CNT5B+1。 ELSIF EN25=39。 039。 THEN CNT5B=CNT5BCNT5B1。 END IF。 END IF。 END PROCESS。 PROCESS(CNT5B)IS BEGIN CASE CNT5B IS WHEN00000=DOUNT25B=00100101。 DOUT25M=00110000。 WHEN00001=DOUNT25B=00100100。 DOUT25M=00101001。 WHEN00010=DOUNT25B=00100011。 DOUT25M=00101000。 WHEN00011=DOUNT25B=00100010。 DOUT25M=00100111。 WHEN00100=DOUNT25B=00100001。 DOUT25M=00100110。 WHEN00101=DOUNT25B=00100000。 DOUT25M=00100101。 WHEN00110=DOUNT25B=00011001。 DOUT25M=00100100。 WHEN00111=DOUNT25B=00011000。 DOUT25M=00100011。 WHEN01000=DOUNT25B=00010111。 DOUT25M=00100010。 WHEN01001=DOUNT25B=00010110。 DOUT25M=00100001。 WHEN01010=DOUNT25B=00010101。 DOUT25M=00100000。 WHEN01011=DOUNT25B=00010100。 DOUT25M=00011001。 WHEN01100=DOUNT25。