library ieee;--
搴撶殑璇存槑
use ieee.std_logic_1164.all;--
绋嬪簭鍖呯殑璇存槑
use ieee.std_logic_unsigned.all;
use ieee.std_logic_arith.all;
entity threelift is --
瀹炰綋
port(buttonclk:in std_logic;--
鎸夐敭鏃堕挓淇″彿
liftclk:in std_logic;--
鐢垫鏃堕挓淇″彿
reset:in std_logic;--
寮傛澶嶄綅绔彛
f1upbutton:in std_logic;--
涓�灞備笂鍗囪姹傜鍙?/p>
f2upbutton:in std_logic;--
浜屽眰涓婂崌璇锋眰绔彛
f2dnbutton:in std_logic;--
浜屽眰涓嬮檷璇锋眰绔彛
f3dnbutton:in std_logic;--
涓夊眰涓嬮檷璇锋眰绔彛
fuplight:buffer std_logic_vector(3 downto 1);--
涓婂崌璇锋眰瀵勫瓨淇″彿
fdnlight:buffer std_logic_vector(3 downto 1);--
涓嬮檷璇锋眰瀵勫瓨淇″彿
stop1button,stop2button,stop3button:in std_logic;--
鍋滅珯璇锋眰绔彛
stoplight:buffer std_logic_vector(3 downto 1);--
鍋滅珯璇锋眰瀵勫瓨淇″彿
position:buffer integer range 1 to 3;--
鐢垫浣嶇疆淇″彿
doorlight:out std_logic;--
寮�鍏抽棬淇″彿
udsig:buffer std_logic);--
鐢垫妯″紡锛堜笂鍗囨垨涓嬮檷锛変俊鍙?/p>
end threelift;
architecture art of threelift is--
缁撴瀯浣?/p>
type lift_state is--
瀹氫箟鍗佷釜鐘舵�?/p>
(stopon1,dooropen,doorclose,doorwait1,doorwait2,doorwait3,doorwait4,up,down,stop);
signal mylift:lift_state;
signal clearup:std_logic;--
涓婂崌鍜屽仠绔欒姹傛竻闄や俊鍙?/p>
signal cleardn:std_logic;--
涓嬮檷鍜屽仠绔欒姹傛竻闄や俊鍙?/p>
begin
controlift:process(reset,liftclk)--
鐘舵�佹満杩涚▼
variable pos:integer range 3 downto 1;
begin
if reset='1' then
mylift <= stopon1;--
寮傛澶嶄綅锛岀數姊殑鍒濆鐘舵�佷负涓�灞傚紑闂ㄧ姸鎬?/p>
clearup <= '0';
cleardn <= '0';
pos:=1;
position<=1;
else
if liftclk'event and liftclk='1' then
case mylift is
when stopon1 => doorlight <= '0';