[..] Exécution de plusieurs partie de script parallèlement

[guigui54]

Bonjour à tous !

J'ai décidé après avoir laissé l'Autoit un peu de coté de m'y remettre pour faire un me faire un nouveau programme mais je me suis confronté à un problème que je ne sait plus résoudre
J'ai cherché sur internet, les différentes aides du site et d'autres mais sans succès peut être par le fait que je ne sais pas bien formuler ma recherche ou bien je ne sais quoi mais bon j'en suis arrivé à demander l'aide d'autres.

Mon programme est organisé en plusieurs parties dont certaines avec des GUI. Je voudrais donc savoir si quelqu'un savait comment même si on fait s'afficher une msgbox ou une GUI, faire en sorte que cela ne bloque pas le déroulement du script et que celui-ci continue son fonctionnement normal même si je ne quitte pas la msgbox par exemple. Cela m'aiderait vraiment car la GUI que je lance au départ doit rester jusqu’à la fin de mon script et actuellement après l'avoir lancée le script ne fait plus rien donc c'est assez gênant.

Merci de votre lecture et de votre aide

[Hugues]

Bonjour,

Il ne faut pas utiliser une MsgBox car c'est une fonction bloquante (attente intervention de l'utilisateur) si tu veux que ton script ne soit pas stoppé.

Tu peux utiliser le SplashTextOn() si tu veux.

Essaie ça, c'est peut-être pas ce que tu recherches...

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

global $Button1

_MainGUI()

Func _MainGUI()

    $MainGUI = GUICreate("", 332, 157, 235, 139)
    $Button1 = GUICtrlCreateButton("Button1", 8, 16, 75, 25)
    GUISetState(@SW_SHOW)

EndFunc

Func _MaFonction()
    For $i = 10 To 0 Step -1
        ConsoleWrite($i & @CRLF)
        Sleep(1000)
    Next
EndFunc

While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
            Exit
        Case $Msg = $Button1
            SplashTextOn("", "Tu as cliqué sur le bouton" & @CRLF & "Lancement compteur", 300, 100, -1, -1)
            _MaFonction()
            SplashOff()
    EndSelect
WEnd
 

PS: Rajoutes [..] dans ton entête de sujet -> [..] Exécution de plusieurs partie de script parallèlement

[guigui54]

Je connaissais déjà la fonction SplashTextOn merci quand même mais elle ne convient pas à l'utilisation que je voudrais donner, j'aurai du mettre un exemple pour étayer mes dires, je me suis mal débrouillé. J'ai donc bricolé vite fait un exemple dans lequel d'une part après l'affichage de la GUI (ici fait avec koda pour aller vite) le script ne s'exécutera pas (ici je n'ai pas mis de lien entre la GUI et le script mais dans le mien il y en a un car j'ai mis sur la GUI un compteur pour le temps) et même si je l'exécute indépendamment dès que le compteur tombe à 99, une msgbox apparaît mais tant que je ne l'aie pas quittée, le compteur ne défile plus alors que je le voudrais.

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 212, 159, 192, 124)
$Label1 = GUICtrlCreateLabel("Exemple ", 48, 8, 113, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Valider", 32, 80, 145, 65)
GUISetState(@SW_SHOW)
#EndRegion

Global $Jour

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

Trouvelejour ()

Func Trouvelejour ()
$Jour =  _DateToDayOfWeek ( @YEAR ,  @MON ,  @MDAY )
Determine ()
EndFunc

Func Determine ()
If $Jour = 1 Then $Temp = 3600
If $Jour = 2 Then $Temp = 2000
If $Jour = 3 Then $Temp = 2000
If $Jour = 4 Then $Temp = 2000
If $Jour = 5 Then $Temp = 2000
If $Jour = 6 Then $Temp = 2000
If $Jour = 7 Then $Temp = 3600
Descente ()
EndFunc

Func Descente ()
    $Jour = $Jour - 1
    Sleep (100)
    Sauvetage ()
EndFunc

Func Sauvetage ()
    If $Jour < 100 Then MsgBox (0, "bravo","tu as réussi")
EndFunc

Merci beaucoup de ta réponse très rapide

[Hugues]

Sans être indiscret, il consiste en quoi ton programme pour que je puisse mieux comprendre stp?

Tu veux récupérer le jour de la semaine, mais pour en faire quel traitement?

[Tlem]

Bonsoir guigui54.
Lorsque vous affichez une GUI, celle-ci restera affichée tant que votre script ne se fermera pas et ça c'est le rôle de la boucle infinie While/Wend.

Si vous écrivez du code (en dehors d'une fonction) après cette boucle, il est évident que celui-ci ne s'exécutera pas. Vous devez faire en sorte que le code qui doit être exécuté, le soit avant la boucle, ou dans la boucle. Là comme ca c'est assez difficile de vous aider plus puisque nous ne connaissons rien de votre script. ^^

Concernant la MsgBox, celle-ci est effectivement bloquante si elle est appelé tel quel. Pour faire en sorte quelle ne le soit pas, il faut "l'appeler de l'extérieur" (en créant un nouveau processus), mais il n'y a vraiment aucun intérêt d'afficher une MsgBox ci c'est pour passer outre. Dans ce cas faites des fenêtres filles (mais il faudra une gestion béton des événements GUI).

[mikell]

Voilà un exemple de msgbox perso non-bloquante, mais attention s'il y a lancement de nouvelles fonctions elles seront bloquantes pour les autres fonctions en cours

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Opt("GuiOnEventMode", 1)

Global $stop, $gui, $confirm, $b2

$gui = GUICreate("My GUI", 120, 100, -1, 200) 
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
$label = GUICtrlCreateLabel("", 30, 30, 50, 20)
$btn = GUICtrlCreateButton("stop", 30, 70, 50, 20)
GUICtrlSetOnEvent(-1, "_confirm")
GUISetState()  

For $i = 1 to 1000
  If $stop Then Exitloop
  GuiCtrlSetData($label, $i)
  Sleep(300)
Next
Msgbox(0,"", "stopped !")

Func _stop()
  $stop = 1
EndFunc

Func _confirm()
 $confirm = GUICreate("My box", 170, 70)
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
GUICtrlCreateLabel("voulez-vous vraiment arrêter ?", 10, 10, 150, 20)
$b1 = GUICtrlCreateButton("voui", 30, 40, 50, 20)
GUICtrlSetOnEvent(-1, "_stop")
$b2 = GUICtrlCreateButton("nan", 90, 40, 50, 20)
GUICtrlSetOnEvent(-1, "_close")
GUISetState()  
EndFunc

Func _close()
   If @GUI_WinHandle = $gui Then Exit
   If @GUI_WinHandle = $confirm OR @GUI_CtrlId = $b2 Then GuiDelete($confirm)
EndFunc
 

[jchd]

On peut aussi passer en mode OnEvent pour ne pas bloquer le programme principal, mais bien sûr toute MsgBox est proscrite.

[guigui54]

J'ai vu Hugues que tu vouais connaître l'utilité de mon script, ça ne me dérange pas, je vais vous l'expliquer: je souhaite pouvoir en quelque sorte organiser mon temps suivant un schéma répétitif en fonction du jour de la semaine qu'on est. J'ai pour cela mis une GUI avec un compteur de temps décroissant avec une durée de départ qui dépend de ce même jour qu'il est et je souhaiterai qu'au bout de certaines durées précises une boite de dialogue (je pensais mettre une msgbox) s'affiche pour me dire par exemple "cela fait 30 minutes que tu fais ça ...." mais dans le cas où je ne verrai pas la boite de dialogue je ne voudrait pas que le chronomètre s'arrête, de plus je ne veut pas à devoir lancer manuellement le compte à rebours, c'est pour cela que je souhaite le lancer dès le démarrage de l'ordi (en le plaçant dans le dossier démarrer).
Donc mes deux problèmes sont que le compteur reste à la durée maximum après lancement du programme donc c'est pas super et et même si j'enlève la GUI après que la première msgbox s'allume, le compteur s’arrête.

[mikell]

Si tout ce que tu veux c'est une boite de dialogue d'alerte qui ne bloque pas le reste du script, une petite adaptation de mon code précédent fera l'affaire ^^

[guigui54]

Merci beaucoup mikell pour ton aide j'ai un peu modifié ton code pour l'adapter à mon programme et ca marche, il me manque plus qu'a trouver comment afficher dès le départ ma première GUI avec le compteur décroissant et qu'elle reste en place jusqu’à la fin du déroulement du programme et ce sans bloquer le déroulement de ce dernier.

[sksbir]

Bonjour
Voici quelque chose qui pourrait t'aider : http://www.autoitscript.fr/forum/viewto ... f=6&t=7270