[R] Sortir fonction infinie en cas action commencer 1 autre

[plop22]

bonjour!

voilà je bloque,

Dans mon script j'ai une fonction A qui commence quand on lance le script, elle est "infinie" car tant qu'un évènement spécial ne se produit pas pas, elle continue de tourner en "monopolisant" le programme.

Mais voilà que je voudrais lancer une fonction B en cas d'appui sur un bouton; il faut donc "éteindre" la A et lancer la B

La structure de mon code ressemble à ceci:

Code : Tout sélectionner

la gui etc blabablabala ..

while 1 
switch $nmsg  

case truc

case bidule

case le bouton qui m’intéresse 

On lance la fonction B

endswitch



la fonction A se lance .......



 

J'ai passé plusieurs heures à essayer de trouver, j'ai fais pleins de systèmes qui modifient une variable et après on test sa valeur et selon celle ci on fait telle ou telle chose, enfin j'ai vraiment fais le tour de mes (humbles) connaissances en autoit, et la j'en peux plus!

donc je remercie chaleureusement tous ceux qui auront la gentillesse de m'aider!

[matwachich]

HotKeySet

[plop22]

heu, je vois pas bien pourquoi, vu qu'il faut cliquer sur un bouton de la gui pour déclencher B ()

(je pense que tu as compris "touche" au lieu de "bouton")

[PandiPanda]

quelque chose à l'arrache comme ceci?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)
Global $Button_1="", $Button_2="", $msg, $gui
AdlibRegister("verif",50)
Example()

Func Example()
    $gui = GUICreate("My GUI Button") ; will create a dialog box that when displayed is centered

    Opt("GUICoordMode", 2)
    $Button_1 = GUICtrlCreateButton("Test1", 10, 30, 100)
    $Button_2 = GUICtrlCreateButton("Test2", 0, -1)

    GUISetState()      ; will display an  dialog box with 2 button

    ; Run the GUI until the dialog is closed
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
                While 1
                    Sleep(50)
                    ; tourne en boucle
                WEnd
            Case $msg = $Button_2
                MsgBox(0, 'Testing', 'Button 2 was pressed')    ; Will demonstrate Button 2 being pressed
        EndSelect
    WEnd
EndFunc   ;==>Example

Func verif()
    $msg = GUIGetMsg()
    If $msg = $Button_2 Then
        MsgBox(0, 'Testing', 'Button 2 was pressed')
    ElseIf($msg = $GUI_EVENT_CLOSE) Then
        Exit
    EndIf
EndFunc

[plop22]

pardonne moi, mais je ne comprends pas vraiment ton code (l'aide sur adlib n'est pas très explicite)

[mikell]

http://www.autoitscript.com/wiki/Interr ... g_function

[plop22]

ok, mais du coup comment faire pour que

quand A s’arrête, on puisse lancer B directement et ne pas recommencer A

?

[mikell]

Comme ça, pour reprendre l'exemple du Panda

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

Global $Button_1="", $Button_2="", $msg, $gui, $stop=0
AdlibRegister("verif",50)

    $gui = GUICreate("My GUI Button") 

    Opt("GUICoordMode", 2)
    $Button_1 = GUICtrlCreateButton("Test1", 10, 30, 100)
    $Button_2 = GUICtrlCreateButton("Test2", 0, -1)
$label = GuiCtrlCreateLabel("", 30, 50, 30, 30)
    GUISetState()     

    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $Button_1
                _run()

            Case $msg = $Button_2
        $stop = 1
                MsgBox(0, 'Testing', 'Button 2 was pressed') 
        EndSelect
    WEnd


Func _run()
Do
    If $stop = 1 Then Exitloop
    $nb = GuiCtrlRead($label)
    GuiCtrlSetData($label, $nb+1)
     Sleep(500)
Until $stop = 1
GuiCtrlSetData($label, "")
EndFunc


Func verif()
    $msg = GUIGetMsg()
    If $msg = $Button_2 Then
        $stop = 1
       MsgBox(0, 'Testing', 'Button 2 was pressed')
    ElseIf($msg = $GUI_EVENT_CLOSE) Then
        Exit
    EndIf
EndFunc

Panda il est vraiment à l'arrache ton script (perso j'aurais mis le adlib sur la fonction A )

[plop22]

merci pour vos réponses, mais j'ai finalement trouvé une solution j'appelle la fonction B dans la A ( je remet le switch nmsg dans ma fonction A et du coup je peut appeler B avec le case bouton)

et comme c'est des fonction tcp je fais un tcpshutdown et un tcpstart

cependant vos réponses n'auront pas étés inutiles puisque je pense m'en servir pour autre chose


merci beaucoup! résolu.

[TommyDDR]

"Sortir" "infinie" -> ExitLoop

[GhostLine]

Tu m'as pris de vitesse

[plop22]

le problème étant que la fonction n'est pas une boucle !!


(c'est un tcpaccept qui dure jusqu’à ce qu'un client se connecte)

[TommyDDR]

c'est un tcpaccept qui dure jusqu’à ce qu'un client se connecte

Et vous le faites "durer" de quelle manière ?

[Myki]

Et vous le faites "durer" de quelle manière ?

Et bien tu mets le TCPAccept dans une boucle.
La condition de sortie est la socket renvoyée par le TCPAccept (>0).

[plop22]

nan il a raison il faut une boucle >.<

un truc genre do until $socket <> -1


excuse moi

[blacksoul305]

Oh Au pire voilà un code commenté :

► Afficher le texte

Code : Tout sélectionner

$socket = TCPListen($ip,$port)
If $socket = -1 Then ; si la création du socket a échoué on quittte
     MsgBox(16,"","La création du socket a échoué")
     Exit
EndIf

Do
     $accept = TCPAccept($socket) ; on accepte une connexion
     Sleep(10)
Until $accept <> -1 ; tant que l'on en a pas reçu une

[plop22]

oui c'est à peu près ça que j'ai fait! :p