CPLD课程设计交通灯程序

1、LIBRARY IEEE;ENTITY jiaotongdeng ISPORT( clk_in:in std_logic; -4MHzrst:in std_logic; -复位信号light:out std_logic_vector(7 downto 0; -RYG_main,RYG_genespk:out std_logic;LED7S0:out STD_LOGIC_VECTOR(6 downto 0;LED7S1:out STD_LOGIC_VECTOR(6 downto 0;LED7S2:out STD_LOGIC_VECTOR(6 downto 0;LED7S4:out STD_LOG

2、IC_VECTOR(6 downto 0;END jiaotongdeng;ARCHITECTURE ARC OF jiaotongdeng IStype states is(green_red,yellow_red,red_green,red_yellow;signal state:states:=green_red;signal nextstate:states;signal data0:integer range 0 to 9;signal data1:integer range 0 to 9;signal data2:integer range 0 to 9;signal data3:

3、integer range 0 to 9;signal clock_buffer:std_logic;signal count_time:integer range 0 to 1999999;signal clk:std_logic;signal sec0:integer range 0 to 9;signal sec1:integer range 0 to 3;signal sec2:integer range 0 to 9;signal sec3:integer range 0 to 3;BEGINspk<='0'frequent:process(clk_inbegi

4、nif clk_in'event and clk_in='1' thenif count_time=1999999 thencount_time<=0;clock_buffer<=not clock_buffer;elsecount_time<=count_time+1;end if;end if;clk<=clock_buffer; -输入1HZ的频率end process;light_statment:process(state -交通信号灯的显示状态begincase state iswhen green_red=>light<

5、="11011011"nextstate<=yellow_red;data0<=5;data1<=0;data2<=5;data3<=0;when yellow_red=>light<="10111011"nextstate<=red_green;data0<=4;data1<=2;data2<=9;data3<=2;when red_green=>light<="01111110"nextstate<=red_yellow;data0<=

6、5;data1<=0;data2<=5;data3<=0;when red_yellow=>light<="01111101"nextstate<=green_red;data0<=9;data1<=3;data2<=4;data3<=3;end case;end process;time:process(rst,clk -记时状态beginif rst='0' then -复位sec0<=9;sec1<=3;sec2<=4;sec3<=3;elsif rising_edge

7、(clk thenif(sec0=0 AND sec1=0 or (sec2=0 AND sec3=0thenstate<=nextstate;sec0<=data0;sec1<=data1;sec2<=data2;sec3<=data3;elseif sec2=0 thensec2<=9;sec3<=sec3-1;else sec2<=sec2-1;end if;if sec0=0 thensec0<=9;sec1<=sec1-1;else sec0<=sec0-1;end if;end if;end if;end proce

8、ss;-LED显示部分process(sec0begincase sec0 isWHEN 0 => LED7S0 <= "1000000" ; -0WHEN 1 => LED7S0 <= "1111001" ; -1WHEN 2 => LED7S0 <= "0100100" ; -2WHEN 3 => LED7S0 <= "0110000" ; -3WHEN 4 => LED7S0 <= "0011001" ; -4WHEN 5 =&g

9、t; LED7S0 <= "0010010" ; -5WHEN 6 => LED7S0 <= "0000010" ; -6WHEN 7 => LED7S0 <= "1111000" ; -7WHEN 8 => LED7S0 <= "0000000" ; -8WHEN 9 => LED7S0 <= "0010000" ; -9END case;END process;process(sec1begincase sec3 isWHEN 0 =&g

10、t; LED7S3 <= "1000000" ; -0WHEN 1 => LED7S3 <= "1111001" ; -1WHEN 2 => LED7S3 <= "0100100" ; -2WHEN 3 => LED7S3 <= "0110000" ; -3END case;END process;process(sec2begincase sec2 isWHEN 0 => LED7S2 <= "1000000" ; -0WHEN 1 =&g

11、t; LED7S2 <= "1111001" ; -1WHEN 2 => LED7S2 <= "0100100" ; -2WHEN 3 => LED7S2 <= "0110000" ; -3WHEN 4 => LED7S2 <= "0011001" ; -4WHEN 5 => LED7S2 <= "0010010" ; -5WHEN 6 => LED7S2 <= "0000010" ; -6WHEN 7 => LED7S2 <= "1111000" ; -7WHEN 8 => LED7S2 <= "0000000" ; -8WHEN 9 => LED7S2 <= "0010000" ; -9END case;END process;process(sec3begincase sec3 isWHEN 0 => LED7S3 <= "1000000"