吕洪波(作者网页)

1 概述

    在DOS时代，许多水利专业程序用Fortran语言编制，随着WINdows时代的来临，面向对象的编程语言如VB、VC等已成为主流，尤其是VB以其简单实用成为许多水利工作者首选工具，而以前大量Fortran程序重新编写，困难重重，充分利用前人程序资源，较好的解决办法是Fortran 与VB混合编程。

2 操作平台

    Fortran PowerStation 4.0,VB6.0(也可以是Visual Fortran,但本人手头没有，其接口约定不同，但类似)

3 主要方法

（1） 利用动态链接库，实现多语言混合编程。

（2） VB直接调用Fortran执行文件。

4 方法说明

4.1利用动态链接库方法

    （1）在Fortran PowerStation 4.0下，编制可供VB调用的.dll文件，示例代码：

subroutine forcx(a,b,c)

!ms$if .not. defined(linkdirect)

!ms$attributes dllexport :: HWJSVB

!ms$endif

integer a,b,c

a=b+c

end

    （2） 在VB下编写如下代码：

Private Declare Sub forcx B Lib "dll.dll" Alias "_ FORCX @12" (ByRef a As integer, ByRef b As integer, ByRef c As integer)

Sub callfor()

Dim a as integer, b as integer ,c as integer

B=1 : c=2

Call forcx(a,b,c)

End

    Alias 的具体格式：“_函数名（全部大写）@字节数”，其中函数名是.dll中函数名，特别注意须全部大写，字节数指函数中的变量的字节总和，整形为4字节，共12字节。

4.2 直接调用执行文件法

    这是一种最简单明了的办法，很使用，不必修改原程序，接口可通过读取数据文件方法处理，VB中直接调用shell函数即可。

    Shell(pathname[,windowstyle])

    Shell 函数的语法含有下面这些命名参数：