8.19 电梯控制器VHDL程序与仿真。
--
--文件名：dianti.vhd。
--功能：6层楼的电梯控制系统。 --最后修改日期： library ieee;
use ieee.std_logic_1164.all; use ieee.std_logic_unsigned.all; use ieee.std_logic_arith.all; entity dianti is
port ( clk : in std_logic; --时钟信号（频率为2Hz）
full,deng,quick,clr : in std_logic; --超载、关门中断、提前关门清除报警信号 c_u1,c_u2,c_u3,c_u4,c_u5: in std_logic; --电梯外人的上升请求信号 c_d2,c_d3,c_d4,c_d5,c_d6 : in std_logic; --电梯外人的下降请求信号 d1,d2,d3,d4,d5,d6 : in std_logic; --电梯内人的请求信号 g1,g2,g3,g4,g5,g6 : in std_logic; --到达楼层信号 door : out std_logic_vector(1 downto 0); --电梯门控制信号 led : out std_logic_vector(6 downto 0); --电梯所在楼层显示 led_c_u:out std_logic_vector(5 downto 0); --电梯外人上升请求信号显示 led_c_d:out std_logic_vector(5 downto 0); --电梯外人下降请求信号显示
led_d : out std_logic_vector(5 downto 0); --电梯内请求信号显示 wahaha : out std_logic; --看门狗报警信号
ud,alarm : out std_logic; --电梯运动方向显示，超载警告信号
up,down : out std_logic ); --电机控制信号和电梯运动
end dianti;
architecture behav of dianti is
signal d11,d22,d33,d44,d55,d66:std_logic; --电梯内人请求信号寄存信号 signal c_u11,c_u22,c_u33,c_u44,c_u55:std_logic; --电梯外人上升请求信号寄存信号 signal c_d22,c_d33,c_d44,c_d55,c_d66:std_logic; --电梯外人下降请求信号寄存信号 signal q:integer range 0 to 1; --分频信号
signal q1:integer range 0 to 6; --关门延时计数器 signal q2:integer range 0 to 9; --看门狗计数器
signal dd,cc_u,cc_d,dd_cc:std_logic_vector(5 downto 0); --电梯内外请求信号寄存器 signal opendoor:std_logic; --开门使能信号
signal updown:std_logic; --电梯运动方向信号寄存器
signal en_up,en_dw:std_logic; --预备上升、预备下降预操作使能信号 begin
com:process(clk) begin
if clk'event and clk='1' then
if clr='1' then q1<=0;q2<=0;wahaha<='0'; --清除故障报警 elsif full='1' then alarm<='1'; q1<=0; --超载报警 if q1>=3 then door<=\ else door<=\
end if; elsif q=1 then q<=0;alarm<='0';
if q2=3 then wahaha<='1'; --故障报警 else
if opendoor='1' then door<=\ --开门操作 elsif en_up='1' then --上升预操作 if deng='1' then door<=\ --关门中断 elsif quick='1' then q1<=3; --提前关门 elsif q1=6 then door<=\关门完毕，电梯进入上升状态 elsif q1>=3 then door<=\ --电梯进入关门状态 else q1<=q1+1;door<=\ --电梯进入等待状态 end if;
elsif en_dw='1' then --下降预操作 if deng='1' then door<=\
elsif quick='1' then q1<=3; elsif q1=6 then door<=\ elsif q1>=3 then door<=\ else q1<=q1+1;door<=\ end if;
end if;
if g1='1' then led<=\ --电梯到达1楼，数码管显示1 if d11='1' or c_u11='1' then d11<='0'; c_u11<='0';opendoor<='1';
--有当前层的请求，则电梯进入开门状态
elsif dd_cc>\
--有上升请求，则电梯进入预备上升状态
elsif dd_cc=\ --无请求时，电梯停在1楼待机 end if;
elsif g2='1' then led<=\ --电梯到达2楼，数码管显示2 if updown='1' then --电梯前一运动状态位上升 if d22='1' or c_u22='1' then d22<='0'; c_u22<='0'; opendoor<='1';
--有当前层的请求，则电梯进入开门状态 elsif dd_cc>\
--有上升请求，则电梯进入预备上升状态 elsif dd_cc<\ opendoor<='0';
--有下降请求，则电梯进入预备下降状态
end if;
--电梯前一运动状态为下降
elsif d22='1' or c_d22='1' then d22<='0'; c_d22<='0';opendoor<='1';
--有当前层的请求，则电梯进入开门状态 elsif dd_cc<\ opendoor<='0';
--有下降请求，则电梯进入预备下降状态
elsif dd_cc>\ opendoor<='0';
--有上升请求，则电梯进入预备上升状态
end if;
elsif g3='1' then led<=\ --电梯到达3楼，数码管显示3 if updown='1' then
if d33='1' or c_u33='1' then d33<='0'; c_u33<='0';opendoor<='1'; elsif dd_cc>\ opendoor<='0'; elsif dd_cc<\ opendoor<='0'; end if;
elsif d33='1' or c_d33='1' then d33<='0'; c_d33<='0'; opendoor<='1'; elsif dd_cc<\ opendoor<='0'; elsif dd_cc>\ opendoor<='0'; end if;
elsif g4='1' then led<=\ --电梯到达4楼，数码管显示4 if updown='1' then
if d44='1' or c_u44='1' then d44<='0'; c_u44<='0'; opendoor<='1'; elsif dd_cc>\ elsif dd_cc<\ opendoor<='0'; end if;
elsif d44='1' or c_d44='1' then d44<='0'; c_d44<='0'; opendoor<='1'; elsif dd_cc<\ opendoor<='0'; elsif dd_cc>\ opendoor<='0'; end if;