2022年vhdl设计_三层电梯控制程序 .pdf

library ieee; use ieee.std_logic_1164.all; use ieee.std_logic_arith.all; use ieee.std_logic_unsigned.all; entity lift is port(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 is type 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 xianshi port( position: in integer range 0 to 9; segment_7: out std_logic_vector(6 downto 0) ); end component; component upordown port( ss: in integer range 0 to 2 ; segment_7: out std_logic_vector(6 downto 0) ); end component; begin process(clk)-电梯分频进程1s begin if reset=1 then q=0; elsif clkevent and clk=1 then if 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; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 7 页 - - - - - - - - - end process; process(clk)-电梯按键分频进程=0.02s begin if reset=1 then p=0; elsif clkevent and clk=1 then if 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; begin if reset=1 then state=stopon1; clearup=0; cleardown=0; elsif liftclk=1 and liftclkevent then if checkow=1 then state doorlight=1; position=1; pos:=1; state=wait1; udmode if checkow=1 then state=wait1;overweight_light=1; else state=wait2; ss=2;overweight_light if checkow=1 then state=wait1;overweight_light=1; else clearup=0;cleardown=0; state=wait3;ss=2;overweight_light if checkow=1 then state=wait1;overweight_light=1; else state=wait4;ss=2;overweight_light if checkow=1 then state=wait1;overweight_light=1; else overweight_light=0;state=doorclose;ss doorlight=0;ss=2; if udmode=0 then if position=3 then if stoplight=000 and uplight=000 and downlight=000 then udmode=1; state=doorclose; elsif downlight(3)=1 or stoplight(3)=1 then state=dooropen; else udmode=1; state=down; end if; elsif position=2 then if stoplight=000and uplight=000 and downlight=000then udmode=0;state=doorclose; elsif uplight(2)=1 or stoplight(2)=1 then state=dooropen; elsif stoplight(3)=1or downlight(3)=1 then udmode=0; state=up; else udmode=1;state=down; end if; elsif position=1 then if stoplight=000 and uplight=000 and downlight=000then udmode=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 then if position=1 then if stoplight=000 and uplight=000and downlight=000 then udmode=0;state=doorclose; elsif uplight(1)=1 or stoplight(1)=1 then state=dooropen; else udmode=0;state=up; end if; elsif position=2 then if stoplight=000 and uplight=000and downlight=000 then udmode=1;state=doorclose; elsif downlight(2)=1 or stoplight(2)=1 then state=dooropen; elsif stoplight(1)=1or uplight(1)=1then udmode=1; state=down; else udmode=0;state=up; end if; elsif position=3 then if stoplight=000 and uplight=000and downlight=000 then udmode=1;state=doorclose; elsif downlight(3)=1 or stoplight(3)=1 then state=dooropen; else udmode=1;state 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 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 statestatedoorlight=1;ss=2; if udmode=0 then if pos3 and (stoplight(pos)=1 or uplight(pos)=1) then clearup=1; else clearup=1;cleardown1 and (stoplight(pos)=1 or uplight(pos)=1) then cleardown=1; else clearup=1;cleardown=1; end if; end if; state state=stopon1;ss=2; end case; end if; end if; end process cont; butt:process (reset,buttclk)- 按键灯控制进程begin if reset=1 then stoplight=000; uplight=000; downlight=000; else if buttclkevent and buttclk=1 then if clearup=1 then -stoplight(position)=0; uplight(position)=0; else if up1=1 then uplight(1)=1; end if; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 7 页 - - - - - - - - - if up2=1 then uplight(2)=1; end if; end if; if cleardown=1 then -stoplight(position)=0; downlight(position)=0; else if 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 then if 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; else if stop1=1 then stoplight(1)=1 ;end if; if stop2=1 then stoplight(2)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 is port( position: in integer range 0 to 9 ; segment_7: out std_logic_vector(6 downto 0) ); 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 7 页 - - - - - - - - - end xianshi; architecture a of xianshi is begin process(position) begin case position is when 1=segment_7segment_7segment_7segment_7segment_7segment_7segment_7segment_7segment_7segment_7segment_7segment_7segment_7=0010010; end case; end process; end a; 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -