bengalliboy
MIS
Please some one help me: I made a fortran dll and am trying to call it from a VB (6) program and am getting the following Runtime error (455): Can't Find DLL entry point DLL_OUT in C;\test\file.dll
What am I missing>?
Here is the code:
Private Sub Command1_Click()
num1 = InputBox("Please enter number 1:")
num2 = InputBox("Please enter number 2:")
'Static STR_IN As String * 10, STR_OUT As String * 20
'Rem Pass lengths of string arguments
Call total1(num1, num2, total)
TextBox1.Text = total
End Sub
Declare Sub total1 Lib "C:\TryVB\myDLL\Debug\myDLL.dll" (ByRef num1 As Integer, ByRef num2 As Integer, ByRef total As Integer)
fortran:
subroutine total1(num1,num2,total)
integer num1,num2,total
total = num1 + num2
write(*,*)total
end
What am I missing>?
Here is the code:
Private Sub Command1_Click()
num1 = InputBox("Please enter number 1:")
num2 = InputBox("Please enter number 2:")
'Static STR_IN As String * 10, STR_OUT As String * 20
'Rem Pass lengths of string arguments
Call total1(num1, num2, total)
TextBox1.Text = total
End Sub
Declare Sub total1 Lib "C:\TryVB\myDLL\Debug\myDLL.dll" (ByRef num1 As Integer, ByRef num2 As Integer, ByRef total As Integer)
fortran:
subroutine total1(num1,num2,total)
integer num1,num2,total
total = num1 + num2
write(*,*)total
end