自动控制系统程序设计
第1章
1.1 设计背景及目标
页面设计
背景:需要做的是一个有关机器人数字识别的课程设计,主要表现出的是在 给出是 0~9 个阿拉伯数字中任选其一,机器人便移到相应的那个数字去。而通过 对其的设计学生可以学习到如何使用 delphi7.0 软件, 如何把上网找到的图片导 入 Form1 中,还有如何对按钮、文字、菜单进行设置,以及如何编写程序代码等 等知识。 目标: (1)机器人与 0~9 阿拉伯数字的界面设计; (2)在编辑框中输入 0~9 中的任一整数后,机器人能够识别该数字,并向之移动,最后停在该数字前。 使学生把所学到的有关 delphi7.0 软件知识得以很好的运用,即而使 学生对所学的知识更好的掌握。
1.2
采用的控件
在窗体中,可以看到的菜单工具栏中的控件,如图 1-1 所示。
图 1-1 菜单工具栏
在窗体中,添加 additional 选项卡中的控件 image,如图 1-2 所示,属性见 表 1-1。
图 1-2 控件工具栏
1
自动控制系统程序设计
表 1-1 属性设置 控件 属性 设定值 打开 Picture editor 对话框,单击“load”按钮,选择 要载入的图片,单击 ok 按钮即可,如图 1-3 所示
Image
Picture
图 1-3 插入图片
在窗体中,添加 standard 选项卡中的控件 label1~11,如图 1-4 所示,属性见 表 1-2。
图 1-4 控件工具栏
2
自动控制系统程序设计
表 1-2 属性设置
控件
属性
设定值
Label1~10
Caption,Font
Caption 属性为 0~9, 打开 font 对话框, 设置如图 1-5 所示,单击确定按钮
Label1
Caption,Font
Caption 属性为输入数字,打开 font 对话框,设置如 图 1-6 所示,单击确定按钮
图 1-5 Font 属性设置
3
自动控制系统程序设计
图 1-6 Font 属性设置
在窗体中,添加 standard 选项卡中的控件 Edit1,如图 1-4 所示,属性见 表 1-3。
表 1-3 属性设置
控件
属性
设定值
Edit1
Text,Font
Text 属性为空, 打开 font 对话框, 设置如图 1-5 所示,单击确定按钮
在窗体中,添加 standard 选项卡中的控件 button1~2,如图 1-4 所示,属性见 表 1-4。
表 1-4 属性设置
控件
属性
设定值
4
自动控制系统程序设计 Caption 属性分别为确定和还原, 打开 font 对话 button1~2 Caption,Font 框,设置如图 1-6 所示,单击确定按钮
在窗体中,添加 system 选项卡中的控件 timer1,如图 1-7 所示,属性设置如 图 1-8 所示。
图 1-7 控件工具栏
图 1-8 属性设置
以上控件在窗体中的布置如图 1-9 所示。
图 1-9 控件布置
5
自动控制系统程序设计
第 2 章 程序代码
编写确定按钮事件过程,代码如下: implementation var dire:integer; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var temp:integer; begin temp:= strtoint(edit1.Text ); if temp>9
then begin showmessage('这不是正确的数字,请重试!'); edit1.SetFocus ; end else begin timer1.Enabled :=true; case temp of 0:dire:=label10.Left ; 1:dire:=label1.Left ; 2:dire:=label2.Left ; 3:dire:=label3.Left ; 4:dire:=label4.Left ; 5:dire:=label5.Left ; 6:dire:=label6.Left ; 7:dire:=label7.Left ; 8:dire:=label8.Left ; 9:dire:=label9.Left ; end; end; end; 编写计时器事件过程,代码如下:
6
自动控制
系统程序设计
procedure TForm1.Timer1Timer(Sender: TObject); begin if image1.Left <>dire then image1.Left:=image1.Left +1 else begin timer1.Enabled :=false; showmessage('到达!'); end; end; 编写窗体 formcreat 事件过程,代码如下: procedure TForm1.FormCreate(Sender: TObject); begin timer1.Interval :=10; image1.Left :=10; timer1.Enabled :=false; end; 程序代码编写如图 1-10 所示。
7
自动控制系统程序设计
图 2-1 程序代码编写
8
自动控制系统
程序设计 第 3 章 运行效果
运行效果如图 3-1,图 3-2,图 3-3 所示。
图 3-1 运行效果图
图 3-2 运行效果图
9
自动控制系统程序设计
图 3-3 运行效果图
10
自动控制系统程