vhdl实现交通灯.doc

LED.、数码管交通灯library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_arith.all;use ieee.std_logic_unsigned.all;entity jiaotongdeng isport(clk:in std_logic;rst:in std_logic;en_led:out std_logic_vector(3 downto 0);en_seg:out std_logic_vector(1 downto 0);data_led:out std_logic_vector(2 downto 0);data_seg:out std_logic_vector(7 downto 0);end jiaotongdeng;architecture behav of jiaotongdeng is signal saomiao:integer range 0 to 1;signal tim:integer range 0 to 59; signal red_tim:integer range 0 to 59;signal green_tim:integer range 0 to 40;signal tim_ge:integer range 0 to 9;signal tim_shi:integer range 0 to 5;signal cnt_led:integer range 0 to 2:=0;signal yew_tim:integer range 0 to 20;signal tmp:integer range 0 to 2; begin en_led=0000;p1:process(clk)variable cnt:integer range 0 to 7999999;beginif clkevent and clk=1 thenif cnt=7999999 then cnt:=0;if cnt_led=0 then if red_tim=0 thenred_tim=10;tmp=1;if cnt_led=2 thencnt_led=0;elsecnt_led=cnt_led+1;end if;elsered_tim=red_tim-1;end if;elsif cnt_led=1 thenif yew_tim=0 thenyew_tim=20;tmp=2;if cnt_led=2 thencnt_led=0;elsecnt_led=cnt_led+1;end if;elseyew_tim=yew_tim-1;end if;elsif cnt_led=2 thenif green_tim=0 thengreen_tim=40;tmp=0;if cnt_led=2 thencnt_led=0;elsecnt_led=cnt_led+1;end if;elsegreen_tim=green_tim-1;end if;end if;else cnt:=cnt+1;end if;end if;end process;p2:process(clk,rst)- variable cnn1:integer range 0 to 7999;beginif rst=0 thencnn1:=0;elsif clkevent and clk=1 thenif cnn1=7999 thencnn1:=0;if saomiao=1 thensaomiao=0;elsesaomiao tim_shi=5;tim_ge tim_shi=4;tim_ge tim_shi=3;tim_ge tim_shi=2;tim_ge tim_shi=1;tim_getim_shi=0; tim_geseg7:=00000011;when 1 =seg7:=10011111;when 2 =seg7:=00100101;when 3 =seg7:=00001101;when 4 =seg7:=10011001;when 5 =seg7:=01001001;when 6 =seg7:=01000001;when 7 =seg7:=00011111;when 8 =seg7:=00000001;when 9 =seg7:=00001001;when others =seg7:=00000011;end case;return seg7;end b_to_seg7; begincase saomiao iswhen 0 =en_seg=10;data_segen_seg=01;data_segen_seg=11;data_segd