delphi精馏塔塔顶温度误差实时显示.doc

目 录 第1章 界面设计………………………………………..……………………………1 1.1 设计背景及目标………………………………………..………………...……1 1.2 采用的控件………………………………………..………………………...…1 第2章 程序代码…………………………………………………………………….. 第3章 运行效果………………………………………………………………….…. 第4章 结论与体会……………………………………………………………….…. 参考文献……………………………………………………………………………… 页面设计 设计背景及目标 背景 以为课题，在Delphi下开发创建，首先实现界面的设计；并确保实时显示塔顶温度计算出塔顶温度与设定温度的误差值并显示 目标：采用的控件 在窗体中，添加additional选项卡中的控件image，如图1-1所示。属性见表1-1. 图1-1窗体添加控件 图1- 表1-1控件属性 控件 属性 设定值 Image Picture 打开Picture editor 对话框，单击“load”按钮，选择要载入的图片，单击ok按钮即可 Stretch 在窗体中，添加standand选项卡中的控件abel、Button和Edit，如图1-。属性见表 图1-窗体添加控件 图1-添加 图1-添加表1-控件属性控件 属性 设定值 Label1Font 宋体、粗体、四号 Caption 温度误差： Label2 Font Times New Roman、常规、一号 Caption Label3 Font 宋体、粗体、四号 Caption 塔顶温度 Label4 Font 宋体、粗体、四号 Caption Color clScrollBar Label5 Font 宋体、粗体、四号 Caption 设定温度 Button1 Caption 开始检测 Font 宋体、粗体、四号 Button2 Caption 暂停检测 Font 宋体、粗体、四号 Edit1 Text 在窗体中，添加system选项卡中的控件，如图1-所示属性见表 图1-窗体添加imer控件表1-控件属性 控件 属性 设定值 Enabled False Interval 1000 第2章 程序代码 编写计时器timer1事件过程，代码如下： procedure TForm1.Timer1Timer(Sender: TObject); begin label4.caption:=inttostr(30+random(30)) ; if Edit1.Text= then label2.Caption:=0 else label2.Caption:=inttostr(strtoint(label4.Caption)-strtoint(Edit1.Text)) ; end; 实现功能：在Timer1事件触发时，使Label4上实时显示从30到300的随机整数，Label2上显示Label4上的值与Edit1的值的差。 编写按钮Butoon1的事件过程，代码如下： procedure TForm1.Button1Click(Sender: TObject); begin timer1.Enabled:=True; end; 实现功能：触发计时器1。 编写按钮Butoon2的事件过程，代码如下： procedure TForm1.Button2Click(Sender: TObject); begin timer1.Enabled:=false; end; 实现功能：停止触发计时器1。 第3章 运行效果 运行效果如图3-1所示。 图运行效果图 图运行效果图第4章 结论与体会 结论： 根据所给的要求，在现有的背景条件下，利用可视化知识，运用delphi程序，进行控件属性及代码的编辑达到了目的 体会： 通过设计程序的编写，不仅是在专业知识方面，最主要是在怎样去解决编程中出现的问题。社会在加速度地发生变化，对人才的要求也越来越高，要用发展的眼光看问题，得不断提高思想认识，完善自己。，所受的社会压力将比其他行业更加沉重，要学会创新求变，以适应社会的需要。这次实习成长了不少，从中有不少感悟，?细心负责是做好每一件事情所必备的基本素质，基本的专业素养是前提。??? 整个的过程是紧张而愉快的，锻炼了上机动手能力。提高了解决实际问题的能力对构建更严密的逻辑思维编写完善程序都有很大的帮助今后将继续保持认真负责的学习态度，高尚的思想觉悟，进一步完善和充实自己，争取在以后学习中取得新的突破。 参考文献 [] 何鹏飞.Delphi 8程序设计教程[M].清华大学出