[R] Une boucle While qui ne bloque pas le code entier ?

[Yarillo]

Bonjour/bonsoir.
Je commence à ne plus compter le nombre de fois ou je dois vous appeler à l'aide.
J'ai tenté quelques recherches avant de demander ici, mais ce fut pas très fructueux (Je savais pas quoi chercher à vrai dire).

Le titre est explicite mais il ne correspond pas exactement à mon problème, je m'explique.
Je sais que les boucles While & Until sont dangereuses parce qu'elles ont tendance à bloquer le code si elles sont trop... rapides ?
Bref, j'ai essayé de faire ce code :

Code : Tout sélectionner

Func Main()
    While 1
        Sleep(10000)
        <Choses à faire>
    WEnd
EndFunc

 

Je pensais que la fonction devrait paralyser le code un demi gogolplexe de seconde toutes les 10000millisecondes, mais le Sleep() semble s'appliquer sur tout le script, (donc sur le GUI :/) au lieu de comme je l'aurais voulu juste sur la fonction.
Malheureusement l'ordinateur fait ce qu'on lui dit de faire, et pas ce qu'on veut faire donc... tant que je saurais pas lui signifier, je reste jambon.

Quelqu'un aurait une solution à ce problème ?

[Strofe]

Bonsoir

Je sais que les boucles While & Until sont dangereuses parce qu'elles ont tendance à bloquer le code si elles sont trop... rapides ?

Ah bon ??

Je ne comprends pas votre demande !!!

En quoi la boucle bloque-t-elle le code ???

[Yarillo]

Je me doutais que cette phrase allait poser soucis, je savais pas comment la formuler.

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 192, 96, 225, 73, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$TestValue = 0

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

    EndSwitch
WEnd

Func Main()
    While 1
        $TestValue = $TestValue + 1
    WEnd
EndFunc
 

Voilà l'exemple typique, une interface avec un bouton, quand on appuie sur le bouton ça appelle une boucle While qui va sans cesse ajouter 1 à une variable.
Une fois qu'on aura appuyé sur le bouton, il sera totalement impossible de faire quoi que ce soit sur le GUI.

[Strofe]

Bonsoir

Normal dans la fonction vous faîtes une boucle infinie.

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
global  $combien = 0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 193, 125)
$Button1 = GUICtrlCreateButton("Button1", 192, 96, 225, 73, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$TestValue = 0
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Main()
            GUICtrlSetData ($Button1, $combien)
    EndSwitch
WEnd

Func Main()
    $combien +=2   
EndFunc
 

[Yarillo]

Le soucis, c'est que certains scripts peuvent demander l'utilisation d'une boucle de ce type, je m'explique encore plus en détail.

Je veux faire un petit programme qui,
Quand on appuie sur un bouton de lancement, enregistre le code d'une page web , le stocke, attend quelques secondes puis actualise et reprend le code pour vérifier si quelque-chose a changé depuis.

Si quelque-chose a changé ça ouvre une MsgBox
Si rien n'a changé, ça recommence.

Et ce jusqu'à ce qu'on ait cliqué une seconde fois sur le bouton.

C'est le "Jusqu'à ce qu'on ait cliqué une seconde fois sur le bouton" qui pose problème, vu que dès que la boucle est lancée, l'intégralité du script est endormi.

[Tlem]

Regardez du coté de AdlibRegister.

[Strofe]

Bonsoir

Je pensais à cela : _Timer_SetTimer

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <Timers.au3>

Dim $timer
Global $lbl1

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 193, 125)
$Button1 = GUICtrlCreateButton("Inactif", 192, 96, 225, 73, 0)
$lbl1 = GUICtrlCreateLabel("__:__:__:__",100,10,200,15)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            If GUICtrlRead($Button1)="Inactif" then 
                    GUICtrlSetData ($Button1, "Actif")
                    $timer = _Timer_SetTimer($Form1, 3000, "_CtrlEcart") 
                    If @error Or $timer = 0 Then ContinueLoop
                Else    
                    _Timer_KillTimer($Form1,$timer)
                    GUICtrlSetData ($Button1, "InActif")
            EndIf 
                
    EndSwitch
WEnd

Func _CtrlEcart($Form1, $Msg, $iIDTimer, $dwTime)
    #forceref $Form1, $Msg, $iIDTimer, $dwTime
;~      Controle écart
;~      si écart affiche message
    beep(500,500)
    GUICtrlSetData($lbl1,@hour & ":" & @min & ":" & @SEC & ":" & @MSEC)
EndFunc
 

A+

[Yarillo]

@Tlem
Excellent, ça fonctionne à merveille.

@Strofe
Excellent aussi, je n'ai pas testé mais ça me sera super utile.

Vous avez décidément réponse à tout. Merci à vous deux.

[jchd]

Il y a une autre possibilité : AutoItSetOption("GUIOnEventMode", 1)
On n'a alors plus besoin d'une boucle pour gérer les messages du GUI.