课程设计电子版模板目录+正文部分2010

课程设计电子版模板目录+正文部分2010

目录

第1章界面设计 (1)

1.1 设计背景及目标 (1)

1.2 采用的控件 (1)

第2章程序代码 (2)

第3章运行效果 (3)

第4章结论与体会 (4)

参考文献 (5)

图 1-2 控件工具栏

表 1-1 属性设置

控件属性设定值

timer 时间点击timer选项，后在编

辑区出现时钟的标志，之

后对其在代码区进行编

辑。

在窗体中，添加standard选项中的控件button，如图1-3所示，属性见表1-3。

图 1-3 控件工具栏

表 1-3 属性设置

控件属性设定值

button 按钮点击button选项，在编

辑区拖拽鼠标待出现

button键之后，之后对其

属性进行修改。

在窗体中，添加standard选项中的控件combobox，如图1-4所示，见属性表1-4。

图1-4 控件工具栏

表 1-4 属性设置

第2章程序代码

2.1 combox中的代码

procedure boBox1Change(Sender: TObject); begin

if combobox1.ItemIndex=0 then

begin

image2.Left:=0;

image1.Visible:=false;

image2.Visible:=true;

image4.Visible:=false;

end;

if combobox1.ItemIndex=1 then

begin

image1.Left:=0;

image2.Visible:=false;

image1.Visible:=true;

image3.Visible:=true;

image4.Visible:=false;

end;

2.2 formcreate中的代码

procedure TForm1.FormCreate(Sender: TObject);

begin

image1.Visible:=true;

image2.Visible:=false;

timer1.Enabled:=false;

image3.Visible:=true;

image4.Visible:=false;

image5.visible:=false;

end;

2.3 bitbtn中的代码

procedure TForm1.BitBtn1Click(Sender: TObject); begin

timer1.Enabled:=false;

timer1.Enabled:=true;

end;

2.4 timer中的代码

procedure TForm1.Timer1Timer(Sender: TObject); begin

if combobox1.ItemIndex=0 then

begin

timer1.Enabled:=false;

timer1.Enabled:=true;

image2.Left:=image2.Left+1;

image1.Visible:=true;

if (image2.Left)>(panel1.Width)/2 then

begin

timer1.Enabled:=false;

image3.Visible:=false;

image4.Visible:=true;

image5.Visible:=true;

image1.Visible:=false;

end;

end;

end;

end.

第3章运行效果

3.1 开始移动的效果

图 3-1 人开始移动的效果3.2 移动到门前的效果

图 3-2 人移动到门前的效果

第4章结论与体会

结论：根据所给的要求，在现有的背景条件下，利用可视化知识，运用delphi 编程环境，进行对自动门的编程达到对门在人远离或靠近时进行自动控制的预期目标。

体会：通过这一周的学习，我对delphi进行编程的知识有了一定的了解和掌握，在此期间通过对其的学习可以看出delphi并不是那么容易就能完全掌握，虽然这门课我们开设的时间并不长，但通过老师的讲解是我对在其环境下进行的编程有了深刻的了解，虽然在对程序的代码进行编写时遇到了不小的麻烦，但是在老师的帮助系我还是完成对其的编写。通过此次的学习，我对计算机编程有了更深一步的了解，也希望往自己在以后的学习中能做的更好。

参考文献

[1]于忠达.Delphi7程序设计基础教程[M].北京:人民邮电出版社,2004.

[2]赵晓玲.可视化程序设计——Delphi[M].北京:机械工业出版社,2005.

[2]王学庆.Delphi 6数据库设计实例导航[M].北京：科学出版社，2003.

[3]付军.Delphi7实例编程100例[M].北京：中国铁道出版社，2005.

[4]杨长春. Delphi程序设计教程[M]. 北京：清华大学出版社，2005.

[5]罗小平. Delphi精要[M]. 北京：电子工业出版社，2004.