Discussion :

[brahim20]

salut
comment je peux lire une *.dll construite avec le Compaq Visual Fortran par vb.net
merci d'avance

[brahim20]

voici un exemple :
1)écrire une dll avec compaq visual fortran, pour cela (Projects : Fortran Dynamic Link Library ; Files : Fortran Free Format Source File)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
SUBROUTINE SUB_MATRIX_A(a,b,c)
 
 
                IMPLICIT NONE
 
                INTEGER a,b,c
 
                a=b+c
 
END SUBROUTINE

Après cliquer "Compile" et "Build" le CVF fournis dans le classeur "Debug" les fichiers :

(a) ProjSolutionA.dll ;

(b) ProjSolutionA.exp ;

(c) ProjSolutionA.lib ;

(d) DF60.PDB ;

(e) FileSolutionA.obj ;

(f) ProjSolutionA.pdb.

Emmené la *.dll qui s'appel ProjSolutionA.dll dans le dossier où ce trouve ton .exe généralement (\bin)

2)code en vb.net

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Friend Class Form1
	Inherits System.Windows.Forms.Form
    Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        Dim b, a, cf As Integer
        b = Val(Text1.Text)
        cf = Val(Text2.Text)
        Call SUB_MATRIX_A(a, b, cf)
        Text3.Text = a
    End Sub

3)Creer un module avec vb.net "module1" et mettre ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Module Module1
 
    Declare Sub SUB_MATRIX_A Lib "ProjSolutionA.dll" (ByRef a As Integer, ByRef b As Integer, ByRef c As Integer)
End Module

et c'est tout

un grand merci a M.LFEMEDM