VHDL实现：二层电梯控制器设计

LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
ENTITY dianzhen IS
PORT(
cp: IN STD_LOGIC;                               --50MHz时钟输入                             
row: OUT STD_LOGIC_VECTOR (7 DOWNTO 0);         --点阵行信号输出
r_col: OUT STD_LOGIC_VECTOR (7 DOWNTO 0);       --点阵红色灯列信号输出
g_col: OUT STD_LOGIC_VECTOR (7 DOWNTO 0);       --点阵绿色灯列信号输出
cat: OUT STD_LOGIC_VECTOR (5 DOWNTO 0);         --数码管
disp: OUT STD_LOGIC_VECTOR (7 DOWNTO 0);        --数码管
btn0: IN STD_LOGIC;                             --1层外部呼叫按键输入
btn1: IN STD_LOGIC;         --1层内部呼叫按键输入
btn2: IN STD_LOGIC;         --2层外部呼叫按键输入
btn3: IN STD_LOGIC;         --2层内部呼叫按键输入
btn4: IN STD_LOGIC;         --开门按键输入
btn5: IN STD_LOGIC;         --关门按键输入
btn7: IN STD_LOGIC;         --复位按键输入
led0: OUT STD_LOGIC; --1层外部呼叫按键指示灯输出
led1: OUT STD_LOGIC; --1层内部呼叫按键指示灯输出
led2: OUT STD_LOGIC; --2层外部呼叫按键指示灯输出
led3: OUT STD_LOGIC; --2层内部呼叫按键指示灯输出
led4: OUT STD_LOGIC; --开门按键指示灯输出
led5: OUT STD_LOGIC; --关门按键指示灯输出
led7: OUT STD_LOGIC); --复位按键指示灯输出
END dianzhen;

ARCHITECTURE arch of dianzhen IS
TYPE state_type IS (s1,s2,s_up,s_down,open_1,close_1,open_2,close_2,s_1_wait,s_2_wait);     --定义状态类型
SIGNAL current_state,next_state : state_type;           --当前状态，下一个状态
  

SIGNAL clk0: STD_LOGIC; --分频后时钟信号
SIGNAL cnt0 : INTEGER range 0 TO 50000; --时钟计数信号

SIGNAL cnt_zhen : STD_LOGIC_VECTOR (2 DOWNTO 0); --点阵状态计数信号
SIGNAL cnt_up: INTEGER range 0 to 15000; --上行计数信号
SIGNAL cnt_down: INTEGER range 0 to 15000; --下行计数信号
SIGNAL cnt_1_open: INTEGER range 0 to 15000; --1层开门计数信号
SIGNAL cnt_1_close: INTEGER range 0 to 15000; --1层关门计数信号
SIGNAL cnt_2_open: INTEGER range 0 to 15000; --2层开门计数信号
SIGNAL cnt_2_close: INTEGER range 0 to 15000; --2层关门计数信号
SIGNAL s_btn0: STD_LOGIC; --去抖后1层外部呼叫按键信号
SIGNAL s_btn1: STD_LOGIC; --去抖后1层内部呼叫按键信号
SIGNAL s_btn2: STD_LOGIC; --去抖后2层外部呼叫按键信号
SIGNAL s_btn3: STD_LOGIC; --去抖后2层内部呼叫按键信号
SIGNAL s_btn4: STD_LOGIC; --去抖后开门按键信号
SIGNAL s_btn5: STD_LOGIC; --去抖后关门按键信号
SIGNAL s_btn7: STD_LOGIC; --去抖后复位按键信号
SIGNAL cnt_btn0: INTEGER range 0 to 5000; --1层外部呼叫按键计数信号
SIGNAL cnt_btn1: INTEGER range 0 to 5000; --1层内部呼叫按键计数信号
SIGNAL cnt_btn2: INTEGER range 0 to 5000; --2层外部呼叫按键计数信号
SIGNAL cnt_btn3: INTEGER range 0 to 5000; --2层内部呼叫按键计数信号
SIGNAL cnt_btn4: INTEGER range 0 to 5000; --开门按键计数信号
SIGNAL cnt_btn5: INTEGER range 0 to 5000; --关门按键计数信号
SIGNAL cnt_btn7: INTEGER range 0 to 5000; --复位按键计数信号
SIGNAL e_up : STD_LOGIC; --上行计数使能信号
SIGNAL e_down : STD_LOGIC; --下行计数使能信号
SIGNAL e_1_open :STD_LOGIC; --1层开门计数使能信号
SIGNAL e_1_close :STD_LOGIC; --1层关门计数使能信号
SIGNAL e_2_open :STD_LOGIC; --2层开门计数使能信号
SIGNAL e_2_close :STD_LOGIC; --2层关门计数使能信号