VHDL电梯控制器程序设计与仿真Word文件下载.docx

1、 -电梯内人的请求信号 g1,g2,g3,g4,g5,g6 : -到达楼层信号 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: -电梯外人下降请求信号显示 led_d : out std_logic_vector（5 downto 0）; -电梯内请求信号显示 wahaha : out std_logic; -看门狗

2、报警信号 ud,alarm : -电梯运动方向显示，超载警告信号up,down : out std_logic ）; -电机控制信号和电梯运动end dianti;architecture behav of dianti issignal d11,d22,d33,d44,d55,d66:std_logic; -电梯内人请求信号寄存信号signal c_u11,c_u22,c_u33,c_u44,c_u55: -电梯外人上升请求信号寄存信号signal c_d22,c_d33,c_d44,c_d55,c_d66: -电梯外人下降请求信号寄存信号signal q:integer range 0 t

3、o 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: -开门使能信号signal updown: -电梯运动方向信号寄存器signal en_up,en_dw: -预备上升、预备下降预操作使能信号begincom:process（clk）if clkevent and clk=1 then if clr

4、= then q1=0;q2wahaha=0; -清除故障报警 elsif full= then alarm q1=3 then door=10 else door00 end if; elsif q=1 then qalarm if q2=3 then wahaha -故障报警 else if opendoor= then doorq1updown -开门操作 elsif en_up= then -上升预操作 if deng=q2+1; -关门中断 elsif quick=3; -提前关门 elsif q1=6 then doorupdown01=q1+1; -电梯进入关门状态 else q

5、1door -电梯进入等待状态 elsif en_dw= then -下降预操作 if g1= then led1001111 -电梯到达1楼，数码管显示1 if d11= or c_u11= then d11 c_u11opendoor000001 then en_up opendoor-有上升请求，则电梯进入预备上升状态 elsif dd_cc=000000 then opendoor -无请求时，电梯停在1楼待机 elsif g2=0010010 -电梯到达2楼，数码管显示2 if updown= then -电梯前一运动状态位上升 if d22= or c_u22= then d22

6、c_u22 -有当前层的请求，则电梯进入开门状态 000011 -有上升请求，则电梯进入预备上升状态 elsif dd_cc000010 then en_dw-有下降请求，则电梯进入预备下降状态 -电梯前一运动状态为下降 elsif d22= or c_d22= c_d22 -有当前层的请求，则电梯进入开门状态-有上升请求，则电梯进入预备上升状态 elsif g3=0000110 -电梯到达3楼，数码管显示3 if d33= or c_u33= then d33 c_u33000111000100 elsif d33= or c_d33= c_d33 elsif g4=1001100 -电梯到达4楼，数码管显示4 if d44= or c_u44= then d44 c_u44001111001000 elsif d44= or c_d44= c_d44 elsif g5=0100100 -电梯到达5楼，数码管显示5 if d55= or c_u55= then d55 c_u55011111010000 elsif d55= or c_d55= c_d55 elsif g6=0100000 -电梯到达6楼，数码管显示6 if d66= or c_d66= then d66 c_d66100000 else en_upen_dw -电梯进入上升或下降状态 else q=1;