EDA电梯控制器课程设计报告

沈阳理工大学课程设计专用纸

signal disp:std_logic_vector(3 downto 0); begin

process(clk) begin

if rising_edge(clk)then upkey_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='0')then req_upr<='0'; req_downr<='0';

elsif(rising_edge(clk))then if(req_opendoor='1' and qin=id)then req_upr<='0'; req_downr<='0';

elsif(upkey='1' and upkey_data='0')then req_upr<='1';

elsif(downkey='1' and downkey_data='0')then req_downr<='1'; end if; end if; end process;

ur<=req_upr; dr<=req_downr;

5

沈阳理工大学课程设计专用纸

with qin select

disp<=\ \ \ \ \ \ \ \ \ \ \disp1<=disp; end art;

3.2顶层模块设计

10层全自动电梯控制器顶层模块源程序如下：

library ieee;

use ieee.std_logic_1164.all; use ieee.std_logic_unsigned.all; use ieee.std_logic_arith.all; 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); --电梯状态显示输出信号 opendoor:out std_logic); --强制开门信号 end;

architecture art of elevator10 is

6

沈阳理工大学课程设计专用纸

component counter

port(clk,reset,clr,en:in std_logic; q:out integer range 0 to 8);

end component;

type state_type is(up,m_up,down,m_down,stop,pause);

signal state:state_type; --电梯的各种状态 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); --上升楼层数据显示信号 signal downlift_data:std_logic_vector(10 downto 1); --下降楼层数据显示信号 signal sel_data:std_logic_vector(10 downto 1); --选择楼层数据显示信号 signal runtime: integer range 0 to 8; --电梯运行时间 signal opentime:integer range 0 to 8; --电梯开门时间 signal openagain:std_logic; --电梯再次开门信号 signal voidreset:std_logic; --电梯超载复位信号 begin

qout<=position;

p0:process(clk)

variable cnt0:integer range 0 to 4; begin

7

沈阳理工大学课程设计专用纸

if rising_edge(clk)then if cnt0=4 then

clk4<='1';cnt0:=0;

else

clk4<='0';cnt0:=cnt0+1;

end if; end if;

end process; p1:process(clk4)

variable cnt1:integer range 0 to 3; begin

if rising_edge(clk4)then if cnt1=3 then

clk1<='1';cnt1:=0;

else

clk1<='0';cnt1:=cnt1+1;

end if; end if;

end process;

p2:process(switch,clk,uplift,downlift) begin

if rising_edge(clk)then uplift_data<=uplift; downlift_data<=downlift; sel_data<=sel; if state=pause then

req_upr<=req_upr and not(position); req_downr<=req_downr and not(position);

if(uplift/=uplift_data and req_up/='1' and position>uplift)then req_downr<=(req_downr or uplift);

8