用VHDL语言编写十字路口交通灯

Zedd

用VHDL语言编写十字路口交通灯

library IEEE; 8 b  x) ~% K6 h2 [1 luse IEEE.STD_LOGIC_1164.ALL; 3 I9 V- T( ]0 r/ Y8 k+ d& Nuse IEEE.STD_LOGIC_ARITH.ALL; use IEEE.STD_LOGIC_UNSIGNED.ALL; * |3 i2 l( C2 ientity TrafficLight is 6 R. s* F" O* v9 F. ~Port(clk2, reset: in std_logic; ' {' N; k& X; @7 elight: out std_logic_vector(11 downto 0)); end TrafficLight;   V0 Q* z1 @9 C3 R" ]architecture BEHAVIORAL of TrafficLight is type zt is(s0, s1, s2, s3); signal current_state: zt; signal clk1, clk3,clk4, clk1k: std_logic; : z5 R' u4 v* Lsignal east_red, east_yellow, east_green: std_logic; --东方三种灯 - y1 u; q4 _7 R! psignal west_red, west_yellow, west_green: std_logic; --西方三种灯 . z5 e6 ~+ R4 d) j4 ~# x" Rsignal north_red, north_yellow, north_green: std_logic; --北方三种灯 signal south_red, south_yellow, south_green: std_logic; --南方三种灯 , p4 z9 V; q+ {1 C6 J4 s6 Tsignal ew_high, ns_high: std_logic_vector(3 downto 0); --南北和东西方向倒计时显示的高位数 signal ew_low, ns_low: std_logic_vector(3 downto 0); --倒计时显示的低位数 9 i9 L% H- ^& X, o4 lbegin p1: process variable c: integer := 0; begin wait until clk2'event and clk2 = '1'; 2 {" j. N/ Q+ \) K5 nif c < 50 then   S; z) y+ o: w1 B- Mc := c + 1; else 3 z$ [% s- q, Z5 g% ]' a0 [clk1k <= not clk1k; c := 0; $ i2 O. ?4 V: |. j* }end if; end process p1; 3 k5 w& x2 c9 l( V( T! P  Q+ qp11: process 7 _  D# X9 M3 g9 ]3 R2 f; xvariable c: integer := 0; begin wait until clk1k'event and clk1k = '1'; ' U7 a5 ^0 V* R0 L+ P' ]if c < 125 then c := c + 1; & t8 F, w+ z7 Delse ; ^1 P5 P, L! \! ^9 Lclk4 <= not clk4; c:= 0; ) Z' T% w  f" x+ W/ j+ ~end if; 5 N& ]8 P$ i# d: p' X9 S/ Iend process p11; ( G3 P0 d% N  ?; @6 qp2: process(clk4) --从4hz分频到2hz，用于黄灯闪烁 begin + H. \4 ^) N) l1 h& kif rising_edge(clk4) then clk3 <= not clk3; end if; end process p2; ' s9 Q! W* I* F2 J8 r9 l6 Zp3:process(clk3) --从2hz分频到1hz，计数时钟 ( {* f* G) w) K6 k! }6 Dbegin 5 J: n# o: v; Eif rising_edge(clk3) then 3 x" s* w2 d/ K% E; Xclk1 <= not clk1; end if; end process p3; p4: process(reset, clk1, current_state) begin if(clk1 = '1' and clk1'event) then --当clk1处于上升沿 8 {, f$ V- B* |% j7 ?! `2 Sif reset = '1' then current_state <= s0; --复位时强行进入s0状态 4 @9 K3 J$ x1 J  z% Bns_low <= "0000"; # Q. g1 W9 T* O9 L2 s3 R8 ^- Zns_high <= "0000"; ew_low <= "0000"; ew_high <= "0000"; 2 r  f2 \0 E: p( x3 i; selse if(ns_low = "0000" and not(ns_high = "0000")) then --如果低位不够减，则高位减一，低位置9 ns_low <= "1001"; ns_high <= ns_high - 1; 9 ?: ~3 c6 d& M7 v  [5 O/ T8 uelse --每扫描一次，时间减一，如果低位够减，则只需低位减一,高位不变 ns_low <= ns_low - 1; ns_high <= ns_high; end if; 2 S( q  x$ ~  c& Y( `! [( g$ O0 [if(ew_low = "0000" and not(ew_high = "0000")) then 7 ^) c6 ^1 d, i5 M3 M% o8 n( q8 ^6 Zew_low <= "1001"; ew_high <= ew_high - 1; else ew_low <= ew_low - 1; # K( W$ W9 m- g0 o9 cew_high <= ew_high; " @. D  a, P3 Iend if; " N0 L1 k, E7 c: p9 `case current_state is --检测当前状态 5 |+ i! v0 S" |" @" cwhen s0 => --当现在是南北红，东西绿 if(ew_high = "0000" and ew_low = "0000") then --如果绿灯时间结束 current_state <= s1; --改变状态为南北红，东西黄 $ @! d5 x# g4 c  B3 q; _9 q9 Enorth_red <= '1'; south_red <= '1'; - y) W4 b; J( r& O& _/ k) Wnorth_yellow <= '0'; south_yellow <= '0'; north_green <= '0'; south_green <= '0'; east_yellow <= '1'; west_yellow <= '1'; east_green <= '0'; west_green <= '0'; east_red <= '0'; west_red <= '0'; , e/ T# G7 h2 m9 p# O8 h' g1 Pew_high <= "0000"; ew_low <= "0100"; --黄灯显示时间为4 , y( d$ @9 V' R5 Tend if; 7 p0 z! D8 p, M9 M! Bwhen s1 => --当现在是南北红，东西黄 8 M5 D: A* L+ K  Rif(ew_high = "0000" and ew_low = "0000") then --黄灯时间结束 current_state <= s2; --南北绿，东西红 1 R" M# h5 z: X" fnorth_green <= '1'; south_green <= '1'; 0 ]; J; {: z+ J9 S  N/ R2 wnorth_red <= '0'; south_red <= '0'; north_yellow <= '0'; south_yellow <= '0'; east_red <= '1'; west_red <= '1'; $ z! X) R; I  ~  B* n. ueast_green <= '0'; west_green <= '0'; east_yellow <= '0'; west_yellow <= '0'; ns_high <= "0001"; ns_low <= "1001"; --绿灯显示时间为19 ew_high <= "0010"; ew_low <= "0100"; --红灯显示时间为24，多出来1因为要对应两个0 end if; # k, u! r5 S1 Zwhen s2 => --当现在是南北绿，东西红 : k% }3 s/ a9 y8 u& t( lif(ns_high = "0000" and ns_low = "0000") then --绿灯时间结束 current_state <= s3; --南北黄，东西红 north_yellow <= '1'; south_yellow <= '1'; & J" o& Z/ @; @, I' w, U/ mnorth_green <= '0'; south_green <= '0'; north_red <= '0'; south_red <= '0'; : U  w" o; H; qeast_red <= '1'; west_red <= '1'; east_green <= '0'; west_green <= '0'; # b% a) \7 E& T3 n  @east_yellow <= '0'; west_yellow <= '0'; 5 M" k$ b6 b/ ^# Pns_high <= "0000"; ns_low <= "0100"; --黄灯时间为4 . K% `& \, ?- ?& iend if; when s3 => --当现在是南北黄，东西红   c5 {1 j0 A, G% j: o# u( \* Hif(ns_high = "0000" and ns_low = "0000") then --黄灯时间结束 : e: l; L7 C% V+ B- U* ccurrent_state <= s0; --南北红，东西绿 & f& x2 O- N2 A- Z- Anorth_red <= '1'; south_red <= '1'; % x% U: W# i7 q5 z( \; Z9 }north_green <= '0'; south_green <= '0'; / N" `' h! R# c7 _& t8 S. l* z7 inorth_yellow <= '0'; south_yellow <= '0'; east_green <= '1'; west_green <= '1'; east_red <= '0'; west_red <= '0'; east_yellow <= '0'; west_yellow <= '0'; ns_high <= "0010"; ns_low <= "0100"; --红灯时间为24 ew_high <= "0001"; ew_low <= "1001"; --绿灯时间为19 end if; * l) A- h4 n0 {end case; * b' x' ]5 M6 nend if; end if; end process; light(0) <= east_red; light(1) <= east_green; light(2) <= east_yellow and clk3; --实现黄灯闪烁 6 q) l" q& b8 J) }: l# Alight(3) <= south_red; light(4) <= south_green; 5 n  z" c' q$ u1 `3 O3 e; Qlight(5) <= south_yellow and clk3; --实现黄灯闪烁 + T! f0 E0 F+ j1 |light(6) <= west_red; light(7) <= west_green; light(8) <= west_yellow and clk3; --实现黄灯闪烁 ! k7 Z# C  l8 V- Jlight(9) <= north_red; light(10) <= north_green; 7 z8 d0 C! r6 D. blight(11) <= north_yellow and clk3; --实现黄灯闪烁 end BEHAVIORAL;

+ t, D+ F2 g0 l; t

Demyar

谢谢楼主 这就去看看可行不