【正文】 附錄六層電梯控制器程序清單：library ieee。use 。entity dianti is port ( clk : in std_logic。 超載、關(guān)門中斷、提前關(guān)門清除報(bào)警信號(hào) c_u1,c_u2,c_u3,c_u4,c_u5: in std_logic。 電梯外人的下降請(qǐng)求信號(hào) d1,d2,d3,d4,d5,d6 : in std_logic。 到達(dá)樓層信號(hào) door : out std_logic_vector(1 downto 0)。 電梯所在樓層顯示 led_c_u:out std_logic_vector(5 downto 0)。 電梯外人下降請(qǐng)求信號(hào)顯示 led_d : out std_logic_vector(5 downto 0)。 看門狗報(bào)警信號(hào) ud,alarm : out std_logic。 電機(jī)控制信號(hào)和電梯運(yùn)動(dòng)end dianti。 電梯內(nèi)人請(qǐng)求信號(hào)寄存信號(hào)signal c_u11,c_u22,c_u33,c_u44,c_u55:std_logic。 電梯外人下降請(qǐng)求信號(hào)寄存信號(hào)signal q:integer range 0 to 1。 關(guān)門延時(shí)計(jì)數(shù)器 signal q2:integer range 0 to 9。 電梯內(nèi)外請(qǐng)求信號(hào)寄存器signal opendoor:std_logic。 電梯運(yùn)動(dòng)方向信號(hào)寄存器signal en_up,en_dw:std_logic。event and clk=39。 then if clr=39。 then q1=0。wahaha=39。 清除故障報(bào)警 elsif full=39。 then alarm=39。 q1=0。 else door=00。 elsif q=1 then q=0。039。139。139。q1=0。up=39。down=39。 開門操作 elsif en_up=39。 then 上升預(yù)操作 if deng=39。 then door=10。q2=q2+1。139。 提前關(guān)門 elsif q1=6 then door=00。139。139。q1=q1+1。door=00。 elsif en_dw=39。 then 下降預(yù)操作 if deng=39。 then door=10。q2=q2+1。139。 elsif q1=6 then door=00。039。139。q1=q1+1。door=00。 end if。139。 電梯到達(dá)1樓，數(shù)碼管顯示1 if d11=39。 or c_u11=39。 then d11=39。 c_u11=39。opendoor=39。有當(dāng)前層的請(qǐng)求，則電梯進(jìn)入開門狀態(tài) elsif dd_cc00000001 then en_up=39。en_dw=39。 opendoor=39。 有上升請(qǐng)求，則電梯進(jìn)入預(yù)備上升狀態(tài) elsif dd_cc=00000000 then opendoor=39。 無請(qǐng)求時(shí)，電梯停在1樓待機(jī) end if。139。 電梯到達(dá)2樓，數(shù)碼管顯示2 if updown=39。 then 電梯前一運(yùn)動(dòng)狀態(tài)位上升 if d22=39。 or c_u22=39。 then d22=39。 c_u22=39。 opendoor=39。 有當(dāng)前層的請(qǐng)求，則電梯進(jìn)入開門狀態(tài) elsif dd_cc00000011 then en_up=39。en_dw=39。 opendoor=39。 有上升請(qǐng)求，則電梯進(jìn)入預(yù)備上升狀態(tài) elsif dd_cc00000010 then en_dw=39。en_up=39。 opendoor=39。 有下降請(qǐng)求，則電梯進(jìn)入預(yù)備下降狀態(tài) end if。139。139。039。039。139。139。039。039。139。039。039。 elsif g3=39。 then led=0000110。139。139。139。039。039。139。139。039。039。139。039。039。 elsif d33=39。 or c_d33=39。 then d33=39。 c_d33=39。 opendoor=39。 elsif dd_cc00000100 then en_dw=39。en_up=39。opendoor=39。 elsif dd_cc00000111 then en_up=39。en_dw=39。 opendoor=39。 end if。139。 電梯到達(dá)4樓，數(shù)碼管顯示4 if updown=39。 then if d44=39。 or c_u44=39。 then d44=39。 c_u44=39。 opendoor=39。 elsif dd_cc00001111 then en_up=39。en_dw=39。 opendoor=39。 elsif dd_cc00001000 then en_dw=39。en_up=39。 opendoor=39。 end if。139。139。039。039。139。139。039。039。139。039。039。 elsif g5=39。 then led=0100100。139。139。139。039。039。139。139。039。039。139。039。039。 elsif d55=39。 or c_d55=39。 then d55=39。 c_d55=39。opendoor=39。 elsif dd_cc00010000 then en_dw=39。 en_up=39。opendoor=39。 elsif dd_cc00011111 then en_up=39。 en_dw=39。 opendoor=39。 end if。139。 電梯到達(dá)6樓，數(shù)碼管顯示6 if d66=39。 or c_d66=39。 then d66=39。 c_d66=39。opendoor=39。 elsif dd_cc10000000 then en_dw=39。en_up=39。 opendoor=39。 end if。039。039。 end if。alarm=39。 清除超載報(bào)警 if d1=39。 then d11=d1。139。 elsif d3=39。 then d33=d3。139。 elsif d5=39。 then d55=d5。139。 end if。139。 對(duì)電梯外人上升請(qǐng)求信號(hào)進(jìn)行檢測(cè)和寄存 elsif c_u2=39。 then c_u22=c_u2。139。 elsif c_u4=39。 then c_u44=c_u4。139。 end if。139。 對(duì)電梯外人下降請(qǐng)求信號(hào)進(jìn)行檢測(cè)和寄存 elsif c_d3=39。 then c_d33=c_d3。139。 elsif c_d5=39。 then c_d55=c_d5。139。end if。d55amp。d33amp。d11。039。c_u55amp。c_u33amp。c_u11。c_d55amp。c_d33amp。39。 電梯外人下降請(qǐng)求信號(hào)并置 dd_cc=dd or cc_u or cc_d。 ud=updown。 電梯內(nèi)人請(qǐng)求信號(hào)顯示 led_c_u=cc_u。 電梯外人下降請(qǐng)求信號(hào)顯示end if。 end behav