第6章 程序.pptVIP

过程文件的一般形式是： Procedure ＜过程名1＞ [（＜形式参数表1＞）] ＜过程名1的全部内容＞ Return [＜表达式＞|TO Master|TO ＜过程名＞] Endproc PROCEDURE ＜过程名2＞[（＜形式参数表2＞）] ＜过程名2的全部内容＞ RETURN [＜表达式＞|TO MASTER|TO ＜过程名＞] ENDPROC …… PROCEDURE ＜过程名N＞ [（＜形式参数表n＞）] ＜过程名n的全部内容＞ RETURN [＜表达式＞|TO MASTER|TO ＜过程名＞] ENDPROC 说明：＜形式参数表＞用来接收调用它的实参数（假如需要的话）。RETURN后面若选＜表达式＞则将表达式的值返回给上一层的调用程序。并返回到调用程序。利用该返回值可以完成函数的功能。 【例6-16】阅读下列过程文件。 *过程文件LI6-16.prg PROCEDURE p1 ?过程p1 RETURN ENDPROC PROCEDURE p2 ?过程p2 RETURN ENDPROC PROCEDURE p3 ?过程p3 RETURN ENDPROC 可见上述过程文件中有三个过程，每一个过程很简单，只有一个输出语句和返回语句。 6.6.2 过程文件的打开及过程的调用 1、过程文件的打开 2、调用过程 3、关闭过程 4、过程的嵌套调用 1. 过程文件的打开 在调用过程文件中的过程之前，一定要先打开过程文件。 【格式】Set Procedure TO ＜过程文件名1＞ [,＜过程文件名2＞…][Addtive] 【功能】打开一个或多个过程文件，以供程序调用其中的过程。也可以打开其他源代码文件，如菜单程序文件.MPR。 【说明】 ① 打开过程文件语句一般放在主程序的开始部分（循环之前）。 ② 选ADDITIVE时，打开新的过程文件不关闭已经打开的过程文件，否则关闭。 2. 调 用 过 程 【格式】DO ＜过程名＞ [WITH ＜实参表＞] 或 =＜过程名＞（＜实参表＞）（实现函数型的过程调用）。 【功能】调用指定的过程。若选＜实参表＞，将它传给形式参数。 “=”命令的一般格式是：＝＜表达式1＞[＜表达式2＞,[…]]。各表达式可以是常量、变量、函数等组成的合法表达式。该命令计算各表达式的值，但不保留其值，常用来调用函数，因为单独函数不能作为一个语句，加了“=”后，就是一个合法的语句，返回函数的值。但它与赋值语句的“=”完全不同。 3. 关 闭 过 程 【格式】 SET Procedure To 或 Close Procedure 若用CLOSE ALL 或CLEAR ALL命令，不但可以关闭过程文件，还可以关闭所有各区打开的各类文件，并选当前区为1区，后者还有清除内存的功能。 【例6-17】阅读下列程序，写出运行结果。注意调用例6-16过程文件。 SET TALK OFF CLEAR SET PROCEDURE TO LI6-16 DO p2 DO p1 DO p3 DO p1 CLOSE PROCEDURE SET TALK ON RETURN *过程文件LI6-16.prg PROCEDURE p1 ?过程p1 RETURN ENDPROC PROCEDURE p2 ?过程p2 RETURN ENDPROC PROCEDURE p3 ?过程p3 RETURN ENDPROC 【例6-18】带参数和函数型的过程调用。若过程放在主程序当中不形成一个过程文件也可以。当然也不需要打开，直接调用过程即可。请阅读下列程序： *主程序LI6-18.prg SET TALK OFF CLEAR m=5 DO PROC1 不带参数调用过程 n=10 DO proc2 WITH m,n 传递实参调用过程 =proc2(m,n) 函数型的过程调用，与上一个语句完全等价 RETURN PROCEDURE PROC1 ?m+5=,m+5 RETURN ENDPROC PROCEDURE PROC2(n1,n2) ?n1+n2=,n1+n2 RETURN ENDPROC 运行主程序后的结果为： m+5= 10 n1+n2= 15 n1+n2= 15 6.7 自 定 义 函 数 6.7.1 独立自定义