DELPHI机器人移动仿真控制.doc

目 录 第1章 界面设计………………………………………..……………………………1 1.1 设计背景及目标………………………………………..………………...……1 1.2 采用的控件………………………………………..………………………...…1 第2章 程序代码…………………………………………………………………….. 第3章 运行效果………………………………………………………………….…. 第4章 结论与体会……………………………………………………………….…. 参考文献……………………………………………………………………………… 页面设计 设计背景及目标 背景 以为课题，在Delphi下开发创建，首先实现机器人移动界面的设计；并确保机器人在人为操控的情况下进行移动使机器人按照人输入的指令的方向运动并实现随时暂停触碰边界后停止等功能 目标： （2）采用的控件 在窗体中，添加additional选项卡中的控件image，如图1-1所示。属性见表1-1. 图1-1窗体添加控件 图1- 表1-1控件属性 控件 属性 设定值 Image Picture 打开Picture editor 对话框，单击“load”按钮，选择要载入的图片，单击ok按钮即可 60 Width 60 Stretch True 在窗体中，添加standand选项卡中的控件abel、Edit、Button和Panel，如图1-。属性见表 图1-更改默认名称图1-添加图1-添加表1-控件属性控件 属性 设定值 Label1Font 宋体、粗体、四号 Caption 移动方向 Label2 Font 宋体、常规、五号 Caption 如输入东北或EN Panel1 Color cl3DDKShadow Height 500 Width 500 Button1 Font 宋体、粗体、四号 Caption 移动 Button2 Font 宋体、粗体、四号 Caption 回到中点 Button3 Font 宋体、粗体、四号 Caption 暂停 在窗体中，添加system选项卡中的控件，如图1-所示属性见表 图1-窗体添加imer控件表1-控件属性 控件 属性 设定值 Enabled False Interval 100 第2章 程序代码 编写计时器timer1事件过程，代码如下： procedure TForm1.Timer1Timer(Sender: TObject); begin begin if image1.left=440 then timer1.Enabled:=False else image1.Left:=image1.Left+10; end else if (edit1.Text=W) or (edit1.Text=w) or (edit1.Text=西)then begin if image1.left=0 then timer1.Enabled:=False else image1.Left:=image1.Left-10; end else if (edit1.Text=N) or (edit1.Text=n) or (edit1.Text=北)then begin if image1.top=0 then timer1.Enabled:=False else image1.top:=image1.top-10; end else if (edit1.Text=S) or (edit1.Text=s) or (edit1.Text=南)then begin if image1.top=440 then timer1.Enabled:=False else image1.top:=image1.top+10; end else if (edit1.Text=EN) or (edit1.Text=en) or (edit1.Text=东北)then begin if (image1.top=0)or(image1.left=440) then tim