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

1、第一节 过程第二节 自定义函数MapBasic的过程包含主过程和子过程，是MapBasic程序结构中的一个不可缺少的部分。一个典型的MapBasic程序由许多过程组成，每个过程包含一组完成某一特定任务的语句。创建一个过程的一般形式为Sub 过程名（ByVal） 参数名 As 变量类型,) 语句列表End SubSubEnd Sub 结构定义了一个子过程（通常简称为过程）.过程一旦定义,程序的其他部分可以使用Call语句调用该过程.一个过程可以不带参数也可以带多个参数.当一个过程带有参数时,它的每一个参数必须是唯一的.当参数不止一个时,参数必须用逗号隔开.形式参数 在缺省情况下,MapBasic

2、的参数为形式参数,当过程带有形式参数时,调用者必须将该形式参数指定一个特定变量.在调用过程中,如果过程执行中改变了形式参数的值,则指定变量的值随之改变,即过程可以通过形式参数把值随之改变,即过程可以通过形式参数把值返回给调用者,从而允许调用者检查子过程返回的值.值参数 MapBasic还提供另一类型的参数，即通常所称的值参数。在过程定义中 ，值参数名称前有ByVal 关键词，当一个参数是以值参数方式传递时，子过程通过调用者的表达式得到一个表达式值的复制品，这样，调用者可以使用任何表达式，而不必像形式参数那样必须使用变量来传递参数的值，而且子过程可以改变值参数的值但不会对调用者提供的变量或表达式

3、造成任何影响，即子过程不能通过值参数把一个值返回给调用者，这是值参数和形式参数最大的区别。数组参数 子过程的参数还可以是一个数组，要声明子过程的参数为数组，在SubEnd Sub结构的参数名后面加上一对圆括号即可，如下的例子定义了一个带有整数数组作为形式参数的子过程： Sub Example（X As Integer） End Sub 当调用一个带数组参数的子过程时,调用者只需在调用语句中指定传递值的数组名即可,而不必在后面加上圆括号,如调用上例的Example子过程,可以使用以下语句: Call Example(items) 其中，items是为形式参数指定特定值的数组，从中可见items后

4、面不用带圆括号.以上说明了如何定义一个过程，但在定义一个过程之前必须先对付过程进行声明，这需要使用Declare Sub语句，其一般形式为： Declare Sub 过程名（ByVal）参数名 As 变量类型，) Declare Sub 语句建立了一个过程名和参数列表，在通常情况下，每一个Declare Sub语句对应一个真正的子过程，该子过程随后在程序的SubEnd Sub结构中定义Declare Sub语句还可以定义一个用其他语言（如C或者Pascal）编写的外部程序，一旦声明了一个外部程序，原程序可以像调用常规的MapBasic子过程一样调用该外部程序。声明一个外部程序的一般形式如下所示

5、： Declare Sub 过程名 Lib “文件名” Alias “外部程序初始名” （ByVal）参数名 As 变量类型，) 调用一个外部程序与所使用的平台相关，在Windows中，外部程序可以存储在Dll文件中，在Macintosh中，外部程序已XCMD形式存在，但不管操作平台如何，Declare Sub语句的语法在本质上是一样的，如果子过程带有的局部变量与已存在的全局变量同名，任何对该变量的操作都只影响子过程中的局部变量，即子过程的局部变量使同名的全局变量不起作用此外，还需要注意的是编程人员不能将数组、用户型变量以及Alias变量传递给值参数，但可以将任何类型的变量传递给形式参数主过程

6、是MapBasic 程序中必须包含的过程，是应用程序运行时第一个调用的过程，其他的子过程都必须通过主过程或其他子过程来调用，定义一个主过程的一般形式如下：Declare Sub MainSub Main 语句列表End Sub Main 是一个特殊的MapBasic过程名，如果应用程序中包含一个名为Main 的过程，当运行该应用程序时，Mapinfo 将自动先执行Main 过程。然而，程序员也可以不明确地定义主过程，而在程序的开头附近写入一句或几句简单的语句，但这些语句必须在任何过程之外，MapBasic将把这些语句看成是一个主过程，这被成为一个隐含的主过程过程或外部程序（DLL,XCMD）的

7、调用使用Call语句，其一般形式为： Call 子过程名（参数名,） Call语句可以调用由SubEnd定义的常规的子过程，也可以调用Windows动态链接库的程序（Dll），但这时必须是在Mapinfo for Windows中运行该应用程序，类似地，当应用程序在Mapinfo for Macintosh中运行时，Call语句可以调用XCMD外部程序当Call语句调用一个常规MapBasic过程时，MapBasic将跳去执行在子过程中语句，直到遇到End Sub语句，此时，MapBasic 从子程序中返回，并继续执行Call语句后面的语句，值得注意的是，此时Call语句只能调用同一应用程序里

8、面定义的子过程当Call语句调用的是外部程序时，MapBasic转向执行指定的外部程序直到该外部程序返回，对于Windows Dll 外部程序实际是位于一个独立的文件中 ，因此该指定的Dll文件在MapBasic运行Call语句时必须存在而且可以获得；对于XCMD文件情况类似，但调用XCMD时，数组变量和用户类型变量不能作为参数例 Declare Sub Main Decare Sub Cube(ByVal original As Float,cubed as Float) Sub Main Dim x ,result As Float Call Cube(2,result) result n

9、ow contains the value 2*2*2=8 x=1 Call Cube(x+2,result) result now contains the value 3*3*3=27 End Sub Sub Cube(byval original As Float,cubed As Float) cubed=original3 End Sub在图形用户界面环境中，用户通过键盘或鼠标控制事件的发生，这些单击鼠标或其他由用户发出的动作称为事件或系统事件，而事件处理程序是为了响应系统事件的MapBasic程序的一部分，当用户产生一个事件时，应用程序必须通过事件处理程序对此作出响应在MapBas

10、ic中，子过程可以作为事件处理程序，MapBasic有许多特殊的过程，如SelChangedHander、WinClosedHander、RemoteMsgHandler、ToolHandler、EndHandler等，它们在MapBasic程序中具有重要作用，此外用户还可以建立自己的子过程作为事件处理程序每一个事件处理程序必须有一个特殊的名字在一般情况下，用户不需要使用Call语句去专门调用以上的特殊过程，如果MapBasic应用程序中包含以上过程，当某一类型的系统事件发生时，MapBasic 将会自动调用相应的过程。例如假设程序中有一个名为WinCloseHandler的过程，每当用户关闭

11、一个窗口时，MapBasic会自动调用该过程MapBasic支持多种不同的函数，包括标准的Basic函数（例如Asc（）、Format$()等）和Mapinfo或MapBasic特有的函数（例如，Distance（）、ObjectGeography() ).此外，用户还可以在MapBasic自定义函数，一旦定义了一个用户自定义函数，就可以像MapBasic标准函数一样调用它要自定义函数，首先必须对函数返回值和参数列表进行定义，即函数的声明。自定义函数的声明，在MapBasic中采用Declare语句.一般地，Declare语句的基本语法如下： Declare Function fname (

12、ByVal parameter As var_type,ByVal parameter As var_type ) As return_type fname是函数名 parameter是该函数的参数名 var_type是变量类型，例如整数型 return_type是一个标准变量类型，即函数的返回值，数组和自定义类型不被承认例Declare Sub Main Declare Function CubeRoot(ByVal x As Float) As Float Sub Main Note Str$(CubeRoot(23) End用户自定义函数是用FunctionEnd Function结构来

13、定义的，其语法如下：Function name( ByVal parameter As datatype ,ByVal parameter As datatype) As return_typestatement_listEnd Funtion name是函数名 paremeter是该函数中的参数名 datatype是变量类型，例如整数型 return_type是标准变量类型而数组和自定义类型不被承认 statement_list是将要执行的函数中用到的语句列表 例 自定义函数CubeRoot,它返回一个数值的立方根（这个数字的1/3次方）Declare Function CubeRoot(B

14、yVal x As Float) As FloatDeclare Sub MainSub Main Dim f_result As Float f_result=CubeRoot(23) Note Str$(f_result)End SubFunction CubeRoot(ByVal x As Float) As Float CubeRoot=x0.33333333333End Function如果要退出一个FunctionEnd Function结构，可以采用Exit Function语句.Exit Function语句可以使MapBasic退出当前函数，因此，Exit Function语句只能在FunctionEnd Function语句中定义使用函数是可以嵌套使用的。一个函数中可以调用另一个函数，同样，被调用的函数还可以继续调用其它函数，一个单独的Exit Function语句只能退出当前的函数