【文章內容簡介】 begin if rising_edge(clk)thenupkey_data=upkey。 downkey_data=downkey。opendoor2=opendoor1。opendoor1=opendoor。 end if。end process。req_opendoor=(opendoor1 and not(opendoor2))。process(switch,clk)begin if(switch=39。039。)thenreq_upr=39。039。req_downr=39。039。 elsif(rising_edge(clk))then if(req_opendoor=39。139。 and qin=id)then req_upr=39。039。 req_downr=39。039。 elsif(upkey=39。139。 and upkey_data=39。039。)then req_upr=39。139。 elsif(downkey=39。139。 and downkey_data=39。039。)then req_downr=39。139。 end if。 end if。 end process。ur=req_upr。dr=req_downr。 with qin select disp=0001 when 0000000001, 0010 when 0000000010, 0011 when 0000000100, 0100 when 0000001000, 0101 when 0000010000, 0110 when 0000100000, 0111 when 0001000000, 1000 when 0010000000, 1001 when 0100000000, 1010 when 1000000000, 0000 when others。disp1=disp。end art。10層全自動電梯控制器頂層模塊源程序如下：library ieee。use 。use 。use 。entity elevator10 is port(clk:in std_logic。 時鐘信號 switch:in std_logic。 電梯電源開關，高電平時電梯正常工作 close:in std_logic。 強制關門信號，高電平時電梯門立即關閉delay:in std_logic。 延時信號sel:in std_logic_vector(10 downto 1)。 樓層選擇信號 uplift:in std_logic_vector(10 downto 1)。 電梯上升請求輸入信號 downlift:in std_logic_vector(10 downto 1)。 電梯下降請求輸入信號 qout:out std_logic_vector(10 downto 1)。 電梯狀態(tài)顯示輸出信號 opendoor:out std_logic)。 強制開門信號end。architecture art of elevator10 isponent counterport(clk,reset,clr,en:in std_logic。 q:out integer range 0 to 8)。end ponent。type state_type is(up,m_up,down,m_down,stop,pause)。signal state:state_type。 電梯的各種狀態(tài)signal clk1:std_logic。 1Hz時鐘信號signal clk4:std_logic。 4Hz時鐘信號signal req_up:std_logic。 上升請求信號signal req_down:std_logic。 下降請求信號signal runen:std_logic。 電梯運行使能signal runclr:std_logic。 電梯運行復位signal stopen0:std_logic。 電梯停止使能signal stopen1:std_logic。signal stopclr:std_logic。 電梯停止復位signal req_upr:std_logic_vector(10 downto 1)。 上升請求寄存器信號signal req_downr:std_logic_vector(10 downto 1)。 下降請求寄存器信號signal position:std_logic_vector(10 downto 1)。 電梯當前位置信號signal uplift_data:std_logic_vector(10 downto 1)。 上升樓層數(shù)據(jù)顯示信號signal downlift_data:std_logic_vector(10 downto 1)。 下降樓層數(shù)據(jù)顯示信號signal sel_data:std_logic_vector(10 downto 1)。 選擇樓層數(shù)據(jù)顯示信號signal runtime: integer range 0 to 8。 電梯運行時間signal opentime:integer rang