Piloter un software via une interface graphique réalisée en VB

Version imprimable

Voir 40 message(s) de cette discussion en une page

05/04/2013, 09h29
antoinegg

Bonjour, et désolé de ma longue absence, j'ai eu pas mal de cours et j'ai pas vraiment eu le temps de m'occuper de tout ça.

Bref, après quelques recherches, je me suis apperçu que uniflash n'est pas interfaçable par du VB.
Néanmoins, il est utilisable en command line: ca nous permet de générer des fichiers ".bat". Ces fichiers intègrent toutes les configurations requises, ainsi que le chemin et le nom du programme à flasher dans le micro.
Lorsque je double-clic dessus, il fait toutes les opérations nécéssaires.

La question que je vous pose maintenant, c'est de ré-utiliser l'interface que j'ai faite précédemment afin de lancer le fichier ".bat" en cliquant sur le bouton MAJ de l'interface.

Merci de votre aide...
10/04/2013, 09h17
antoinegg

Bonjour à tous,

Nouvelle évolution de mon projet.

Plutôt que de lancer le .bat avec mon soft vb, j'ai choisi une autre solution:
Dans un 1er temps, mon soft va ouvrir une fenêtre de commande;
Dans un 2nd temps, je vais mettre les fonctions que je souhaite utiliser dans la fenêtre de commande toujours via mon soft VB.

Au début, j'ai commencé par faire un shell:
Shell("C:\Windows\System32\cmd.exe /C cd " & TXT_Adresse.Text & "/cmdLine&&uniflash -program ../programs/" & TXT_Prog.Text & "")

Permet de définir le chemin d'accès aux fonctions d'uniflash

Appel à la fonction 'Program' d'uniflash

Cette solution fonctionne, seulement je voudrai que mon soft vb s'arrete tant que la fenêtre de commande ne s'est pas fermée. J'ai donc pensé à utiliser un processus:

'Instance de la classe Process
Dim ShellWait As New System.Diagnostics.Process()
'Nom de l'executable à lancer
ShellWait.StartInfo.FileName = "cmd.exe "
'Arguments à passer à l'éxécutable à lancer
ShellWait.StartInfo.Arguments = "cd " & TXT_Adresse.Text & "/cmdLine&&uniflash -ccxml ../configs/MSP430F5338.ccxml -program ../programs/" & TXT_Prog.Text & ""
'Démarrage du processus
ShellWait.Start()
'On libère les ressources dont on a plus besoin.
ShellWait.Close()

Voila, seulement, ça ne marche pas.
Je ne suis pas vraiment a l'aise avec les processus, et je n'arrive pas à trouver de tuto qui pourrai m'expliquer leur fonctionnement.
Pourriez-vous m'aiguiller dans une direction svp??

D'avance, merci à tous
10/04/2013, 11h38
Graffito
Citation:

je voudrai que mon soft vb s'arrete tant que la fenêtre de commande ne s'est pas fermée.

Comme ceci :
Code:

1 2 3 ShellWait.Start() ShellWait.WaitForExit()
10/04/2013, 13h12
antoinegg

Bonjour, et merci de ta réponse,

Il est probable que ça marche, seulement, je ne peux pas le tester. Le process ne rentre pas les fonctions. Pensez-vous à un problème de syntaxe?

Comme je l'ai dit deux messages plus, haut lorsque j'ai essayé de faire mon application avec un Shell, il définit le bon chemin, ainsi que le bon programme à implanter. Le problème, c'est qu'il ne le fait pas dans le process.

Je pense que le "ShellWait.StartInfo.Arguments" n'est pas bon.
D'abord, il ouvre bien la fenêtre de commande, et la fonction 'cd' n'est pas prise en compte étant donné qu'il me laisse dans le répertoire d'enregistrement de mon projet vb.
Puis la fenêtre se ferme étant donné qu'il ne comprend pas ce qu'il y a dans les arguments...

J'ai cherché, mais je n'ai pas trouvé à quel endroit je dois mettre les fonctions qui doivent apparaître dans la fenêtre de commande.

Merci encore de l'aide que vous pourrez m'apporter.

Cordialement
10/04/2013, 13h23
antoinegg
Citation:
Envoyé par Graffito

Comme ceci :

Code:

1 2 3 ShellWait.Start() ShellWait.WaitForExit()
C'est bon je l'ai testé, c'est exactement cette fonction qu'il me fallait.
Merci beaucoup.
Par contre, ce que j'ai expliqué dans le message précédent ne fonctionne toujours pas...
10/04/2013, 14h16
Graffito

Enlève "cd " & TXT_Adresse.Text de la commande et mets le nom de répertoire dans StartInfo.WorkingDirectory.
10/04/2013, 16h09
antoinegg

Parfait, c'est exactement ce que je cherchais.
Merci beaucoup.

Par contre, à la base, j'aurai voulu que le repertoire dans ce registre s'inscrive sans l'aide de l'utilisateur en recopiant l'adresse déjà écrite dans une barre de texte, et j'ai écrit ça :
ShellWait.StartInfo.WorkingDirectory = "C:\" & TXT_Adresse.Text & "cmdLine"

Le problème, c'est qu'il ne le comprend pas. Est-ce que c'est impossible de lui rentrer une valeur de ce type la (il faut obligatoirement lui copier l'adresse du répertoire à la main?)??

Merci...

le & "cmdLine" est en trop pour définir le répertoire.

Et évidement garder :
Code:

1 2 ShellWait.StartInfo.Arguments = "/cmdLine&&uniflash -ccxml ../configs/MSP430F5338.ccxml -program ../programs/" & TXT_Prog.Text & ""

11/04/2013, 09h07
antoinegg

Bonjour,
Merci pour votre réponse,
Malheureusement, ça ne marche toujours pas.
Je pense avoir essayé quasiment toutes les possibilités en enlevant le "cmdline", le " & cmdline", et il me dit que le répertoire dans lequel je suis est "c:/Windows", alors que le "TXT_Adresse.Text" contient ceci :

c:\ti\uniflashv2\ccs_base\scripting\examples\uniflash\

sauriez-vous m'aider?

Merci beaucoup

Code:

1
2
3
4
5
6
7
 
ShellWait.StartInfo.WorkingDir = "xxxxxxxxxxxx" 
ShellWait.StartInfo.FileName = "xxxxxxxxxxxxxxx.exe"
ShellWait.StartInfo.Arguments = "-program xxxxxxxxxxxxxxxxxx" 
ShellWait.StartInfo.UseShellExecute = false;
ShellWait.Start()
...

Bonjour,

Désolé, mais ça ne fonctionne toujours pas...
J'ai l'impression d'avoir utilisé toutes les ressources!
Je vous joint mon code quand même, si jamais vous avez des idées, n'hésitez pas!!
Code:

1 2 3 4 5 6 7 8 ShellWait.StartInfo.WorkingDirectory = "C:\" & TXT_Adresse.Text & " ShellWait.StartInfo.FileName = "cmd.exe " ShellWait.StartInfo.Arguments = "/K uniflash -ccxml ../configs/MSP430F5338.ccxml -program ../programs/" & TXT_Prog.Text & "" ShellWait.StartInfo.UseShellExecute = False ShellWait.Start() ShellWait.WaitForExit() ....
Merci beaucoup de votre aide, vous m'avez déjà sauvé la vie...

12/04/2013, 10h04
Graffito

Dans les arguments il y a des slash dans les noms de fichiers au lieu de backslash. Est-ce intentionnel ou une erreur de frappe ?

il y a &" à la fin du workibg directory. Pourquoi ?
12/04/2013, 10h19
antoinegg

Bonjour,

En fait, lorsque que j'écris

Code:

ShellWait.StartInfo.WorkingDirectory = "C:\" & TXT_Adresse.Text & "

Je concatène le contenu de la variable "TXT_Adresse.Text" (à savoir un chemin d'accès) au disque C:\.

Concernant les slash et backslash, dans les arguments, je l'ai écris comme ça car uniflash l'a défini ainsi dans sa doc. (Et je suis sur que je ça fonctionne, puisque quand je teste le code avec l'adresse écrite en dur dans le workingDirectory, tout fonctionne comme il devrait).
C'est pour ça que je suis quasiment sur de moi quand je dis que le problème vient du working directory.

Merci de votre aide
12/04/2013, 16h37
Graffito
Pour contouner le problème, tu peux créer dynamiquement un fichier RunUniflash.bat contenant les lignes suivantes :

Citation:

CD C:\...
UniFlash ...
pause
exit

Lancer manuellement le .bat pour tester si ça fonctionne bien.

Ensuite, dans ton code VB.Net, après avoir créé le .bat (sans l'instruction pause) :
Code:

1 2 3 ShellWait = Process.Start('C:\Mydir\RunUniflash.bat') ; ShellWait.WaitForExit()

Voir 40 message(s) de cette discussion en une page