Page 1 sur 1
[R] Problème pour sortir d'une boucle
Posté : lun. 30 nov. 2009 22:47
par jesusip200
Bonjours, j'ai un petit problème dans cette partit du script :
Code : Tout sélectionner
While 1
if $temps + 125 = @Hour*60 + @MIN then
$temps = @Hour*60 + @MIN
target()
endif
sleep(30000)
WEnd
Une foi le script commencer il est impossible de l'arrêter même si j'appuie sur le X de la fenêtre.
Si quelqu'un c'est la commande a rajouter SVP cars impossible de trouver.
Re: [..] Problème pour sortir d'une boucle
Posté : mar. 01 déc. 2009 00:00
par matwachich
Le truc, c'est que t'as pas fais la gestion des évènements de ta GUI, surtout l'evenement GUI_EVENT_CLOSE
tu pourait faire ca: (pour ne plus l'oublié, créer tes GUI avec KODA, il met la gestion de la fermeture de la fenetre automatiquement dans la boucle)
Code : Tout sélectionner
While 1
$event = GUIGetMsg()
Switch $event
Case $GUI_EVENT_CLOSE
Exit(0)
EndSwitch
if $temps + 125 = @Hour*60 + @MIN then
$temps = @Hour*60 + @MIN
target()
endif
sleep(30000)
WEnd
mais ton sleep de 30sec ne le permet pas (car l'evenement de fermeture sera testé que toutes les 30sec!!!)
Alors, fais ca:
Code : Tout sélectionner
Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_quiter")
While 1
if $temps + 125 = @Hour*60 + @MIN then
$temps = @Hour*60 + @MIN
target()
endif
sleep(30000)
WEnd
Func _quiter()
Exit 0
EndFunc
Re: [..] Problème pour sortir d'une boucle
Posté : mar. 01 déc. 2009 13:43
par jesusip200
Ok merci beaucoup pour ta réponse.