Mapinfo教学ppt课件10第十章-过程、自定义函数

第十章过程、自定义函数第一节过程第二节自定义函数第十章过程、自定义函数11.1过程MapBasic的过程包含主过程和子过程，是MapBasic程序结构中的一个不可缺少的部分。一个典型的MapBasic程序由许多过程组成，每个过程包含一组完成某一特定任务的语句。1.1过程MapBasic的过程包含主过程和子过程，是M21.2过程定义创建一个过程的一般形式为Sub过程名[（ByVal）]参数名As变量类型[,…])]语句列表EndSubSub…EndSub结构定义了一个子过程（通常简称为过程）.过程一旦定义,程序的其他部分可以使用Call语句调用该过程.1.2过程定义创建一个过程的一般形式为31.2过程定义一个过程可以不带参数也可以带多个参数.当一个过程带有参数时,它的每一个参数必须是唯一的.当参数不止一个时,参数必须用逗号隔开.形式参数在缺省情况下,MapBasic的参数为形式参数,当过程带有形式参数时,调用者必须将该形式参数指定一个特定变量.在调用过程中,如果过程执行中改变了形式参数的值,则指定变量的值随之改变,即过程可以通过形式参数把值随之改变,即过程可以通过形式参数把值返回给调用者,从而允许调用者检查子过程返回的值.1.2过程定义一个过程可以不带参数也可以带多个参数.当41.2过程定义值参数MapBasic还提供另一类型的参数，即通常所称的值参数。在过程定义中，值参数名称前有ByVal关键词，当一个参数是以值参数方式传递时，子过程通过调用者的表达式得到一个表达式值的复制品，这样，调用者可以使用任何表达式，而不必像形式参数那样必须使用变量来传递参数的值，而且子过程可以改变值参数的值但不会对调用者提供的变量或表达式造成任何影响，即子过程不能通过值参数把一个值返回给调用者，这是值参数和形式参数最大的区别。1.2过程定义值参数51.2过程定义数组参数子过程的参数还可以是一个数组，要声明子过程的参数为数组，在Sub…EndSub结构的参数名后面加上一对圆括号即可，如下的例子定义了一个带有整数数组作为形式参数的子过程：SubExample（XAsInteger）……EndSub当调用一个带数组参数的子过程时,调用者只需在调用语句中指定传递值的数组名即可,而不必在后面加上圆括号,如调用上例的Example子过程,可以使用以下语句:CallExample(items)其中，items是为形式参数指定特定值的数组，从中可见items后面不用带圆括号.1.2过程定义数组参数61.2过程定义以上说明了如何定义一个过程，但在定义一个过程之前必须先对付过程进行声明，这需要使用DeclareSub语句，其一般形式为：DeclareSub过程名[（[ByVal]）参数名As变量类型[，…])]DeclareSub语句建立了一个过程名和参数列表，在通常情况下，每一个DeclareSub语句对应一个真正的子过程，该子过程随后在程序的Sub…EndSub结构中定义1.2过程定义以上说明了如何定义一个过程，但在定义一个过71.2过程定义DeclareSub语句还可以定义一个用其他语言（如C或者Pascal）编写的外部程序，一旦声明了一个外部程序，原程序可以像调用常规的MapBasic子过程一样调用该外部程序。声明一个外部程序的一般形式如下所示：DeclareSub过程名Lib“文件名”[Alias“外部程序初始名”][（[ByVal]）参数名As变量类型[，…])]调用一个外部程序与所使用的平台相关，在Windows中，外部程序可以存储在Dll文件中，在Macintosh中，外部程序已XCMD形式存在，但不管操作平台如何，DeclareSub语句的语法在本质上是一样的，1.2过程定义DeclareSub语句还可以定义一个81.2过程定义如果子过程带有的局部变量与已存在的全局变量同名，任何对该变量的操作都只影响子过程中的局部变量，即子过程的局部变量使同名的全局变量不起作用此外，还需要注意的是编程人员不能将数组、用户型变量以及Alias变量传递给值参数，但可以将任何类型的变量传递给形式参数1.2过程定义如果子过程带有的局部变量与已存在的全局变量91.3主过程主过程是MapBasic程序中必须包含的过程，是应用程序运行时第一个调用的过程，其他的子过程都必须通过主过程或其他子过程来调用，定义一个主过程的一般形式如下：DeclareSubMainSubMain语句列表EndSubMain是一个特殊的MapBasic过程名，如果应用程序中包含一个名为Main的过程，当运行该应用程序时，Mapinfo将自动先执行Main过程。然而，程序员也可以不明确地定义主过程，而在程序的开头附近写入一句或几句简单的语句，但这些语句必须在任何过程之外，MapBasic将把这些语句看成是一个主过程，这被成为一个隐含的主过程1.3主过程主过程是MapBasic程序中必须包含的101.4过程调用过程或外部程序（DLL,XCMD）的调用使用Call语句，其一般形式为：Call子过程名[（[参数名][,…]）]Call语句可以调用由Sub…End定义的常规的子过程，也可以调用Windows动态链接库的程序（Dll），但这时必须是在MapinfoforWindows中运行该应用程序，类似地，当应用程序在MapinfoforMacintosh中运行时，Call语句可以调用XCMD外部程序1.4过程调用过程或外部程序（DLL,XCMD）的调用111.4过程调用当Call语句调用一个常规MapBasic过程时，MapBasic将跳去执行在子过程中语句，直到遇到EndSub语句，此时，MapBasic从子程序中返回，并继续执行Call语句后面的语句，值得注意的是，此时Call语句只能调用同一应用程序里面定义的子过程当Call语句调用的是外部程序时，MapBasic转向执行指定的外部程序直到该外部程序返回，对于WindowsDll外部程序实际是位于一个独立的文件中，因此该指定的Dll文件在MapBasic运行Call语句时必须存在而且可以获得；对于XCMD文件情况类似，但调用XCMD时，数组变量和用户类型变量不能作为参数1.4过程调用当Call语句调用一个常规MapBasi12例DeclareSubMainDecareSubCube(ByValoriginalAsFloat,cubedasFloat)SubMainDimx,resultAsFloatCallCube(2,result)‘resultnowcontainsthevalue2*2*2=8x=1CallCube(x+2,result)‘resultnowcontainsthevalue3*3*3=27EndSubSubCube(byvaloriginalAsFloat,cubedAsFloat)cubed=original^3EndSub例131.5事件处理程序在图形用户界面环境中，用户通过键盘或鼠标控制事件的发生，这些单击鼠标或其他由用户发出的动作称为事件或系统事件，而事件处理程序是为了响应系统事件的MapBasic程序的一部分，当用户产生一个事件时，应用程序必须通过事件处理程序对此作出响应在MapBasic中，子过程可以作为事件处理程序，MapBasic有许多特殊的过程，如SelChangedHander、WinClosedHander、RemoteMsgHandler、ToolHandler、EndHandler等，它们在MapBasic程序中具有重要作用，此外用户还可以建立自己的子过程作为事件处理程序每一个事件处理程序必须有一个特殊的名字在一般情况下，用户不需要使用Call语句去专门调用以上的特殊过程，如果MapBasic应用程序中包含以上过程，当某一类型的系统事件发生时，MapBasic将会自动调用相应的过程。例如假设程序中有一个名为WinCloseHandler的过程，每当用户关闭一个窗口时，MapBasic会自动调用该过程1.5事件处理程序在图形用户界面环境中，用户通过键盘或142.1自定义函数MapBasic支持多种不同的函数，包括标准的Basic函数（例如Asc（）、Format$()等）和Mapinfo或MapBasic特有的函数（例如，Distance（）、ObjectGeography()).此外，用户还可以在MapBasic自定义函数，一旦定义了一个用户自定义函数，就可以像MapBasic标准函数一样调用它2.1自定义函数MapBasic支持多种不同的函数，包152.2函数的声明要自定义函数，首先必须对函数返回值和参数列表进行定义，即函数的声明。自定义函数的声明，在MapBasic中采用Declare语句.一般地，Declare语句的基本语法如下：DeclareFunctionfname([[ByVal]parameterAsvar_type][,[ByVal]parameterAsvar_type…])Asreturn_typefname是函数名parameter是该函数的参数名var_type是变量类型，例如整数型return_type是一个标准变量类型，即函数的返回值，数组和自定义类型不被承认2.2函数的声明要自定义函数，首先必须对函数返回值和参162.2函数的声明例DeclareSubMainDeclareFunctionCubeRoot(ByValxAsFloat)AsFloatSubMainNoteStr$(CubeRoot(23))End2.2函数的声明例172.3函数的定义用户自定义函数是用Function…EndFunction结构来定义的，其语法如下：Functionname([[ByVal]parameterAsdatatype][,[ByVal]parameterAsdatatype…])Asreturn_typestatement_listEndFuntionname是函数名paremeter是该函数中的参数名datatype是变量类型，例如整数型return_type是标准变量类型而数组和自定义类型不被承认statement_list是将要执行的函数中用到的语句列表2.3函数的定义用户自定义函数是用Function…182.3函数的定义例自定义函数CubeRoot,它返回一个数值的立方根（这个数字的1/3次方）DeclareFunctionCubeRoot(ByValxAsFloat)AsFloatDeclareSubMainSubMainDimf_resultAsFloatf_result=CubeRoot(23)NoteStr$(f_result)EndSubFunctionCubeRoot(ByValxAsFloat)AsFloatCubeRoot=x^0.33333333333EndFunction2.3函数的定义例自定义函数