《Visual FoxPro6.0程序设计教程》课件第8章

任务8.1自定义属性

任务8.2自定义方法

任务导入

学习目标

任务实施

1.添加自定义属性

在某些场合下，可以使用“属性”来代替使用“变量”。任务8.1自 定 义 属 性

(1)进入表单设计器，单击“表单”菜单→“新建属性”命令，打开“新建属性”对话框，如图8-1所示。

(2)在“新建属性”对话框的“名称(Name)”栏中，输入自定义属性的名称：Desec，然后在“说明”栏中填入该属性的简单说明：“这是一个自定义属性，功能是记录初始秒数”。

(3)单击“添加”按钮，然后单击“关闭”按钮，退出“新建属性”对话框。

(4)此时，在属性窗口的“全部”选项卡中可以看见新建的属性及其说明，如图8-2所示。图8-1添加自定义属性图8-2修改自定义属性的值

2.自定义属性应用示例

【例8-1】

计时器(秒表)可以在运动场上测试短跑项目的成绩，可以记录考试所用的时间等。设计一个计时器，如图8-3所示。图8-3设计计时器

(1)建立应用程序用户界面。

进入表单设计器，增加一个文本框Text1、一个计时器控件Timer1和两个命令按钮Command1～Command2。其中计时器控件Timer1可以放在表单的任何位置。

(2)设置对象属性。

设置对象属性，见表8-1。其他属性设置参见图8-4所示。表8-1属性设置

(3)增加一个自定义属性sec0。

选中表单，单击“表单”菜单→“新建属性”命令，在“新建属性”对话框中添加一个自定义属性sec0，用以记录“秒表”的初始时间，并将sec0属性的数据值改为0，如图8-4所示。图8-4建立计时器用户界面

(4)编写程序代码。

运行程序，结果如图8-3所示。

3.添加自定义数组属性

数组属性是一组具有不同下标的同名属性，在任何使用数组的地方都可以使用数组属性。

(1)在表单设计器中，单击“表单”菜单→“新建属性”命令，打开“新建属性”对话框。

(2)在“名称”栏中输入数组属性的名称，以及用括号括起来的数组大小，如图8-5所示。

(3)如果能够事先确定数组的维数和大小，就在括号中输入其值，否则可以先随意指定一个，然后在代码中用DIMENSION再重新定义。

(4)单击“添加”按钮后，再单击“关闭”按钮。

4.自定义数组属性示例

【例8-2】

利用数组属性输出斐波那契(Fibonacci)数列。

(1)定义一个数组属性f(30)。

在“新建属性”对话框中的“名称”框中输入f(30)，单击“添加”按钮，然后单击“关闭”。

(2)建立应用程序用户界面与设置对象属性。

选择“新建”表单，进入表单设计器，增加一个标签Label1、一个微调器控件Spinner1和一个列表框List1，如图8-6(a)所示。图8-5定义数组属性图8-6求Fibonacci数列

设置各对象的属性，见表8-2。

(3)编写代码。

运行程序，结果如图8-6所示。表8-2属性设置

【例8-3】

使用数组属性存放方阵的元素。设有一个5 × 5的方阵，其中元素是由计算机随机生成的小于100的整数。

其中列表框List1的属性设置参见表8-3。图8-7建立应用程序用户界面与设置对象属性表8-3属性设置

(3)编写代码。

运行程序，结果如图8-8所示。图8-8矩阵计算任务导入

学习目标

任务实施

1.方法的基本概念

在可视化编程中，“方法”是很常用的，下面介绍VFP“方法”的特点、分类和命名规则。

1)“方法”的特点任务8.2自 定 义 方 法

2)“方法”的分类

VFP的方法分为两类：内部方法和用户自定义方法。

3)“方法”的命名规则

2.建立自定义方法

自定义方法的建立分为两步：方法的定义和编写方法代码。

1)自定义新方法

(1)进入表单设计器，单击“表单”菜单→“新建方法程序”命令，打开“新建方法程序”对话框，如图8-9所示。图8-9添加新方法

(2)在“名称”栏中填入自定义方法的名称(如vvv)。

(3)在“说明”栏中填入新方法的简单说明(如：求某数的立方)。说明内容可有可无，主要是为了使用方便。

(4)单击“添加”按钮，将新方法添加到方法程序中。

(5)单击“关闭”按钮，退出“新建方法程序”对话框。

(6)此时，在属性窗口的“方法程序”选项卡中可以看见新建的方法及其说明。

2)编写自定义方法的代码

编写自定义方法的代码与编写表单的事件过程代码方法基本一样。

在编写时，可以双击属性窗口的新方法项vvv，或直接打开“代码”窗口，在“过程”下拉列表中选择新方法vvv，如图8-10所示。

3)自定义方法的调用

自定义方法的调用与表单内部方法的调用一样，可以在事件过程或其他的方法代码中调用，如图8-11所示。图8-10编写自定义方法的代码图8-11自定义方法的调用

3.参数传递

4.参数传递方式

5.方法的返回值

6.自定义方法使用示例

【例8-4】

编写分数化简程序，其中调用求最大公约数的自定义方法，如图8-12所示。图8-12分数化简

(1)程序界面的设计参见图8-13所示。其中，文本框的InputMask属性设为9999999，Value属性为0。

(2)单击“表单”菜单→“新建方法程序”，建立自定义方法hcf。

(3)编写求最大公约数的自定义方法hcf。

(4)编写“=”按钮Command1的Click事件代码。

运行程序，结果如图8-12所示。

图8-13建立用户界面与设置对象属性

【例8-5】

验证哥德巴赫猜想。任何一个不小于6的偶数均可以分解为两个素数之和。

分析：任意输入一个不小于6的偶数，由计算机将其分解为两个素数之和，如图8-14所示。图8-14验证哥德巴赫猜想

(1)建立用户界面与设置对象属性。

在表单设计器中，增加两个文本框控件Text1～Text2、一个命令按钮控件Command1。属性设置参见图8-13。

(2)建立自定义方法。

(3)编写事件代码。

运行程序，结果如图8-14所示。

7.方法的递归调用

简单地说，递归就是一个过程调用过程本身。

【例8-6】

如图8-15所示，利用递归调用计算n!。

(1)用户界面的设计以及对象属性的设置参见图8-15所示。

(2)编写求阶乘的递归方法fact的代码。

(3)编写“＝”命令按钮Command1的Click事件代码。