【正文】
。 if o_d4=39。 then o_d2_r:=39。end if。 in_all:=in4_ramp。in2_ramp。 電梯內(nèi) 乘客 請求信號并置 o_u_all:=39。amp。o_u2_ramp。 電梯外 乘客 上升請求信號并置 o_d_all:=o_d4_ramp。o_d2_ramp。039。 電梯內(nèi)、外 乘客 請求信號進(jìn)行綜合 end if。event and clk=39。 and en=39。 and stop=39。and overload=39。then case g is 7 when g1 = led=0001。139。139。039。039。039。039。139。 elsif o_i_all=0000 then無請求時,電梯停在 1 樓待機(jī) en_up=39。en_dw=39。opendoor=39。 g=g1。139。039。039。 end if。 電梯到達(dá) 二 樓,數(shù)碼管顯示 2 if updown=39。 then 電梯前一運動狀態(tài)位上升 if in2_r=39。 or o_u2_r=39。 or o_d2_r=39。 then 有當(dāng)前層的請求,則電梯進(jìn)入開門狀態(tài) in2_r:=39。 o_u2_r:=39。o_d2_r:=39。 en_up=39。en_dw=39。opendoor=39。 g=g2。039。039。039。 elsif o_i_all0011 then 有上升請求,則電梯進(jìn)入預(yù)備上升狀態(tài) en_up=39。en_dw=39。opendoor=39。g=g3。039。139。039。 end if。139。139。139。039。039。039。039。039。139。 elsif o_i_all=0000 then en_up=39。en_dw=39。opendoor=39。 g=g2。039。139。039。 elsif o_i_all0011 then 有上升請求,則電梯進(jìn)入預(yù)備上升狀態(tài) en_up=39。en_dw=39。opendoor=39。 g=g3。 end if。 電梯到達(dá) 三 樓,數(shù)碼管顯示 3 if updown=39。 then if in3_r=39。 or o_u3_r=39。 or o_d3_r=39。 then in3_r:=39。 o_u3_r:=39。o_d3_r:=39。en_up=39。en_dw=39。opendoor=39。 g=g3。039。039。039。 elsif o_i_all0111 then en_up=39。en_dw=39。opendoor=39。 g=g4。039。139。039。 end if。139。139。139。039。039。039。039。039。139。 elsif o_i_all=0000 then en_up=39。en_dw=39。opendoor=39。 g=g3。039。139。039。 8 elsif o_i_all0111 then en_up=39。en_dw=39。opendoor=39。 g=g4。 end if。 電梯到達(dá) 四 樓,數(shù)碼管顯示 4 if in4_r=39。 or o_d4_r=39。 then in4_r:=39。 o_d4_r:=39。en_up=39。en_dw=39。opendoor=39。g=g4。039。039。039。 elsif o_i_all1000 then en_up=39。en_dw=39。opendoor=39。 g=g3。 when others = null。039。039。 end if。 process(clk,en_up,en_dw,opendoor,stop,overload) variable v_en : std_logic。 開關(guān)門延時計數(shù)器 variable t2 : integer range 0 to 5。 begin if(rising_edge(clk)and stop=39。 and overload=39。)then if((en_up or en_dw or opendoor)=39。)then v_en:=39。 else v_en:=39。 if opendoor=39。 then if (t1=0 and flag=39。)then flag:=39。 t1:=3。139。139。039。 開門操作 end if。139。flag:=39。 updown=39。 if (t2=5)then v_en:=39。t2:=0。 開門操作 end if。139。flag:=39。 updown=39。 if (t2=5)then v_en:=39。t2:=0。 開門操作 end if。 end if。 en=v_en。 end process。