报告书1资料.docVIP

河南机电高等专科学校 项目设计报告书 课程名称： DELPHI与电气控制 课题名称： 仓库进出料系统 专 业： 电气自动化技术 班 级： 自动化064 学 号： 061415401 姓 名： 傅 兵 成 绩： 2008 年12 月 27日 目录 设计目的和任务 、设计方案和工作原理 、设计程序代码 、参考文献 、程序流程图 、心得体会 设 计 任 务 书 一、设计目的和任务 1、 完成delphi课程的教学之后，通过课程设计进一步巩固所学的知识，加深理解。 2、 通过各种途径对delphi相关技术内容进行拓展和深入，增强自学能力及对知识的融会贯通能力。 3、 提高动手能力、调试程序的能力、解决问题的能力和实际开发应用能力，掌握使用delphi进行系统开发的一般步骤、方法和技巧。 二、设计方案及工作原理 1、 方案 设计一个仓库物料出入仿真系统，该系统有六层，一个物料和一个挡板。 2、工作原理 （1）使用三个timer和九个shape组件，一个edit组件，两个bitbtn组件 （2）timer1组件用来控制物料进入，timer2组件用来控制挡板的下降，timer3用来控制物料的出仓和挡板的上升。 （3）shape1组件用来代表物料，shape2组件用来代表挡板，shape3组件用来代表挡板，其他六个shape组件用来代表六层楼板。 （4）edit组件用来输入楼层数，两个bitbtn组件用来代表出料和入料。 缺点和解决方法：由于在设计中对timer组件的应用不是很熟悉，在设计任务时出现了不少问题，经过我们三个的努力，问题得到了解决，现把在设计任务时出现的问题及解决方法陈列如下： （1）开始设计任务时，我们使用了三个shape组件来代表三个物料，在实际运行时出现了timer组件混乱，程序能运行，但离我们设计预想相差太远，经过仔细思考，我们使用一个shape组件来代表一个物料，去掉另外两个shape组件，这样在实际运行时问题得到了解决。 （2）在设计中，我们使用了十二个bitbtn组件来代表进出料的楼层数，这使我们的程序看起来很麻烦，最后使用了一个edit组件和两个bitbtn组件来省略了这些组件，使程序看起来简单不少。 （3）在写程序时，程序显示无误，但在运行时却出现程序运行混乱的问题，经过思考和查资料，发现我们写的程序有逻辑错误，我们仔细修改了出现逻辑错误的程序，再次运行该程序，程序运行正常。 （4）在设计时我们发现有一个问题，一楼的进出料在使用timer组件时出现错误，一楼无法正常运行，经过思考，我们取消了一楼的进出料程序，这是我们所设计程序出现的最大遗憾。 程序代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons; type TForm1 = class(TForm) Shape1: TShape; Shape2: TShape; Shape3: TShape; Shape4: TShape; Shape5: TShape; Shape6: TShape; Timer1: TTimer; Timer2: TTimer; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Timer3: TTimer; Shape7: TShape; Shape8: TShape; Shape9: TShape; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Edit1: TEdit; Label6: TLabel; Label7: TLabel; procedure Timer1Timer(Sender: TObject); procedure BitBtn1Click