DELPHI与电气控制项目设计报告.doc

河南机电高等专科学校项目设计报告书课程名称： DELPHI与电气控制 课题名称：并口控制LED显示汽车灯模拟专 业： 电气自动化技术 班 级： 自动化064 学 号： 061415427 姓 名： 李 世 平 成 绩： 2008 年12 月 27日设 计 任 务 书一、设计目的和任务1、 完成delphi课程的教学之后，通过课程设计进一步巩固所学的知识，加深理解。2、 通过各种途径对delphi相关技术内容进行拓展和深入，增强自学能力及对知识的融会贯通能力。3、 提高动手能力、调试程序的能力、解决问题的能力和实际开发应用能力，掌握使用delphi进行系统开发的一般步骤、方法和技巧。二、设计方案及工作原理1、 方案用并口控制LED显示来完成汽车灯模拟.2、 工作原理通过对设置按键的操作，完成汽车向左转、向右转、紧急刹车、停靠、向前走、倒车等基本行驶功能。每一个功能键对应一种状态显示，区别每一种功能。涉及到硬件电路，用的是25针并口驱动LED灯管，利用灯管的亮灭状态，区别功能键是否按下。目 录第一章、 系统设计要求和解决方案第二章、 硬件实现第三章、 软件实现第四章、 缺点及可能的解决方法第五章、 心得体会附录一、参考文献附录二、硬件原理图附录三、程序流程图第一章 系统设计要求和解决方案 窗体有shape组件、button组件、time组件、labble组件组成。 button组件用于设置功能键，Shape组件用于显示功能键状态，labble组件用于显示当前选中的功能键类型。功能分析： 汽车向左转时，左边2个shape组件变成黄色；汽车向右转时，右边 2个shape组件变成黄色；汽车向前走时，上边2个shape组件变成黄色；汽车倒车时，下边2个shape组件变成黄色；汽车停靠时，左边2个shape和右边2个shape组件闪烁黄色；汽车紧急刹车时，所有shape组件变成红色；每按下一个功能键，中间labble组件均显示当前选中的功能键。通过发送高低电平信号，并口驱动LED显示不同的状态。 第二章、 硬件实现焊接硬件原理图如下图所示：并口引脚29分别对应LED灯管D1D8。如果想让哪一个灯改变状态（亮或灭），只需将对应的引脚变成高或低电平即可。例如：若想让D1灯亮，只需sethighpin(2);若想让D2灭，只需sethighpin(3)。想实现全亮功能，可以发送数据GiveLptData(255)，同理，全灭发送数据GiveLptData(0)即可。 在利用硬件时，要先在unit单元加入并口驱动代码，然后在FormCreat事件，加入代码InitLpt;硬件即可使用。第三章 软件实现一、并口硬件驱动程序/并口初始化，针对LPT1Function InitLpt; external chenzhenlpt.DLL name InitLpt;/获得LPT1数据口数据Function GetLptData; external chenzhenlpt.DLL name GetLptData;/获得LPT1状态口数据，注意仅S3、S4、S5、S6、S7有效Function GetLptStastus; external chenzhenlpt.DLL name GetLptStastus;/批量设置LPT1控制口数据，注意仅C0、C1、C2、C3有效Function GiveLptControl; external chenzhenlpt.DLL name GiveLptControl;/批量设置LPT1数据口数据Function GiveLptData; external chenzhenlpt.DLL name GiveLptData;/单独设置LPT1具有输出特性的管脚为高电平，含数据口和控制口可用管脚Function SetHighPin; external chenzhenlpt.DLL name SetHighPin；/ 单独设置LPT1具有输出特性的管脚为低电平，含数据口和控制口可用管脚Function SetLowPin; external chenzhenlpt.DLL name SetLowPin;end.二、DELPHI上位机代码FormCreate事件beginInitLpt;end;Timer1事件begin Statusbar1.Panels0.Text:=datetimetostr(now);end;Timer2事件begin if StatusBar1.Panels1.Text=设计者 :+于鹏杰+,+郑付根+,+李世平 then StatusBar1.Panels1.Text:=设计者 :+李世平 else StatusBar1.Panels1.Text:=设计者 :+于鹏杰+,+郑付根+,+李世平;end;向左转beginGiveLptData(192); timer3.Enabled:=false; shape1.Brush.Color:=clwhite; shape2.Brush.Color:=clwhite; shape3.Brush.Color:=clwhite; shape4.Brush.Color:=clyellow; shape5.Brush.Color:=clwhite; shape6.Brush.Color:=clwhite; shape7.Brush.Color:=clyellow; shape8.Brush.Color:=clwhite; label1.Caption:=向左转end;向右转begin GiveLptData(3); timer3.Enabled:=false; shape1.Brush.Color:=clwhite; shape2.Brush.Color:=clwhite; shape3.Brush.Color:=clyellow; shape4.Brush.Color:=clwhite; shape5.Brush.Color:=clwhite; shape6.Brush.Color:=clwhite; shape7.Brush.Color:=clwhite; shape8.Brush.Color:=clyellow; label1.Caption:=向右转end;倒车begin GiveLptData(12); timer3.Enabled:=false; shape1.Brush.Color:=clwhite; shape2.Brush.Color:=clwhite; shape3.Brush.Color:=clwhite; shape4.Brush.Color:=clwhite; shape5.Brush.Color:=clyellow; shape6.Brush.Color:=clyellow; shape7.Brush.Color:=clwhite; shape8.Brush.Color:=clwhite; label1.Caption:=倒车end;向前走begin GiveLptData(72); timer3.Enabled:=false; shape1.Brush.Color:=clyellow; shape2.Brush.Color:=clyellow; shape3.Brush.Color:=clwhite; shape4.Brush.Color:=clwhite; shape5.Brush.Color:=clwhite; shape6.Brush.Color:=clwhite; shape7.Brush.Color:=clwhite; shape8.Brush.Color:=clwhite; label1.Caption:=向前走end;紧急刹车begin GiveLptData(255); timer3.Enabled:=false; shape1.Brush.Color:=clred; shape2.Brush.Color:=clred; shape3.Brush.Color:=clred; shape4.Brush.Color:=clred; shape5.Brush.Color:=clred; shape6.Brush.Color:=clred; shape7.Brush.Color:=clred; shape8.Brush.Color:=clred; label1.Caption:=紧急刹车end;停靠beginif GiveLptData(195)then GiveLptData(0)else GiveLptData(195);timer3.Enabled:=true;label1.Caption:=停靠end;Timer3事件begin if shape4.Brush.Color=clyellow then shape4.Brush.Color:=clwhite else shape4.Brush.Color:=clyellow; if shape7.Brush.Color=clyellow then shape7.Brush.Color:=clwhite else shape7.Brush.Color:=clyellow; if shape3.Brush.Color=clyellow then shape3.Brush.Color:=clwhite else shape3.Brush.Color:=clyellow; if shape8.Brush.Color=clyellow then shape8.Brush.Color:=clwhite else shape8.Brush.Color:=clyellow; shape1.Brush.Color:=clwhite; shape2.Brush.Color:=clwhite; shape5.Brush.Color:=clwhite; shape6.Brush.Color:=clwhite;end;end.第四章、缺点及可能的解决方法设计过程中遇到了不少问题，如调用窗体的方法、窗口通信的实现、如何实现不同方向的汽车灯显示、如何与并口显示相结合、如何组织一些实现功能的语言、如何更好的实现汽车灯模拟的控制等一系列问题，通过查看参考书、与组内成员讨论、向同学请教、上网搜资料种种途径逐个解决了存在的的问题。但仍有一些想要实现的功能限于知识的贫乏而无法解决，想要解决这些问题必须有待进一步的学习及经验的积累，所以我还需要进行学习DELPHI的专业知识，多看些这方面的书。比如设计的语言不能良好的与并口控制相结合，动作也不太连贯，对语言的掌握不够好，对有的语言也不太了解，毕竟我学DELPHI的时间不太充足，但是我会再接再厉去学习。在用并口控制LED显示汽车灯模拟的时候，一开始并不能很连贯的控制，甚至出现多次的通讯错误，不能把硬件与软件相结合，在组织语言的时候也不够顺畅，对一些语言也不是很了解，对专业知识的不甚了解以及准备不足。随着我们小组的不断的实践，小组成员之间不断的讨论，不断的向同学请教，我们还是克服了重重的困难，实现了软件和硬件之间的转换，使汽车灯的功能更能淋漓尽致的展现在老师面前。 解决方法是好好学习DELPHI的组件之间的功能，熟悉设计的语言，使设计的时候能做到融会贯通。第五章、心得体会通过本次的课程设计是我基本上巩固了所学的delphi的基础知识及其对这些知识加深了理解，实现了由并口控制LED显示汽车灯模拟，从对这个程序设计初次构想到设计与相应动作对应的语言，再到最后的顺利完工，在这一过程中增强了我们的DELPHI的专业知识的理解。本次的动手开发实践