VB与Fortran的混合编程.docVIP

VB与Fortran的混合编程 实验目的 1．掌握VB和Fortran混合编程的方法。 2．掌握Fortran中动态链接库的创建方法。 3．掌握VB中对动态链接库的调用方法。 二、实验原理 一般VB 与Fortran混合编程的方法主要有两种, 即VB中直接调用可执行文件(利用Shell函数直接调用Fortran编译出来的可执行文件) 和利用动态链接库DLL (Dynamic Link Library) 与Fortran 混合编程。 第一种方法比较简单，将Fortran源程序编译为可执行文件（扩展名为.exe）之后在VB环境下用shell()函数调用即可。这种方法适合于计算量较大而交互操作不多的时候。但是, Shell 函数是以异步方式执行的, 这种执行方式使VB 程序不能等待Fortran 程序计算结束, 而是继续执行后续的程序, 从而容易使最终结果出错。 第二种方法是将Fortran源程序编译为动态链接库（扩展名为.dll），然后在VB环境下调用动态链接库里的函数和过程来完成各项计算任务。虽然没有第一种方法操作简单，但是调用动态链接库的方法更为灵活和实用。 Fortran中动态链接库（.dll文件）的创建 在Compaq Visual Fortran 6.5中创建“.Dll”文件的步骤如下: 1) 创建dll项目（Project） 跟一般的Fortran项目相似，首先要创建一个dll项目，具体步骤如下： 点击File ——New，在弹出的new对话框中选择Projects项下的Dynamic Link Library，在右侧Project Name下面的文本框中输入项目名称，在Location下的文本框中选好路径之后点击Ok，这样我们就创建了一个空的dll项目文件。 2)在dll项目中添加文件 在刚才创建的dll项目中添加一个空文件，这跟普通的Fortran项目中添加文件的方法一样。 点击file——new，在弹出的new对话框中选择Files项，在列表框中选择文件类型（单击选中即可），一般选择Fortran Fixed format Source Files（固定格式源文件）或Fortran Free format Source Files（自由格式源文件），在右边File标签下的文本框中输入源文件名，点击OK，一个空的源文件就建好了，接下来可以在里面编写Fortran源程序了。 3)创建子程序（过程）和函数 Dll文件是一种特殊的可执行文件，在其源程序中没有主程序，而是一个或多个子程序或函数，我们通过调用这些子程序和函数来完成一些特定的任务。 在Dll项目中创建子程序和函数的方法跟一??Fortran项目文件中的没有太大的差别，只需在子程序或函数开始时加入如下一些微软扩展属性编译伪指令即可： !MS$ attributes dllexport !MS$ attributes alias !MS$ attributes value !MS$ attributes reference 例如，如果要编写一个计算双精度实数加法的子程序，子程序名为subplus，输入参数为a和b，输出参数为c，则完整的源程序可以这样写： subroutine subplus(a,b,c) !MS$ attributes dllexport :: subplus !MS$ attributes alias :subplus::subplus !MS$ attributes value::a,b !MS$ attributes reference::c real(8)::a,b,c c=a+b return end subroutine subplus 一般情况下我们将输入参数定义为传递数值方式，而将输出变量定义为传递地址方式。 像这样添加一些子程序函数，然后可以将他们编译和生成dll文件（快捷键是F7）。之后在该项目文件目录下的debug文件夹中可以找到这个以项目名称命名的dll文件，我们可以在VB环境中调用它。 VB2005中对动态链接库的调用 VB 对动态链接库的调用如同对普通子程序或函数的调用，在调用之前必须先对Dll 中的子程序或函数声明。声明格式如下: [Public|Private] Declare Sub|Function Name Lib“Libname”[Alias“aliasname”] [([arglist ])] 例如在C盘根目录下有一个名为mathfunction.dll的动态链接库，我们对这个库中名为subplus的子程序的声明如下： Public Declare Sub subplus Lib C:\mathfunction.dll (ByVal a As Double, ByVa