主题:VB与Fortran混合编程
Fortran程序如下:
SUBROUTINE ARRAYTEST(arr)
!MS$ATTRIBUTES DLLEXPORT :: ARRAYTEST
REAL(4) arr(3, 7)
INTEGER i, j
DO i = 1, 3
DO j = 1, 7
arr (i, j) = 11.0 * i + j
END DO
END DO
END SUBROUTINE
已建立的动态链接库地址为:C:\xinjian\exam\Debug\exam.dll
VB模块里为:Public Declare Sub ARRAYTEST Lib "C:\xinjian\exam\Debug\EXAM.dll" Alias " _ARRAYTEST@8" (X As Long, Y As Single)
一个Commod 和两个Text
Private Sub Command1_Click()
Dim a As Long
Dim ab(1 To 3, 1 To 3) As Single
a = 10
Call ARRAYTEST(a, ab(1, 1))
Text1.Text = Str(a)
Text2.Text = Str(ab(3, 3))
End Sub运行显示:找不到Dll入口点
应该怎么解决呀?麻烦高手大师们不吝赐教!!
SUBROUTINE ARRAYTEST(arr)
!MS$ATTRIBUTES DLLEXPORT :: ARRAYTEST
REAL(4) arr(3, 7)
INTEGER i, j
DO i = 1, 3
DO j = 1, 7
arr (i, j) = 11.0 * i + j
END DO
END DO
END SUBROUTINE
已建立的动态链接库地址为:C:\xinjian\exam\Debug\exam.dll
VB模块里为:Public Declare Sub ARRAYTEST Lib "C:\xinjian\exam\Debug\EXAM.dll" Alias " _ARRAYTEST@8" (X As Long, Y As Single)
一个Commod 和两个Text
Private Sub Command1_Click()
Dim a As Long
Dim ab(1 To 3, 1 To 3) As Single
a = 10
Call ARRAYTEST(a, ab(1, 1))
Text1.Text = Str(a)
Text2.Text = Str(ab(3, 3))
End Sub运行显示:找不到Dll入口点
应该怎么解决呀?麻烦高手大师们不吝赐教!!