资源描述：
《--控制模块,keepmudoe》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、----------控制模块，keepmudoelibraryieee;useieee.std_logic_1164.all;useieee.std_logic_unsigned.all;entitykeepisport(alarm,b,clk,reset,jeep:instd_logic;key:instd_logic_vector(2downto0);ns,ew:outstd_logic_vector(2downto0);--两个方向的红、黄、绿。c:outstd_logic_vector(1dow
2、nto0);--状态输出端00，01，10，11nsh,nsl,ewh,ewl:outstd_logic_vector(3downto0);en:outstd_logic);--;endkeep;architecturekeep_arcofkeepistypestate_typeis(s0,s1,s2,s3,s4);typemode_typeis(m1,m2,m3,m4);signalcurrent_state:state_type;signalnew_state:state_type;signalmo
3、de:mode_type;signalnsh_c,nsl_c,ewh_c,ewl_c:std_logic_vector(3downto0);beginnewstate_logic:process(current_state,b,alarm,reset,clk,mode)variablem:integerrange0to3;begin---------------------------------------------------------------------------------------
4、--------------------------------------------if(clk'eventandclk='1')thencurrent_state<=new_state;if(key="100")thenen<='0';casemodeiswhenm1=>mode<=m2;ewl<=ewl_c;whenm2=>mode<=m3;ewh<=ewh_c;whenm3=>mode<=m4;nsl<=nsl_c;whenm4=>mode<=m1;nsh<=nsh_c;whenothers=
5、>null;endcase;-------------------------------------------------------elsif(key="010")thenen<='0';casemodeiswhenm1=>--en<='0';if(ewl_c="1001")thenewl_c<="0000";elseewl_c<=ewl_c+'1';endif;whenm2=>--en<='0';if(ewh_c="1001")thenewh_c<="0000";elseewh_c<=ewh_c
6、+'1';endif;whenm3=>--en<='0';if(nsl_c="1001")thennsl_c<="0000";elsensl_c<=nsl_c+'1';endif;whenm4=>--en<='0';if(nsh_c="1001")thennsh_c<="0000";elsensh_c<=nsh_c+'1';endif;whenothers=>null;endcase;------------------------------------------------------------
7、------------------------------------------------------------------------elsif(key="001")thenen<='1';-------------------------------------------------if(alarm='1')thennew_state<=s0;----紧急报警状态elseif(reset='1')thennew_state<=s1;----------------通电复位后给交通灯状态赋初
8、值elsecasecurrent_stateiswhens1=>m:=0;if(b='1'andjeep='0')then---当计数到20s且无紧急情况时，交通灯跳至下一状态new_state<=s2;--elsif(a='1')thennew_state<=s0;-----有紧急情况时，交通灯变为紧急状态elsenew_state<=s1;------------------计时未到的时候保持原状态不变endif;whens2=>m:=
