用VHDL语言设计电梯控制器

1、经济学院数字逻辑课程设计报告题 目电梯控制器的设计姓 名 meng hao学 号班 号 3 班指导老师 成 绩2011年6月1. 课程设计目的2. 设计任务3. 开发工具选择 3. 设计方案4. 模块描述5. VHDL 实现6. 调试仿真7. 课程设计回顾总结参考文献 1. 课程设计目的1) 使学生更好地巩固和加深对基础知识的理解，学会设计中小型数字系统的方法，独立完成调试过程，增强学生理论联系实际的能力，提高学生电路设计和分析的能力。2) 通过实践教学引导学生在理论指导下有所创新，为后继专业课的学习和日后工程实践奠定基础。2、设计要求1) 综合应用课程中学到的理论知识，独立完成一个设计任务。

2、2) 根据所要完成的设计任务，采用硬件描述语言VHDL进行描述，依靠计算机，借助 EDA开发工具，实现系统功能。3) 整理设计报告及相关的文档(包括总体设计思想，设计说明，程序源代码，仿真结果图、设计总结等)。3 .设计任务任务和要求：可使用拨键开关输入欲到达的楼层。要求有数码管显示当前楼层，目标楼层，并且可以输入三个目标楼层，按输入的顺序达到，达到时有开门指示灯。在电梯移动时，有相应的指示灯显示其方向。注意：电梯经过一个楼层和在楼层停留应各自设定一个固定时间。4开发工具选择quarters n 5.15. 设计方案实验要求设计一个 3层的电梯的梯控制器，采用状态机来实现，这样思路清晰，便于理

3、解。可以分为10个状态，为“一楼”、“等待状态1 ”、“等待状态2”、“等待状态3”、“等待状态4”、“开门”、“关门”、“上升”、“下降”、“停止”。各状态之间按需要转换。由状态机进程和信号指示灯进程一起控制。输入由电梯外部的请求，电梯部的请求，时钟信号组成。输岀由指示灯和电梯位置组成。6. 模块描述分为4各部分人员输入模块为按键模块电梯控制模块为电梯条件判断状态模块信号灯指示模块为指示灯显示模块电梯终端模块为电梯服务模块7. VHDL实现代码分为实体，结构体两大块;结构体中又分为电梯进程和指示灯进程;电梯进程为10个状态机之间转换的代码;指示灯进程为外部请求指示灯的代码。library i

4、eee;use ieee.std_logic_1164.all;use ieee.stdo gic_arith.all;use ieee.std_logic_ un sig ned.all;en tity san dia nti isport(anclk:in std_logic;-按键时钟信号ticlk:in std_logic;-电梯时钟信号reset:i n std_logic;-复位fiup:in std_logic;-1楼外部上升请求seup:i n std_logic;-2楼外部上升请求sed n:i n std_logic;-2楼外部下降请求thdn:i n stdo gic;-

5、3楼外部下降请求uplight:buffer stdo gic_vector(3 dow nto 1);-上升请求指示灯dn light:buffer std_lo gic_vector(3 dow nto 1);-下降请求指示灯yilou,erlou,sanlou:in std_logic;-停站请求splight:buffer std _lo gic_vector(3 dow nto 1);-停站请求指示灯weizhi:buffer in teger range 1 to 3;-位置指示door:out std_logic;-门状态指示上升下降状态指示状态机updow n: buffer

6、std_logic);- end san dia nti;architecture men ghao of san dia nti is type lift_state is (lift1,doorope n,doorclose,wait1,wait2,wait3,wait4,up,dow n,stop);sig nal men g:lift_state;sig nal cleard n:stdo gic; -清除下降状态beg inctrlift:process(reset,ticlk)电梯控制进程variable hao:integer range 3 downto 1;-显示楼层 同 w

7、eizh 作用一样，但显示方便begi nif reset='1' the nmen g<=lift1;clearup<='0'cleard n<='0'elseif ticlk'event and ticlk='1' thencase meng iswhe n lift1=>door<='1'weizhi<=1;hao:=1;men g<=wait1;whe n wait1=>men g<=wait2;whe n wait2=>clearup&l

8、t;='0'cleard n<='0'men g<=wait3;whe n wait3=>men g<=wait4;whe n wait4=>men g<=doorclose;whe n doorclose=>door<='0'if updow n='O' the nif weizhi=3 the nif splight="OOO" a nd uplight="OOO" a nd dn light="OOO" the nup

9、dow n<='1'men g<=doorclose;else updow n<='1'me ngv=dow n;end if;elsif weizhi=2 the nif splight="OOO" a nd uplight="OOO" a nd dn light="OOO" the nupdow n<='0'men g<=doorclose;elsif splight(3)='1'or (splight(3)='O'and

10、 dnlight(3)='1')the nupdow n< 二'O'men g<=up;else updow n<='1'me ngv=dow n;end if;elsif weizhi=1 the nif splight="OOO" a nd uplight="OOO" a nd dn light="OOO" the n updow n< 二'O'men g<=doorclose;else updow n<=' O'm

11、e ngv=up;end if;end if;elsif updow n='1' the nif weizhi=1 the nif splight="OOO" a nd uplight="OOO" a nd dn light="OOO" the n updow n< 二'O'men g<=doorclose;else updow n<='0' men g<=up;end if;elsif weizhi=2 the nif splight="000&quo

12、t; a nd uplight="000" a nd dn light="000" the nupdow n<='1'men g<=doorclose;elsif splight(1)='1'or (splight(1)='0'and uplight(1)='1')the nupdow n<='1'men g<=dow n;else updow n<=' 0'me ngv=up;end if;elsif weizhi=3 the

13、nif splight="000" a nd uplight="000" a nd dn light="000" the n updow n<='1'men g<=doorclose;else updow n<='1'me ngv=dow n;end if;end if;end if;whe n up=>weizhi<=weizhi+1;hao:=hao+1;if hao<3 and (splight(hao)='1' or uplight(hao)=

14、'1') thenmen g<=stop;elsif hao=3 and (splight(hao)='1' or dn light (hao)='1') the nmen g<=stop;else men g<=doorclose;end if;whe n dow n=>weizhi<=weizhi-1;hao:=hao-1;if hao>1 and (splight(hao)='1' or dnlight(hao)='1')the n men g<=stop;elsif

15、 hao=1 and (splight(hao)='1' or uplight(hao)='1')the n men g<=stop;else men g<=doorclose;end if;whe n stop=>men g<=doorope n;whe n doorope n=>door<='1'if updow n='O' the nif weizhi<=2 and (splight(weizhi)='1'or uplight(weizhi)='1')

16、the nclearup<='1'else clearup<='1' cleard n<='1'end if;elsif updow n='1' the nif weizhi>=2 and (splight(weizhi)='1'or dnlight(weizhi)='1')the ncleard n<='1'else clearupv='1'cleard n<='1'end if;end if;men g<=

17、wait1;end case;end if;end if;end process ctrlift;ctrlight:process(reset,a nclk)指示灯进程beg inif reset='1' the nsplight<="OOO"uplight<="OOO"d nlight<="OOO"elseif anclk'event and anclk='1' thenif clearup='1' the nsplight(weizhi)v='O&#

18、39;uplight(weizhi)v='O'elseif fiup='1' then uplight(1)<='1'elsif seup='1' then uplight(2)<='1'end if;end if;if cleardn='1' thensplight(weizhi)<='O'd nlight(weizhi)<='O'elseif sedn='1' then dnlight(2)<='1'e

19、lsif thdn='1' then dnlight(3)<='1'end if;end if;if yilou='1' then splight(1)<='1'elsif erlou='1' then splight (2) <='1'elsif sanlou='1' then splight(3)<='1'end if;end if;end if;end process ctrlight;end architecture men ghao;

20、8.调试仿真1.电梯在2楼外部有上升请求，电梯从 1楼升到2楼，开门，在电梯部有 3楼停站，电梯到达 3楼，之后外没有请 求，电梯停在3楼。7l«c tu11.7« * T«L3tu览览乔一 wlilawBlan oytl&uB 0erkooft 03 &zJ-C"UIB 0f LIPB s&tin0 05 b"ipB 1thinB IkP low9 0io *rE 0田 sflightB oorID djListab oai田 jli gLtR OH田 rikchiB 014A：LIab atilha i¥山

21、jk11. 7 aLrnr1 1<tenJnna< .QUOk険壯QWXf©QLIL13 T ns:30 n us10 p ris410. ns30 9 nsrLrLrL_n_rLn_rLn_rLn_rLn_rLrLn_rLn_n_n_j2.电梯在3楼外部有下降请求，电梯从 1楼升到3楼，开门，在电梯部有1楼停站，电梯到达1楼，之后外没有请求，电梯停在1楼。11.T nxnl«r；Stirt；N：amasa.oreset y i lou srlou zanlouL fiup stdnthdnvp dxiwn.door三J q>li gh电 ±J olLj eht El i± eizhi 初rlk ti H女9 08 D:j3 DB DB 0B DB 1B DB DB 00(B IMB CMf 01I-厂11J(odoJ£oci>( 皿 X1003CJOc1 HI0UL1112D.p jisEO. nsL1.7 nsJB D _ _ _ _ _ _ _畀而而而而而而打而币而而而而丽而而帀3 电梯在2楼外部有上升请求，电梯从 1楼升到2楼