Discussion :

[janviech]

Bonjour, je dois créer une fenêtre Windows appelant un exécutable; le problème c'est que ça ne fonctionne pas.
J'ai trouvé l'instruction systemqq mais le souci et qu'un fichier se trouvant dans le programme original n'est pas ouvert (ce fichier est ne biblio placé dans le répertoire du programme). Faut-il que je change de répertoire, que je me mette en current directory dans les options du projet ???
Mon code est:

Code :

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

1
2
3
4
5
	subroutine main
	use dflib
	logical res
	res= systemqq('c:\multi500\multi500')
	end subroutine

sachant que multi500.exe est appelé.
Sinon, j'ai bien essayé avec createprocess mais c'est du C et je ne sais pas comment l'intégrer à fortran avec mon compilateur (Compaq Visual Fortran)

Merci

[caccio]

Bonjour,

Pour simplifier, j'évite de transférer des données entre le VB et le fortran.

Le code VB (6.0)
Il est utilisé pour gérer les données et constituer un fichier de commmande qui contient toutes les valeurs nécessaires, puis il lance le calcul en fortran.

Dans le code VB, après avoir complété et fermé le fichier de commande (ex :liste.dat)

Code :

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

1
2
3
4
5
    Open CheminApplication & "\liste.dat" For Output As 99
    Print #99, ; x1
    Print #99, ; x2
 
   close 99

je lance l'exécutable fortran (ex : test.exe) avec la syntaxe suivante

Code :

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

1
2
3
4
5
6
7
8
    nom = "test.exe"
    If Dir$(nom) = "" Then
        strMessage = "Impossible de trouver l'executable Calcul"
        lngStyle = 0 + 48
        intReponse = MsgBox(strMessage, lngStyle, "lancement du calcul")
        End
    End If
    X = Shell(nom)

Le code fortran
Il calcule en batch, donc toutes les données sont lues dans le fichier qui est créé par le code VB. Avant d'utiliser les données de liste.dat, le programme doit contenir une séquence du type suivant :

Code :

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

1
2
3
4
5
6
open(10,file='CheminApplication\liste.dat')
read(10,*) x1
read(10,*) x2
read(10,*) x3
; ; ;
close(10)

suivent les lignes de programmation calcul