【正文】 udsig=39。state=doorclose。039。 else udsig=39。state=down。139。 else udsig=39。 when wait15=state=doorclose。 when wait7=state=wait8。039。pos:=1。then state=stopon1。signal clearup,cleardn:std_logic。跟down_button對應的指示燈信號 stoplight: buffer std_logic_vector(50 downto 1)。use 。begin U1:flift port map(clk,reset,up_button,down_button,stop_button,uplight,downlight,stoplight,s0,s1,s2,doorlight)。樓層顯示(十位) posdisplay0:out std_logic_vector(3 downto 0)。 reset: in std_logic。跟up_button對應的指示燈信號 downlight: buffer std_logic_vector(50 downto 1)。use 。無請求信號時，電梯一直處于初始狀態(tài)(即電梯門關閉,停在第一層)；若有上升或下降請求信號時，電梯上升到請求信號所在的樓層，然后電梯門打開同時清除所在樓層相應的請求信號，在停留15秒鐘之后，電梯門關閉，電梯根據(jù)電梯內(nèi)信號的請求上升或下降，最后停留在請求停止的樓層。整個系統(tǒng)分為兩大組成模塊：電梯控制器主體模塊，完成各項控制進程，輸出電路運行狀態(tài)；顯示模塊，實現(xiàn)電梯控制器顯示輸出。50層電梯的VHDL程序設計方案第一部分 設計任務電梯程序設計設計一個50層的電梯程序,實現(xiàn)以下功能：功能：（1） 用LED顯示電梯的行進過程,即用數(shù)碼管顯示電梯當前所在樓層的位置。一、 電梯控制器主體模塊圖1如圖所示，clk是分頻后1Hz的時鐘信號，作為FPGA的時鐘輸入信號，電梯的模塊輸入的信號有：電梯外請求信號（包括上升請求和下降請求信號）、電梯內(nèi)請求信號（即選定電梯停止的樓層的位置）。在電梯上升的進程中，電梯首先對所在樓層以上的上升請求信號發(fā)生響應，而忽略下降請求信號，只有在上升過程停止后，電梯才開始對下降請求信號做出相應的處理。use 。跟down_button對應的指示燈信號 stoplight: buffer std_logic_vector(50 downto 1)。 up_button:in std_logic_vector(49 downto 1)。 樓層顯示(個位) tdisplay:out std_logic_vector(3 downto 0)。 U2:led port map(s0,posdis1)。entity flift isport(clk: in std_logic。跟stop_button對應的指示燈信? posdisplay1:out std_logic_vector(3 downto 0)。signal udsig:std_logic。 clearup=39。state=wait1。cleardn=39。 when wait8=state=wait9。 when doorclose=doorlight=39。139。 or downlight(50)=39。 end if。139。state=up。 elsif stoplightX03FFFFFFFFFFF or downlightX03FFFFFFFFFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX003FFFFFFFFFF or downlightX003FFFFFFFFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX0003FFFFFFFFF or downlightX0003FFFFFFFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX00003FFFFFFFF or downlightX00003FFFFFFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX000003FFFFFFF or downlightX000003FFFFFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX0000003FFFFFF or downlightX0000003FFFFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX00000003FFFFF or downlightX00000003FFFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX000000003FFFF or downlightX000000003FFFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX0000000003FFF or downlightX0000000003FFF then udsig=39。039。 end if。139。state=up。 elsif stoplightX00000000003FF or downlightX00000000003FF then udsig=39。039。 end if。139。state=up。 elsif stoplightX000000000003F or downlightX000000000003F then udsig=39。039。 end if。139。state=up。 elsif stoplightX0000000000003 or downlightX0000000000003 then udsig=39。039。039。state=doorclose。 elsif stoplight(1)=39。039。state=down。 elsif stoplightX0000000000008 or uplightX0000000000008 or downlightX0000000000008 then udsig=39。139。 end if。039。state=down。 elsif stoplightX0000000000080 or uplightX0000000000080 or downlightX0000000000080 then udsig=39。139。 end if。039。state=down。 elsif stoplightX0000000000800 or uplightX0000000000800 or downlightX0000000000800 then udsig=39。139。 end if。039。state=down。 elsif stoplightX0000000008000 or uplightX0000000008000 or downlightX0000000008000 then udsig=39。139。 end if。039。state=down。 elsif stoplightX0000000080000 or uplightX0000000080000 or downlightX0000000080000 then udsig=39。139。 end if。039。state=down。 elsif stoplightX0000000800000 or uplightX0000000800000 or downlightX0000000800000 then udsig=39。139。 end if。039。state=down。039。 end if。139。 elsif stoplightX0000001000000 or uplightX0000001000000 or downlightX0000001000000 then udsig=39。state=down。039。 end if。139。 elsif stoplightX0000000100000 or uplightX0000000100000 or downlightX0000000100000 then udsig=39。state=down。039。 end if。139。 elsif stoplightX0000000010000 or uplightX0000000010000 or downlightX0000000010000 then udsig=39。state=down。039。 end if。139。 elsif stoplightX0000000001000 or uplightX0000000001000 or downlightX0000000001000 then udsig=39。state=down。039。 end if。139。 elsif stoplightX0000000000100 or uplightX0000000000100 or downlightX0000000000100 then udsig=39。state=down。039。 end if。139。 elsif stoplightX0000000000010 or uplightX0000000000010 or downlightX0000000000010 then udsig=39。state=down。039。 end if。 or uplight(1)=39。039。 end if。 elsif uplight(1)=39。state=up。139。 end if。039。 elsif stoplightX000000000001F or downlightX000000000001F then udsig=39。state=up。139。 end if。039。 elsif stoplightX00000000001FF or downlightX00000000001FF then udsig=39。state=up。139。 end if。039。 elsif stoplightX0000000001FFF or downlightX0000000001FFF then udsig=39。state=up。139。 end if。039。 elsif stoplightX000000001FFFF or downlightX000000001FFFF then udsig=39。state=up。139。 end if。039。 elsif stoplightX00000001FFFFF or downlightX00000001FFFFF then udsig=39。state=up。139。 end if。039。 elsif stoplightX0000001FFFFFF or downlightX0000001FFFFFF then udsig=39。state=up。139。 end if。039。 elsif stoplightX000001FFFFFFF or downlightX000001FFFFFFF then udsig=39。state=up。139。 end if。0