您所在位置：主题：[讨论]求教！vb与fortran的混合编程
scoot
[专家分：30] 发布于 2008-03-28 23:33:00
各位大侠：
小弟想实现在vb环境下调用fortran程序。但我用compaq fortran v6.6 生成的dll文件在vb环境中调用时，出现如下错误“error dll calling convention”。请大侠给予指教。十分感谢！附程序如下
fortran程序：
subroutine TESTED(a,b,c)
!DEC$ ATTRIBUTES DLLEXPORT::TESTED
real a,b,c
c=a+b
return
end
vb程序：
Private Declare Sub TESTED Lib "D:\STUDY\FortranAndVB\TESTED\Debug\TESTED.dll" (vba As Single, vbb As Single, vbc As Single)
Private Sub Command1_Click()
Dim vba As Single
Dim vbb As Single
Dim vbc As Single
vba = 15
vbb = 12
'vbc = vba + vbb
Call TESTED(vba, vbb, vbc)
Text1.Text = vbc
End Sub
----期待中。。。。
小弟想实现在vb环境下调用fortran程序。但我用compaq fortran v6.6 生成的dll文件在vb环境中调用时，出现如下错误“error dll calling convention”。请大侠给予指教。十分感谢！附程序如下
fortran程序：
subroutine TESTED(a,b,c)
!DEC$ ATTRIBUTES DLLEXPORT::TESTED
real a,b,c
c=a+b
return
end
vb程序：
Private Declare Sub TESTED Lib "D:\STUDY\FortranAndVB\TESTED\Debug\TESTED.dll" (vba As Single, vbb As Single, vbc As Single)
Private Sub Command1_Click()
Dim vba As Single
Dim vbb As Single
Dim vbc As Single
vba = 15
vbb = 12
'vbc = vba + vbb
Call TESTED(vba, vbb, vbc)
Text1.Text = vbc
End Sub
----期待中。。。。