【良心出品】vhdl设计_三层电梯控制程序

use ieee.std_logic_1164.all;use ieee.std_logic_arith.all;use ieee.std_logic_unsigned.all;entity lift isport(clk,reset,up1,up2,down2,down3,stop1,stop2,stop3,checkow:in std_logic; --buttons uplight,downlight,stoplight:buffer std_logic_vector(3 downto 1);udmode:buffer std_logic; --0- 电梯处于上升模式，1-电梯处于下降木模式position:buffer integer range 1 to 3; --电梯位置doorlight: out std_logic; --电梯门开关灯loc: out std_logic_vector(6 downto 0); --显示电梯位置ss: buffer integer range 0 to 3; --电梯所处状态--0--上升--1-下降--2停止out_state: out std_logic_vector(6 downto 0);--电梯所处状态--u--上升d--下降--s-停止overweight_light :out std_logic);--超重提醒灯end lift;architecture aaa of lift istype state_type is(stopon1,dooropen,doorclose,wait1,wait2,wait3,wait4,up,down,stop); signal state:state_type:=stopon1;signal clearup,cleardown,buttclk,liftclk:std_logic;signal q,p:integer range 0 to 49999999;component xianshiport(position: in integer range 0 to 9;segment_7: out std_logic_vector(6 downto 0));end component;component upordownport(ss: in integer range 0 to 2 ;segment_7: out std_logic_vector(6 downto 0));end component;beginprocess(clk)--电梯分频进程1sbeginif reset='1' then q<=0;elsif clk'event and clk='1' thenif q=49999999 then liftclk<='1';q<=0;--if q=2 then liftclk<='1';q<=0;else liftclk<='0';q<=q+1;end if;end if;process(clk)----电梯按键分频进程==0.02sbeginif reset='1' then p<=0;elsif clk'event and clk='1' thenif p=9999999 then buttclk<='1';p<=0;--if p=2 then buttclk<='1';p<=0;else buttclk<='0';p<=p+1;end if;end if;end process;cont:process(reset,liftclk)--电梯状态机variable pos :integer range 3 downto 0;beginif reset='1' thenstate<=stopon1;clearup<='0';cleardown<='0';elsif liftclk='1' and liftclk'event thenif checkow='1' then state<=wait1;elsecase state iswhen stopon1=>doorlight<='1';position<=1;pos:=1;state<=wait1;udmode<='0';when wait1=>if checkow='1' then state<=wait1;overweight_light<='1';else state<=wait2; ss<=2;overweight_light<='0';end if;when wait2=>if checkow='1' then state<=wait1;overweight_light<='1';else clearup<='0';cleardown<='0'; state<=wait3;ss<=2;overweight_light<='0';end if;when wait3=>if checkow='1' then state<=wait1;overweight_light<='1';else state<=wait4;ss<=2;overweight_light<='0';end if;when wait4=>if checkow='1' then state<=wait1;overweight_light<='1';else overweight_light<='0';state<=doorclose;ss<=2;end if;when doorclose=> doorlight<='0';ss<=2;if udmode='0' thenif position=3 thenif stoplight="000" and uplight="000" and downlight="000" thenudmode<='1'; state<=doorclose;elsif downlight(3)='1' or stoplight(3)='1' then state<=dooropen;else udmode<='1'; state<=down;end if;elsif position=2 thenif stoplight="000"and uplight="000" and downlight="000"thenudmode<='0';state<=doorclose;elsif uplight(2)='1' or stoplight(2)='1' then state<=dooropen;elsif stoplight(3)='1'or downlight(3)='1' thenudmode<='0'; state<=up;else udmode<='1';state<=down;end if;elsif position=1 thenif stoplight="000" and uplight="000" and downlight="000"thenudmode<='0'; state<=doorclose;elsif uplight(1)='1' or stoplight(1)='1' then state<=dooropen;else udmode<='0'; state<=up;end if;end if;elsif udmode='1' thenif position=1 thenif stoplight="000" and uplight="000"and downlight="000" thenudmode<='0';state<=doorclose;elsif uplight(1)='1' or stoplight(1)='1' then state<=dooropen;else udmode<='0';state<=up;end if;elsif position=2 thenif stoplight="000" and uplight="000"and downlight="000" thenudmode<='1';state<=doorclose;elsif downlight(2)='1' or stoplight(2)='1' then state<=dooropen;elsif stoplight(1)='1'or uplight(1)='1'thenudmode<='1'; state<=down;else udmode<='0';state<=up;end if;elsif position=3 thenif stoplight="000" and uplight="000"and downlight="000" thenudmode<='1';state<=doorclose;elsif downlight(3)='1' or stoplight(3)='1' then state<=dooropen;else udmode<='1';state<=down;end if;end if;end if;when up=> position<=position+1;pos:=pos+1;ss<=0;if pos=2 and stoplight(2)='0' and uplight(2)='0' and (stoplight(3)='1' or downlight(3)='1') then state<=up;else state<=stop;end if;when down=> position<=position-1;pos:=pos-1;ss<=1;if pos=2 and stoplight(2)='0' and uplight(2)='0' and (stoplight(1)='1' or uplight(1)='1') then state<=down;else state<=stop;end if;when stop=>state<=dooropen;when dooropen=>doorlight<='1';ss<=2;if udmode='0' thenif pos<3 and (stoplight(pos)='1' or uplight(pos)='1') then clearup<='1';else clearup<='1';cleardown<='1';end if;elseif pos>1 and (stoplight(pos)='1' or uplight(pos)='1') then cleardown<='1';else clearup<='1';cleardown<='1';end if;end if;state<=wait1;when others=> state<=stopon1;ss<=2;end case;end if;end if;end process cont;butt:process (reset,buttclk)--按键灯控制进程beginif reset='1' thenstoplight<="000"; uplight<="000"; downlight<="000";elseif buttclk'event and buttclk='1' thenif clearup='1' then--stoplight(position)<='0';uplight(position)<='0';elseif up1='1' then uplight(1)<='1';end if;if up2='1' then uplight(2)<='1';end if;end if;if cleardown='1' then--stoplight(position)<='0';downlight(position)<='0';elseif down2='1' then downlight(2)<='1';end if;if down3='1' then downlight(3)<='1';end if;end if;if clearup='1' or cleardown='1' thenif position=1 then stoplight(1)<='0';if stop2='1' then stoplight(2)<='1' ;end if;if stop3='1' then stoplight(3)<='1' ;end if;elsif position=2 then stoplight(2)<='0';if stop1='1' then stoplight(1)<='1' ;end if;if stop3='1' then stoplight(3)<='1' ;end if;elseif stop1='1' then stoplight(1)<='1' ;end if;if stop2='1' then stoplight(2)<='1' ;end if;end if;end if;end if;end if;end process butt;h1:xianshi port map(position=>position,segment_7=>loc);--数码管显示楼层si:upordown port map(ss=>ss,segment_7=>out_state);--数码管显示状态end aaa;--------------数码管显示楼层--------------library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;entity xianshi isport(position: in integer range 0 to 9 ;segment_7: out std_logic_vector(6 downto 0));end xianshi;architecture a of xianshi isbeginprocess(position)begincase position iswhen 1=>segment_7<="1111001";when 2=>segment_7<="0100100";when 3=>segment_7<="0110000";when 4=>segment_7<="0011001";when 5=>segment_7<="0010010";when 6=>segment_7<="0000010";when 7=>segment_7<="1111000";when 8=>segment_7<="0000000";when 9=>segment_7<="0010000";when others=>segment_7<="1000000";end case;end process;end a;-------------------数码管显示状态----------------- library ieee;use ieee.std_logic_1164.all;use ieee.std_logic_unsigned.all;use ieee.std_logic_arith.all;entity upordown isport(ss: in integer range 0 to 2 ;segment_7: out std_logic_vector(6 downto 0) );end upordown;architecture a of upordown isbeginprocess(ss)begincase ss iswhen 0=>segment_7<="0011101";when 1=>segment_7<="0100001";when others=>segment_7<="0010010";end case;end process;end a;。