VFP第8部分(模块化).ppt

数学与信息工程系计算机基础教研室,程序设计基础,Visual Foxpro 6.0,第八讲 程序设计初步（3）,要点： 1、建立模块化程序设计的观念 2、掌握自定义方法的使用 3、掌握变量的作用域 4、了解过程、自定义函数,程序设计的三种基本结构： 顺序结构 分支结构 循环结构,一、程序设计为什么要引入模块化,模块化设计思想,【例1】设计如图所示表单，计算组合数C(m,n)。其中，m和n是正整数，且mn。,“计算”命令按钮的CLICK事件代码如下：,M=thisform.text1.value N=thisform.text2.value p1=1 for i=1 to m p1=p1*i endfor p2=1 for i=1 to n p2=p2*i endfor,p3=1 for i=1 to m-n p3=p3*i endfor result=p1/(p2*p3) Thisform.text3.value=result return,数据输入,求m!,求n!,求(m-n)!,将求阶乘的问题写成一个共有的代码,代码如下：,*自定义方法JC parameters x y=1 for i=1 to x y=y*i endfor Return Y,*“计算”命令按钮的CLICK事件： M=THISFORM.TEXT1.VALUE N=THISFORM.TEXT2.VALUE S1=THISFORM.JC(M) S2=THISFORM.JC(N) S3=THISFORM.JC(M-N) THISFORM.TEXT3.VALUE=S1/(S2*S3),二、模块化的基本思想,分而治之的策略是人们处理复杂问题时的一般策略。它将一个大的任务分解为多个任务，分而治之，协作处理，共同完成。,分解优化。不同的人分解的策略是不一样，因此分解也有好有坏。,模块化程序就是采用“自顶向下、逐步求精”的方法，从整体到局部，从抽象到具体的分解过程。,（1）精简主程序 提高可读性，同时便于以后程序的维护。 （2）减少重复片段 sub1内的命令原本在主程序会出现两次，而改成调用子程序后，便只出现两次“调用sub1”命令，因此可以减少重复片段，并且以后sub1内的命令若需修改时，只要改一个地方就可以了，而不需要同时修改多处。,三、模块化程序设计的主要优点,在Visual FoxPro中，子程序的结构可分为下列几种： 过程 自定义函数 自定义方法,自定义方法,（1）方法的分类 VFP的方法分为两类：内部方法和用户自定义方法。 内部方法是VFP预制的子程序，可供用户直接调用或修改后使用，如在前面章节中所使用过的Release、SetFocus等方法。 用户自定义方法其实就是用户为某种需要编写的子程序。,1、自定义方法的建立和调用,（2）方法的命名规则 VFP中方法的命名规则如下： 由字母、汉字、下划线和数字组成，并且必须以字母、汉字或下划线开头。 可以是1128个字符。 不能使用vfp的保留字 方法名不要与变量名、数组名相同，取名尽量“见名知意”。 （3）方法建立的步骤 定义方法 编写方法代码,(教材P71) 【例3-15】自定义方法addtxt，将文本框中输入的文本添加到编辑框中，并将文本框中的文本设置为蓝颜色，编辑框中的文本设置为红颜色。,1）方法定义 （1）添加新方法addtxt。 打开表单设计器选择“表单”中的“新建方法程序”命令打开的“新建方法程序”对话框在“名称”框中输入方法的名称(如图所示) 单击添加按钮单击关闭按钮，退出该对话框。,注意：只有表单对象可以添加自定义方法。,输入方法名,输入对该方法的描述，也可以不加,（2）编写addtxt方法的代码。 双击表单空白处，打开“代码”窗口，在“过程”下拉列表中选择“addtxt”，然后编写代码，如图所示。,将文本框中输入的内容添加到编辑框,2）编写控件的事件代码 （1）“添加”命令按钮的“Click”事件代码如下： thisform.addtxt() （2）“关闭”命令按钮的“Click”事件代码如下： thisform.release,文本框的内部方法,3）运行结果,2、参数传递与方法的返回值,（1）参数传递 如果需要方法能够接收参数，则在方法代码开始部分增加下面的命令行： PARAMETERS 或 LAPRAMETERS 调用时使用括号将实参括起来： 对象名.方法名(),说明：见教材P75,（2）方法的返回值 如果需要一个返回值，则要在方法代码的结束处增加下面的命令行： RETURN 如果缺省，vfp将自动返回.T.。当代码执行到 RETURN命令时，程序流程立即返回到主程序中。,（3）方法的调用形式 在主程序中可以使用以下形式调用方法： 在表达式中调用方法，例如， y=2+Thisform.New(x)。 在赋值语句中调用方法，例如，y=Thisform.New(x)。 以等号命令调用方法，例如，=Thisform.New(x)。以该形式调用的方法将舍弃返回值。,(教材P74) 【例3-16】编写分数化简程序，在其中调用求最大公约数的自定义方法gys。,编写求最大公约数的自定义方法gys代码,编写“=”按钮的Click事件代码： a=Thisform.Text1.Value b=Thisform.Text2.Value IF a*b0 s= Thisform.gys(a,b) Thisform.Text3.value=INT(a/s) Thisform.Text4.value=INT(b/s) ENDIF,在赋值语句中调用方法,EXM1（p83)：设计如图所示表单，3文本框的初值为0，运行表单后，在3个文本框中都输入1，单击“command1”按钮，标签label2和label3分别会显示什么？,Command1的click事件代码： i=thisform.text1.value a=thisform.text2.value b=thisform.text3.value y1=“ DO WHILE i=3 g1( ) y1=y1+“P(“+STR(i,1)+“)=“+STR(a,2)+“ “ i=i+1 ENDDO thisform.label2.caption=y1 thisform.label3.caption=“b=“+STR(b,2),自定义方法程序prog1: a=a*2 b=b+a return,P(1)=2 P(2)=4 P(3)=8 b=15,变量的作用域,根据使用范围，可以将变量分成以下3类： 私有变量 全局变量 局部变量,私有变量 私有变量的使用原则是：上层程序（主程序）中，所定义的私有变量，可以在下层程序（子程序）中使用，而下层程序（子程序）中，所定义的私有变量，却不可以在上层程序（主程序）中使用；这是因为定义该私有变量的子程序结束时，私有变量便被释放的缘故。,定义私有变量： Private ,教材P77,假设一私有变量在“子程序SUB2”中定义时，则子程序SUB2A、SUB2B也可以使用该私有变量，但主程序与其他子程序（SUB1、SUB1A、SUB1B），则无法使用该私有变量。,(教材P75-76) 【例3-17】表单界面如图所示，计算按钮的click事件代码和自定义方法代码如下，当文本框text1、text2中分别输入1、2，单击“计算“按钮，文本框text3、text4中显示什么？,计算按钮的Click事件代码： a=thisform.text1.value b=thisform.text2.value s=0 thisform.summ() thisform.text4.value=s,自定义方法summ代码： private s s=a+b thisform.text3.value=s,全局变量 全局变量的使用范围包括整个应用程序，从主程序到所有子程序都可以使用全局变量的内容；因此通常是用来存放密码、当天日期、用户ID或其他常用的系统信息等。 但因全局变量的生命周期相当长，从应用程序开始到结束，全局变量会一直占据内存空间，除非必要否则尽量少用。,定义全局变量： PUBLIC ,教材P77,假设一个全局变量在子程序SUB1中定义时，则从主程序到全部子程序（SUB1、SUB2、SUB1A、SUB1B、SUB2A、SUB2B）,都可以使用该全局变量。,(教材P77) 【例3-18】如【例3-17】中如下图所示表单，若计算按钮的click事件代码和自定义方法代码如下，当文本框text1、text2中分别输入1、2，单击“计算“按钮，文本框text3、text4中显示什么？,计算按钮的Click事件代码： a=thisform.text1.value b=thisform.text2.value thisform.summ() thisform.text4.value=s,自定义方法summ代码： Public s s=a+b thisform.text3.value=s,局部变量 局部变量是Visual FoxPro新增的变量种类，但与私有变量非常相似，私有变量的使用范围是程序本身及下层的子程序，而局部变量的使用的范围则只限于定义变量的程序本身。,定义局部变量： LOCAL ,教材P78,假设一局部变量在“子程序SUB1”中自定义时，则只有“子程序SUB1”可以使用此局部变量，主程序和其它子程序（SUB2、SUB1A、SUB1B、SUB2A、SUB2B）都无法使用该局部变量。,变量的屏蔽,为了避免在不同层次的模块中因为使用相同名字的变量而相互影响值的变化，可在子模块中使用private、local、parameters命令屏蔽掉主模块或上级模块中同名的变量，使得这些变量在子模块中暂时无效。只要返回主模块或上级模块，原来同名变量会重新出现，并且其值保持不变。,EXM2：设计如图所示表单，文本框text1、text2、text3的初值为0，运行表单后，在文本框text1、text2、text3中分别输入数值2、3、4，单击“command1”按钮，文本框text412中分别会显示什么？,Command1的click事件代码： a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value thisform.sub1() thisform.text10.value=a thisform.text11.value=b thisform.text12.value=c retu,自定义方法程序sub1: private b,c a=20 b=30 c=40 thisform.sub2() thisform.text7.value=a thisform.text8.value=b thisform.text9.value=c retu,自定义方法程序sub2: private a a=100 b=2*a thisform.text4.value=a thisform.text5.value=b thisform.text6.value=c retu,100 200 40 20 200 40 20 3 4,EXM3：设计如图所示表单，运行表单后，在文本框text1和text2中都输入数值1，单击“command1”按钮，文本框text36中分别会显示什么？,Form1的load事件代码：public a,b Command1的click事件代码： a=thisform.text1.value b=