VFP过程设计课件.pptVIP

* 5.6 过程程序设计 1、子程序 2、过程 3、参数传递 4、自定义函数 2014年11月18日 过 程 设 计 主程序：cc.prg @2,3 say “好好学习 Do p1 Do p2 Return 子程序p1.prg @3,3 say “********” 子程序p2.prg @4,3 say “天天向上” 主程序：cc.prg @2,3 say “好好学习 Do p1 Do p2 Return Procedure p1 @3,3 say “********” Endproc Procedure p2 @4,3 say “天天向上” Endpro 3 个 程 序 文 件 1 个 程 序 文 件 定义 过 程 设 计 过程： 过程是特殊的子程序 使用时必须使用procedure定义 过程不需要多次打开子程序文件， 节省了总运行时间 程序员 用户 过 程 设 计 如何使用过程？ *主程序：cc.prg @2,3 say “好好学习 Do p1 Do p2 Return Procedure p1 @3,3 say “********” Endproc Procedure p2 @4,3 say “天天向上” Endproc 流程一 多个子程序 多个过程 主程序后面 定义为 存放于 procedure 自动打开 过 程 设 计 练习一 编程：输出下面唐诗，要求主程序aa.prg只输出第一句，其他三句分别使用三个过程输出，定义的过程放在主程序后面 白日依山尽 黄河入海流 欲穷千里目 更上一层楼 Clear @4,10 say “白日依山尽” Do p1 Do p2 Do p3 Return Procedure p1 @5,10 say “黄河入海流” Endproc Procedure p2 @6,10 say “欲穷千里目” Endproc Procedure p3 @7,10 say “更上一层楼” endproc 过 程 设 计 流程二 多个子程序 多个过程 一个过程文件 定义为 存放于 procedure 流程一 多个子程序 多个过程 主程序后面 定义为 存放于 procedure 过程文件：存放多个过程的程序文件， 扩展名 .prg 打开过程文件： Set procdure to [过程文件名] 关闭过程文件： Set procdure to 调用过程前，需在主程序中通过命令打开 存放过程的过程文件； 调用后，需要使用命令关闭过程文件 过 程 设 计 主程序：cc.prg @2,3 say “好好学习 Do p1 Do p2 Return Procedure p1 @3,3 say “********” Endproc Procedure p2 @4,3 say “天天向上” Endpro 主程序：cc.prg @2,3 say “好好学习 Set procedure to h:\gx Do p1 Do p2 Set procedure to Return 过程文件h:\gx.prg Procedure p1 @3,3 say “********” Endproc Procedure p2 @4,3 say “天天向上” Endpro 流程一 流程二 过 程 设 计 改写 Clear @4,10 say “白日依山尽” Do p1 Do p2 Do p3 Return Procedure p1 @5,10 say “黄河入海流” Endproc Procedure p2 @6,10 say “欲穷千里目” Endproc Procedure p3 @7,10 say “更上一层楼” endproc F:\gc.prg Set procedure to f:\gc.prg Set procedure to *