交通灯VHDL程序设计.doc

《交通灯VHDL程序设计.doc》由会员分享，可在线阅读，更多相关《交通灯VHDL程序设计.doc（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流交通灯VHDL程序设计.精品文档.library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;entity div isport(clk3:IN std_logic; clkout1,clkout2:OUT std_logic); end div;architecture one of div isbeginprocess(clk3)variable cnt:integer range 0 to 25000000;variable tmp:std_logic

2、;begin if(clk3event and clk3=1)then if cnt=24999999 then-1s分频 cnt:=0; tmp:=not tmp;else cnt:=cnt+1;end if;end if;clkout1=25000 then cnt:=0; tmp:=not tmp;else cnt:=cnt+1;end if;end if;clkout2=tmp;end process;end one;LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;ENTITY KZ IS

3、 PORT(CLK,dtufa:IN STD_LOGIC;Gn,Yn,Rn,L1,L2, Gd,Yd,Rd :OUT STD_LOGIC);END;ARCHITECTURE ART OF KZ ISBEGIN PROCESS(CLK,dtufa) IS VARIABLE S,y:INTEGER RANGE 0 TO 124;BEGINif dtufa=1then Gn=1; -南北向绿灯亮 Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=0; -东西向红灯亮 L298 THEN S:=0; else S:=S+1; end if; IF 0=s and S33 THEN -4

4、0s内 Gn=0; -南北向绿灯亮 Yn=1; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; -东西向红灯亮 L2=1;ELSIF s=33 THEN -南北向绿灯闪烁的第1秒 Gn=1; Yn=1; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=34 THEN -南北向绿灯闪烁的第2秒 Gn=0; Yn=1; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; L2=1; ELSIF s=35 THEN -南北向绿灯闪烁的第3秒 Gn=1; Yn=1; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; L2=1;ELSI

5、F s=36 THEN -南北向绿灯闪烁的第4秒 Gn=0; Yn=1; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; L2=1; ELSIF s=37 THEN -南北向绿灯闪烁的第5秒 Gn=1; Yn=1; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=38 THEN -南北向绿灯闪烁的第6秒 Gn=0; Yn=1; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=39 THEN -南北向黄灯闪烁1秒 Gn=1; Yn=0; Rn=1; L1=1; Gd=1; Yd=1; Rd=0; L2=1;E

6、LSIF 39s and s46 THEN-北向左转灯亮 Gn=1; Yn=1; Rn=0; L1=0; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=46 THEN-北向左转灯闪烁的第1秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=47 THEN-北向左转灯闪烁的第2秒 Gn=1; Yn=1; Rn=0; L1=0; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=48 THEN-北向左转灯闪烁的第3秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=0; L2=1

7、;ELSIF s=49 THEN-北向左转灯闪烁的第4秒 Gn=1; Yn=1; Rn=0; L1=0; Gd=1; Yd=1; Rd=0; L2=1;elsIF 49S AND S83 THEN -33s内 Gn=1; -南北向红灯亮 Yn=1; Rn=0; L1=1; Gd=0; Yd=1; Rd=1; -东西向绿灯亮 L2=1;ELSIF s=83 THEN -东西向绿灯闪烁的第1秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=1; L2=1;ELSIF s=84 THEN -东西向绿灯闪烁的第2秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=

8、0; Yd=1; Rd=1; L2=1; ELSIF s=85 THEN -东西向绿灯闪烁的第3秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=1; L2=1;ELSIF s=86 THEN -东西向绿灯闪烁的第4秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=0; Yd=1; Rd=1; L2=1; ELSIF s=87 THEN -东西向绿灯闪烁的第5秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=1; L2=1;ELSIF s=88 THEN -东西向绿灯闪烁的第6秒 Gn=1; Yn=1; Rn=0; L1=

9、1; Gd=0; Yd=1; Rd=1; L2=1;ELSIF s=89 THEN -东西向黄灯闪烁1秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=0; Rd=1; L2=1;ELSIF 89s and s96 THEN-西向左转灯亮 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=0; L2=0;ELSIF s=96 THEN-西向左转灯闪烁的第1秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=97 THEN-西向左转灯闪烁的第2秒 Gn=1; Yn=1; Rn=0; L1

10、=1; Gd=1; Yd=1; Rd=0; L2=0;ELSIF s=98 THEN-西向左转灯闪烁的第3秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=0; L2=1;ELSIF s=99 THEN-西向左转灯闪烁的第4秒 Gn=1; Yn=1; Rn=0; L1=1; Gd=1; Yd=1; Rd=0; L2=0;end if;end if;end process;end art;LIBRARY ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;ENTITY shuma IS

11、PORT(clk1ms,clk1s,stufa:IN std_logic;-1ms时钟 weig,weid:OUT std_logic; duan:out std_logic_vector(6 downto 0);END shuma;ARCHITECTURE rtl OF shuma ISsignal temp,cnt:std_logic;signal CNT49:std_logic_vector(5 downto 0);signal duang,duand:std_logic_vector(6 downto 0);BEGINP0:process(clk1ms,duand,duang,temp

12、)begin if clk1msevent and clk1ms=1thentemp=not temp;end if;if temp=0thenduan=0000000;-关闭段选weig=0;-选通高位weid=1;-关闭高位duan=duang;-给段码赋值elseduan=0000000;weid=0;weig=1;duan=duand;end if;end process P0;P1:process(clk1s,stufa,cnt49)is-40s倒计时beginif stufa=1thencnt49=cnt49;elsif(clk1sevent and clk1s=1)thenif

13、CNT4949 thenCNT49=CNT49+1;ELSECNT49duang=0110011;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1111001;duandduang=1101101;duandduang=1101101;duandduang=1101101;duan

14、dduang=1101101;duandduang=1101101;duandduang=1101101;duandduang=1101101;duandduang=1101101;duandduang=1101101;duandduang=1101101;duandduang=0110000;duandduang=0110000;duandduang=0110000;duandduang=0110000;duandduang=0110000;duandduang=0110000;duandduang=0110000;duandduang=0110000;duandduang=0110000;

15、duandduang=0110000;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=0110000;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111

16、110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=1111110;duandduang=0000000;duand=0000000;END CASE;END PROCESS P2;END rtl;LIBRARY IEEE;USE IEEE.STD_LOGIC_1164.ALL;USE IEEE.STD_LOGIC_UNSIGNED.ALL;USE IEEE.STD_LOGIC_ARITH.ALL;ENTITY jt ISport(jclk5mhz,jtufa:IN std_logic; jweig,j

17、weid:OUT std_logic; jduan:out std_logic_vector(6 downto 0); jGn,jYn,jRn,jL1,jL2, jGd,jYd,jRd :OUT STD_LOGIC);end jt;architecture rtl of jt iscomponent div port(clk3:IN std_logic; clkout1,clkout2:OUT std_logic); end component;component kz PORT(CLK,dtufa:IN STD_LOGIC;Gn,Yn,Rn,L1,L2, Gd,Yd,Rd :OUT STD_

18、LOGIC);end component;component shuma PORT(clk1ms,clk1s,stufa:IN std_logic; weig,weid:OUT std_logic; duan:out std_logic_vector(6 downto 0);end component;signal temp,jclk1s,jclk1ms:std_logic;beginprocess(jtufa)beginif jtufa=0thentempjclk5mhz,clkout1=jclk1s,clkout2=jclk1ms);U1:kz port map(clk=jclk1s,Gn=jgn,Yn=jyn,Rn=jrn,L1=jl1,L2=jl2, Gd=jgd,Yd=jyd,Rd=jrd,dtufa=temp);U2:shuma port map(clk1ms=jclk1ms,clk1s=jclk1s,weig=jweig,weid=jweid,duan=jduan,stufa=temp);end rtl;