2022年怎样在VB程序中调用FORTRAN程序？ 2.pdf

《2022年怎样在VB程序中调用FORTRAN程序？ 2.pdf》由会员分享，可在线阅读，更多相关《2022年怎样在VB程序中调用FORTRAN程序？ 2.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、摘要 ：本文介绍了如何通过DLL实现 VB5.0 和 FortranPowerStation4.0的接口。该方法为编制Windows95 下的数值计算事件驱动程序提供了一条方便的途径。关键词 ：动态链接函数子程序声明1 引言众所周知， Fortran语言自从50 年代问世以来， 一直是数值计算领域所使用的主要语言，以往大量的科学与工程计算程序都是在DOS下用 Fortran语言编写的。 Microsoft公司推出的Windows95 和 WindowsNT下的 32 位的 FortranPowerStation4.0 （以下简称FPS4.0）是一种功能强大的Fortran集成开发环境。 它几乎

2、完全兼容Fortran90和 Fortran77标准，并提供了与当今流行的 Windows95 的接口。利用 FPS4.0 和 Windows其他编程工具 （如 VisualC+和 VisualBasic等）能很容易开发出Windows95 下的 Windows 事件驱动程序。在Windows 的诸多编程工具中，VisualBasic以其简单易学、功能强大等优点而广受非计算机专业人员欢迎。经过一段时间的探索，笔者成功地把FPS4.0 和 VisualBasic5.0（以下简称VB ）通过 DLL技术结合起来，编制出Windows95 下的 Windows 事件驱动程序。 这样使得应用程序既具有

3、Windows 环境图形用户界面的友好性， 又能充分利用Fortran原有的丰富资源 （如大量先前开发的DOS下的科学与工程计算程序等）。本文的基本思路是用VB设计用户界面及控制程序，而将计算用Fortran程序通过 FPS4.0编译成 DLL ，并由VB调用。它们之间的数据交换通过参数传递来实现。2 用 FPS4.0 创建 DLLDLL （动态链接库）是可被其他程序或DLL调用的函数（过程）集合组成的可执行文件模块。Windows 本身提供了大量的应用程序接口（API）函数，都是通过DLL机制来实现的。 DLL之所以在Windows 中被广泛应用， 是因为它除了具有静态链接库的功能外，尚有如

4、多个应用程序共享一个DLL 以节省内存和磁盘空间等许多优点。在 FPS4.0 中，可根据需要将一组Fortran函数或子程序放在一个程序中，创建成一个DLL ，它本身不能运行，只能被VB调用。具体实现步骤如下：先建立一个New ProjectWorkspace ，定义其类型为DynamicLinkLibrary， 然后将一个只含有函数或子程序的Fortran程序加入到Project中，编译通过即可生成DLL 。在 Fortran程序中，必须被调用的函数或子程序予以声明，以标识这些函数或子程序在所生成的DLL 中是可用的。具体语法如下：$ATTRIBUTESDLLEXPORT Name$ATTR

5、IBUTES 是 FPS4.0 中的元命令（ metacommand ），用于声明微软扩展属性（Microsofttextendedattributes）。DLLEXPORT 是上述属性之一，它的作用就是声明该函数或子程序能被其他程序或DLL 调用。 Name为函数或子程序名。该语句应放在程序的变量声明处。3 VB调用 FortranDLL名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 4 页 - - - - - - - - - VB在调用 DLL前，必须先在模块级或相应

6、Form 中的 GeneralDeclaration中，对被调用的 DLL 进行声明，语法如下：PublicPrivateDeclaresubNameliblibnameAliasaliasname(arglist)PublicPrivateDeclareFunctionNameliblibnameAliasaliasname(arglist)Declare语句的作用是声明对DLL中外部过程的引用。至于语句中各组成部分的意义，一般的 VB书籍都有介绍，在此不再赘述。声明之后，VB中使用 Call语句实现调用DLL中的函数或子程序，调用语句如下：CallName(arglist)Name的意义同

7、上。以上仅是VB中调用 DLL的一般语法，下文对声明和调用过程中应注意的两点进行讨论。3.1声明语句中对于Alias部分的处理一般 Alias关键字指定函数或子程序的别名，这是因为有些DLL中的函数或子程序名称太长或名称上加有VB不能识别的不合法符号，或有些函数或子程序名与VB中的关键字重名，那么这时应将DLL库中真实的函数或子程序名写在别处。但在 FPS4.0 生成的 DLL 中，每一个声明的函数或子程序均有一个别名，都需用Alias关键字进行声明。该别名在编译生成的库文件（.LIB ）中可以找到。经过笔者反复调试，发现它的命名有一定的规律可循，即如果函数或子程序名为name1,则别名为 _

8、name1 x，其中x 为一整数，x等于函数或子程序的参数个数乘以4。特别要注意，若函数或子程序的参数个数为0 那么x 也为 0。具体的实现可见下文实例。3.2调用过程中的参数传递要使 VB正确地调用FortranDLL ，另一个值得注意的问题是调用过程中的参数传递。由于 FPS4.0 和 VB在数据定义类型上的不一致，因此在VB的 Declare语句中的参数列表中，必须将 Fortran程序的参数类型正确地对应到VB中。两种系统的参数对应关系见表1。表 1 FPS4.0 和 VB主要参数传递对照表FPS4.0 INTEGERINTEGER （2）REAL*4 REAL*8VB LONGINT

9、EGERSINGLE DOUBLE另外，如果所传递的参数是数组类型，则在 VB的 Declare语句中应把数组的第一个元素作为参数放在参数列表的对应位置。4 VB调用 FPS4.0 DLL实例为了具体说明上述过程的细节，本文列举了一个功能简单的程序如下：EXAM.F是一个含有子程序ARRAYTEST 的 Fortran程序。子程序ARRAYTEST(arr,n)的功能是改变两个参数的值并返回。程序代码如下：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 4 页 - - -

10、 - - - - - - SUBROUTINE ARRAYTEST(n,arr)$ATTRIBUTESDLLEXPORT :ARRAYTESTINTEGERn,i,jREAL(4) arr(3,3)DO i=1,3DO j=1,3arr(i,j)=10.1*i+jEND DOEND DOn=n+10END SUBROUTINE编译后产生EXAM.DLL文件。由于子程序ARRAYTEST 只有两个参数，故它的别名为_ARRAYTEST8。EXAM.VBP是一个 VB程序，它包含一个窗体FORM1.FRM；一个命令按钮Command1和两个文本框Text1、Text2。两个文本框的作用是为了显示返

11、回的结果，以检验程序是否正确执行。 FORM1.FRM 代码如下：PrivateDeclareSub ARRAYTEST Lib EXAM.dllAlias_ARRAYTEST8 (XAS LONG ，YASSINGLE)PrivateSub Command1_Click()Dim a As LongDim ab(1 To 3,1 To 3)As Singlea=10CallARRAYTEST(a,ab(1,1)Text1.Text=Str(a)Text2.Text=Str(ab(3,3)End Sub运行后 Text1.Text为 20，Text2.Text为 33.3, 结果正确。名师资料

12、总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 4 页 - - - - - - - - - 5 结束语本文探讨了Windows95 下 VB和 FPS4.0 通过 DLL实现联合编程的方法。利用 VB的可视化开发环境和FPS4.0 可以使 Fortran应用程序具有直观、操作方便的图形界面，文中所述方法为广大 DOS下 Fortran用户升级应用程序提供了一条简便、快捷的途径。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 4 页 - - - - - - - - -