[问答]

求大大修改，基于quartus ii的电梯控制器的VHDL

问答对人有帮助，内容完整，我也想知道答案 0 --DT.VHD LIBRARY IEEE; USE IEEE.STD_LOGIC_1164.ALL; USE IEEE.STD_LOGIC_UNSIGNED.ALL; USE IEEE.STD_LOGIC_ARITH.ALL; ENtiTY DT IS PORT(CLKIN:IN STD_LOGIC; --2 Hz时钟输入信号 UPIN:IN STD_LOGIC; --楼层上升请求键 DOWNIN:IN STD_LOGIC; --楼层下降请求键 ST_CH:IN STD_LOGIC; --结合DIRECT完成楼层选择的键入 CLOSE:IN STD_LOGIC; --提前关门输入键 DELAY:IN STD_LOGIC; --延迟关门输入键 RUN_STOP:IN STD_LOGIC; --电梯运行的开关键 LAMP:OUT STD_LOGIC; --电梯运行或停止指示键 RUN_WAIT:OUT STD_LOGIC_VECTOR(3 DOWNTO 0); --结合LAMP指示电梯运行或等待时间 ST_OUT:OUT STD_LOGIC_VECTOR(3 DOWNTO 0); --电梯所在楼层指示数码管 DIRECT:OUT STD_LOGIC_VECTOR(3 DOWNTO 0)); --楼层选择指示数码管 END ENTITY DT; ARCHITECTURE ART OF DT IS SIGNAL UR,DR:STD_LOGIC_VECTOR(16 DOWNTO 1); --上升或下降楼层请求寄存器 SIGNAL DIR,LIFTOR:STD_LOGIC_VECTOR(3 DOWNTO 0); --楼选指示及楼层数计数器 SIGNAL WAI_T:STD_LOGIC_VECTOR(2 DOWNTO 0); --运行或等待计数器 SIGNAL DIVID,HAND:STD_LOGIC; --时钟2分频和楼选复位变量 SIGNAL LADD:STD_LOGIC_VECTOR(1 DOWNTO 0); --电梯运行状态变量 SIGNAL CLOSEX,DELAYX,LAMP0:STD_LOGIC; --提前关门及延迟变量 BEGIN --内部信号值的输出 DIRECT<=DIR+1; ST_OUT<=LIFTOR+1; RUN_WAIT<='0'&WAI_T; P0:PROCESS(CLKIN) IS BEGIN IF (CLKIN'EVENT AND CLKIN='1') THEN LAMP<=LADD(1); END IF; END PROCESS P0; HAND<=WAI_T(2)AND (NOT WAI_T(1))AND WAI_T(0); CLOSEX<=CLOSE AND (NOT LADD(1)); DELAYX<=DELAY AND (NOT LADD(1)); --分频及楼选信号产生进程 P1:PROCESS(CLKIN) BEGIN IF (CLKIN'EVENT AND CLKIN='1') THEN DIVID<=NOT DIVID; IF (DIR="1111") THEN DIR<="0000"; ELSE DIR<=DIR+1; END IF; END IF; END PROCESS; --楼层请求寄存器的置位与复位进程 P2:PROCESS(UR, DR, UPIN, DOWNIN, ST_CH, LIFTOR, WAI_T, RUN_STOP, HAND) VARIABLE NUM,T:INTEGER RANGE 0 TO 15 ; BEGIN NUM:=CONV_INTEGER(LIFTOR)+1; T:=CONV_INTEGER(DIR)+1; IF (RUN_STOP='1') THEN IF (((T>NUM)AND (ST_CH='1'))OR (UPIN='1'))THEN CASE T IS WHEN 1 => UR(1)<='1'; WHEN 2 => UR(2)<='1'; WHEN 3 => UR(3)<='1'; WHEN 4 => UR(4)<='1'; WHEN 5 => UR(5)<='1'; WHEN 6 => UR(6)<='1'; WHEN 7 => UR(7)<='1'; WHEN 8 => UR(8)<='1'; WHEN 9 => UR(9)<='1'; WHEN 10 => UR(10)<='1'; WHEN 11 => UR(11)<='1'; WHEN 12 => UR(12)<='1'; WHEN 13 => UR(13)<='1'; WHEN 14 => UR(14)<='1'; WHEN 15 => UR(15)<='1'; WHEN 16 => UR(16)<='1'; WHEN OTHERS=>NULL; END CASE; ELSIF (HAND='1')THEN CASE NUM IS WHEN 1 => UR(1)<='0'; WHEN 2 => UR(2)<='0'; WHEN 3 => UR(3)<='0'; WHEN 4 => UR(4)<='0'; WHEN 5 => UR(5)<='0'; WHEN 6 => UR(6)<='0'; WHEN 7 => UR(7)<='0'; WHEN 8 => UR(8)<='0'; WHEN 9 => UR(9)<='0'; WHEN 10 => UR(10)<='0'; WHEN 11 => UR(11)<='0'; WHEN 12 => UR(12)<='0'; WHEN 13 => UR(13)<='0'; WHEN 14 => UR(14)<='0'; WHEN 15 => UR(15)<='0'; WHEN 16 => UR(16)<='0'; WHEN OTHERS=>NULL; END CASE; END IF; IF (((T CASE T IS WHEN 1 => DR(1)<='1'; WHEN 2 => DR(2)<='1'; WHEN 3 => DR(3)<='1'; WHEN 4 => DR(4)<='1'; WHEN 5 => DR(5)<='1'; WHEN 6 => DR(6)<='1'; WHEN 7 => DR(7)<='1'; WHEN 8 => DR(8)<='1'; WHEN 9 => DR(9)<='1'; WHEN 10 => DR(10)<='1'; WHEN 11 => DR(11)<='1'; WHEN 12 => DR(12)<='1'; WHEN 13 => DR(13)<='1'; WHEN 14 => DR(14)<='1'; WHEN 15 => DR(15)<='1'; WHEN 16 => DR(16)<='1'; WHEN OTHERS=>NULL; END CASE; ELSIF (HAND='1') THEN CASE NUM IS WHEN 1 => DR(1)<='0'; WHEN 2 => DR(2)<='0'; WHEN 3 => DR(3)<='0'; WHEN 4 => DR(4)<='0'; WHEN 5 => DR(5)<='0'; WHEN 6 => DR(6)<='0'; WHEN 7 => DR(7)<='0'; WHEN 8 => DR(8)<='0'; WHEN 9 => DR(9)<='0'; WHEN 10 => DR(10)<='0'; WHEN 11 => DR(11)<='0'; WHEN 12 => DR(12)<='0'; WHEN 13 => DR(13)<='0'; WHEN 14 => DR(14)<='0'; WHEN 15 => DR(15)<='0'; WHEN 16 => DR(16)<='0'; WHEN OTHERS=>NULL; END CASE; END IF; ELSE UR<="0000000000000000"; DR<="0000000000000000"; END IF; END PROCESS; --电梯运行次态的控制进程 P3:PROCESS(UR,DR,LIFTOR,LADD,WAI_T,RUN_STOP) BEGIN IF (RUN_STOP='1') THEN IF (WAI_T="110") THEN IF ((UR OR DR)="0000000000000000") THEN LADD(1)<='0'; --初始状态 ELSE CASE LIFTOR IS WHEN "0000"=>IF ((UR(1)OR DR(1))>'0') THEN LADD(1)<='0'; --等待状态 ELSE LADD<="11"; --上升状态 END IF; WHEN "0001"=>IF ((UR(2)OR DR(2))>'0') THEN LADD(1)<='0'; --等待状态 ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 3) OR DR(16 DOWNTO 3))>"00000000000000")) OR((UR(1)OR DR(1))='0')) THEN LADD <="11"; --上升状态 ELSE LADD<="10"; --下降状态 END IF; WHEN "0010"=>IF ((UR(3) OR DR(3))>'0') THEN LADD(1)<='0'; ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 4) OR DR(16 DOWNTO 4))>"0000000000000")) OR((UR(2 DOWNTO 1) OR DR(2 DOWNTO 1))="00")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "0011"=>IF ((UR(4) OR DR(4))>'0') THEN LADD(1)<='0'; ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 5) OR DR(16 DOWNTO 5))>"000000000000")) OR((UR(3 DOWNTO 1) OR DR(3 DOWNTO 1))="000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "0100"=>IF ((UR(5) OR DR(5))>'0') THEN LADD(1)<='0'; ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 6) OR DR(16 DOWNTO 6))>"00000000000")) OR((UR(4 DOWNTO 1) OR DR(4 DOWNTO 1))="0000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "0101"=>IF ((UR(6) OR DR(6))>'0') THEN LADD(1)<='0'; ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 7) OR DR(16 DOWNTO 7))>"0000000000" )) OR((UR(5 DOWNTO 1) OR DR(5 DOWNTO 1))="00000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "0110"=>IF ((UR(7) OR DR(7))>'0') THEN LADD(1)<='0'; ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 8) OR DR(16 DOWNTO 8))>"000000000")) OR((UR(6 DOWNTO 1) OR DR(6 DOWNTO 1))="000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "0111"=>IF ((UR(8) OR DR(8))>'0') THEN LADD(1)<='0'; ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 9) OR DR(16 DOWNTO 9))>"00000000" )) OR((UR(7 DOWNTO 1) OR DR(7 DOWNTO 1))="0000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1000"=>IF ((UR(9) OR DR(9))>'0') THEN LADD(1)<='0'; ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 10) OR DR(16 DOWNTO 10))>"0000000" )) OR((UR(8 DOWNTO 1) OR DR(8 DOWNTO 1))="00000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1001"=>IF ((UR(10) OR DR(10))>'0') THEN LADD(1)<='0'; ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 11) OR DR(16 DOWNTO 11))>"000000" )) OR((UR(9 DOWNTO 1) OR DR(9 DOWNTO 1))="000000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1010"=>IF ((UR(11) OR DR(11))>'0') THEN LADD(1)<='0'; ELSIF (((LADD(0)='1')AND ((UR(16 DOWNTO 12) OR DR(16 DOWNTO 12)) >"00000")) OR((UR(10 DOWNTO 1) OR DR(10 DOWNTO 1))="0000000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1011"=>IF ((UR(12) OR DR(12))>'0') THEN LADD(1)<='0'; ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 13) OR DR(16 DOWNTO 13))>"0000" )) OR((UR(11 DOWNTO 1) OR DR(11 DOWNTO 1))="00000000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1100"=>IF ((UR(13) OR DR(13))>'0') THEN LADD(1)<='0'; ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 14) OR DR(16 DOWNTO 14))>"000" )) OR((UR(12 DOWNTO 1) OR DR(12 DOWNTO 1))="000000000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1101"=>IF ((UR(14) OR DR(14))>'0') THEN LADD(1)<='0'; ELSIF ((( LADD(0)='1')AND ((UR(16 DOWNTO 15) OR DR(16 DOWNTO 15))>"00" )) OR((UR(13 DOWNTO 1) OR DR(13 DOWNTO 1))="0000000000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1110"=>IF ((UR(15)OR DR(15))>'0') THEN LADD(1)<='0'; ELSIF ((( LADD(0)='1')AND ((UR(16)OR DR(16))>'0')) OR ((UR(14 DOWNTO 1) OR DR(14 DOWNTO 1))="00000000000000")) THEN LADD<="11"; ELSE LADD<="10"; END IF; WHEN "1111"=>IF ((UR(16) OR DR(16))>'0') THEN LADD(1)<='0'; ELSE LADD<="10"; END IF; WHEN OTHERS=>NULL; END CASE; END IF; END IF; ELSE LADD<="00"; END IF; END PROCESS; --电梯运行楼层计数及提前/延迟关门控制进程 P4:PROCESS(WAI_T,LADD,CLOSEX,DELAYX,DIVID) BEGIN IF (DIVID'EVENT AND DIVID='1') THEN IF (WAI_T="000" OR CLOSEX='1') THEN WAI_T<="110"; ELSE IF (DELAYX='0')THEN WAI_T<=WAI_T-1; ELSE WAI_T<="010"; END IF; IF (LADD="11") THEN LIFTOR<=LIFTOR+1; ELSIF (LADD="10") THEN LIFTOR<=LIFTOR-1; END IF; END IF; END IF; END PROCESS; END ARCHITECTURE ART; 代码如上 0
2013-5-12 17:06:10　　评论淘帖0 邀请回答您可以邀请以下用户，快速回答问题 × fittecforest 该类别下有 8 个回答。邀请回答黄兴该类别下有 4 个回答。邀请回答 stv 该类别下有 2 个回答。邀请回答慕容恭子、该类别下有 2 个回答。邀请回答公子小召该类别下有 2 个回答。邀请回答 972095714 该类别下有 2 个回答。邀请回答 h1654155170.8903 该类别下有 2 个回答。邀请回答盐城李捷该类别下有 2 个回答。邀请回答薄迪该类别下有 2 个回答。邀请回答 oulinzeng 该类别下有 2 个回答。邀请回答 andsheng3499 该类别下有 2 个回答。邀请回答二胡软子该类别下有 2 个回答。邀请回答云同学该类别下有 2 个回答。邀请回答 norbert.tt 该类别下有 2 个回答。邀请回答 wa19881224 该类别下有 2 个回答。邀请回答马文123马文该类别下有 2 个回答。邀请回答 wanghairui 该类别下有 1 个回答。邀请回答 blue_ant 该类别下有 1 个回答。邀请回答东邪门人该类别下有 1 个回答。邀请回答 hailang869 该类别下有 1 个回答。邀请回答举报 EL灬相关推荐 • 谁可以帮我写一个VHDL的电梯控制器程序？？ 3136 • sram 62256 写一个读写控制器程序基于Quartus II vhdl 大神帮忙啊 5563 • 在QUARTUS II9.0如何使用VHDL语言生成元件？ 6447 • 基于FPGA的电梯控制器该怎么设计？ 2254 • 如何使用VHDL语言设计一个16 楼层单个载客箱的电梯控制系统？ 673 • 如何去设计并实现电梯控制系统？ 1213 • 基于VHDL怎么实现交通灯控制器？ 2348 • 怎么利用CPLD器件及VDHL语言实现电梯控制系统？ 1010 • 如何设计一款基于VHDL的交通灯控制器方案 1201 • Quartus II 9.1 问题 3655