[R] Aquisition port COM: Comment sortir d'une boucle while

[asheen]

Bonjour à toutes et tous,

Je développe une simple application qui permets de récupérer des données transmises vis le port COM / RS232. J'utilise pour cela l'UDF _CommMG.

J'ai différents boutons sur mon application:
- Bouton de connexion au port COM (opérationnelle)
- Bouton de lancement d'acquisition : Bouton_START (opérationnelle)
- Bouton de fin d'acquisition: Bouton_STOP (problème !!)

J'affiche les données dans un champs "Edit1". Jusque là tout va bien .La phase d'initialisation est ok, les données sont transmises à l'edit1 et les valeurs s'affichent ligne par ligne.

J'ai une structure de programme de type "switch case" en fonction des choix de l'utilisateur. Ci dessous le "case" pour le bouton START ainsi que la fonction associée:

► Afficher le texte

Code : Tout sélectionner

local $EndChar=@CR
local $maxlen=20
local $maxtime=20

Case $ButtonSTART
    while 1
          $data=read_port_com() ;récuperation des données
               GUICtrlSetData($edit1,$data,true); affichage des données en temps réelles dans l'edit1
    wend

func read_port_com()
return(_CommGetline($EndChar,$maxlen, $maxtime) )
sleep(50)
EndFunc
 

Mon problème réside dans le fait que je ne sais pas comment sortir de la boucle while/wend quand l'utilisateur appuie sur le bouton stop ; J 'ai tenté divers algo. à base de if/then , do/until ...etc .. sans résultats. Le programme boucle à l’infinie sur l'acquisition des données.

Est ce que quelqu’un pourrait me proposer une structure de code permettant de tester l'appuie sur le bouton stop dans la boucle while/wend. Si l'utilisateur appuie sur ce bouton stop pendant l’acquisition alors le processus d'acquisition est stoppé.

Je vous remercie par avance !!!

Cordialement,

[mikell]

Faut passer en mode évènementiel (ou GUIRegisterMsg($WM_COMMAND, ...) éventuellement)

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
Opt("GuiOnEventMode", 1)
Global $stop = 0

GUICreate("My GUI") 
$label = GUICtrlCreateLabel("0", 10, 30, 50, 20)
$btn = GUICtrlCreateButton("stop", 10, 50, 50, 20)
GUICtrlSetOnEvent(-1, "_stop")
GUISetState()  

While not $stop
   Sleep(300)
   GuiCtrlSetData($label, GuiCtrlRead($label)+1)
Wend
Msgbox(0,"", "stopped")

Func _stop()
  $stop = 1
EndFunc
 

[asheen]

Bonsoir,

Merci Mikell de ta réactivité et d'avoir pris le temps de regarder mon code de plus près.

J 'ai tenté de coder en utilisant le mode événementiel (je découvre cette méthode). Cependant quand je tente d'intégrer ton idée dans mon programme, la fonction switch / case et en particulier "GUIGetMsg()" ne fonctionne plus en faisant des recherches j'ai découvert que le mode événementiel: Opt("GuiOnEventMode", 1 n 'est pas" compatible" avec GuiGetMsg(): c 'est soit lun , soit l'autre en somme... Voici le lien vers la source en question http://www.autoitscript.com/forum/topic ... entmode-1/.

Voici mon script au complet qui donnera une meilleur idée de ce que je veux faire.

► Afficher le texte

Code : Tout sélectionner

;================================================
;           Paramètres de connection COM
;================================================
global $iPort=1
global $sErr="error"
global $iBaud=9600
global $iBits=8
global $iParity=0
global $iStop=1
global $iFlow=1
global $RTSMode=0
global $DTRMode=0
_CommSetport($iPort,$sErr,$iBaud,$iBits,$iparity,$iStop,$iFlow,$RTSMode,$DTRMode)



;================================================
;   Paramètres de transferts des données COM
;================================================
Global $endchar =@CR
global $maxlen =1000
global $maxtime=1000
global $i=false



;================================================
;   Variables globales diverse
;================================================
$TempFile = FileOpen("Tempdyn.txt",2)
$ImgLoad = "red.jpg"
$idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)



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

            case $ButtonCONNECTION
                $port_connection=_commPortConnection()
                If @error Then
                MsgBox(16, "Error " & @error, " COM port non trouvé.")
                Else
                    $ImgLoad = "green.jpg"
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                endif

            case $ButtonDISCONNECTION
                global $port_deconnection=_commCloseport()
                If @error Then
                MsgBox(16, "Error " & @error, " COM port non trouvé.")
                Else
                    $ImgLoad = "red.jpg"
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                endif

            Case $ButtonSTART
                ;========================activation mode evenementielle=================
                ;Opt("GuiOnEventMode", 0)
                ;Global $stop = 0
                ;GUICtrlSetOnEvent(-1, "_stop")
                ;GUISetState()
                ;========================================================================
                ;GUISetState(1, $ButtonSTOP)
                while not $stop
                        $data=read_port_com()
                        GUICtrlSetData($edit1,@CRLF & $data,true)
                wend
                    MsgBox($MB_SYSTEMMODAL, "", "sortie boucle" & $i, 0, $form1)

                ;========================activation mode evenementielle=================
                ;Opt("GuiOnEventMode", 0)
                ;========================================================================

        Case $ButtonSTOP
                ;stop_reading()
                ;$i = True
                If @error Then SetError(@error, @ScriptLineNumber)
                MsgBox(64, "fermeture du port",'port fermé')

        Case $ButtonCLOSEPORT
                ;stop_reading()
                $i = True
                $closeport=_commCloseport()
                If @error Then SetError(@error, @ScriptLineNumber)
                MsgBox(64, "fermeture du port",'port fermé')

            Case $ButtonEXPORT
                                $contenu =GUICtrlRead($Edit1)
                If $contenu <> '' Then
                FileWrite($TempFile, $contenu & @CRLF)
                endif
                    If @error Then SetError(@error, @ScriptLineNumber)

            Case $idlistcommenu
                $listsport=_commlistports()
                MsgBox($listsport, "liste des ports disponibles", $listsport)
                If @error Then SetError(@error, @ScriptLineNumber)

            Case $idlistversion
                $listversion=_commgetversion()
                MsgBox($listversion, "Version", $listversion)
                If @error Then SetError(@error, @ScriptLineNumber)


            case $idexitmenu
                exit

            Case $iaboutmenu
                MsgBox($MB_SYSTEMMODAL,"A propos ...")

        EndSwitch
 WEnd

Func read_port_com()
return(_CommGetline($EndChar,$maxlen, $maxtime) )
sleep(20)
EndFunc



;========================essai fonction sortie boucle=================
Func _IsChecked($idControlID)
;MsgBox($MB_SYSTEMMODAL, "", "entree function" & $i, 0, $form1)
    $a = BitAND(GUICtrlRead($idControlID), $ButtonSTOP) = $GUI_CHECKED
     if $a =1 Then
         MsgBox($MB_SYSTEMMODAL, "", "function 1" & $a, 0, $form1)
         return (1)
    else
        return (0)
        MsgBox($MB_SYSTEMMODAL, "", "function 0" & $a, 0, $form1)
    endif

    ;MsgBox($MB_SYSTEMMODAL, "", "sortie func" & $i, 0, $form1)
EndFunc   ;==>_IsChecked
;========================================================================

Func _stop()
  $stop = 1
EndFunc
 

Peut etre faut-il que je reprenne toute la structure de mon programme. J 'ai tenté d'activer, puis de désactiver le mode événementiel dans la boucle while d'acquisition, sans résultats (un peu trop simple sans doute ^^). Je pense que l'on peut sortir de la boucle while dans le "Case $ButtonSTART " sans utiliser le mode évènementiel...

Votre aide me serai d'un grand secours!

Merci d'avance

[orax]

Pour éviter de reprendre toute la structure, une solution est de changer le Switch en Select pour avoir quelque chose comme ça :

► Afficher le texte

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_events")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_events")
GUISetOnEvent($GUI_EVENT_RESTORE, "_events")

;===========================================
;            MAIN
;===========================================
While 1
    Sleep(1000)
WEnd


Func _events()
    Select
        Case @GUI_CtrlId =  $GUI_EVENT_CLOSE
            Exit

        Case @GUI_CtrlId =  $ButtonCONNECTION
            $port_connection = _commPortConnection()
            If @error Then
                MsgBox(16, "Error " & @error, " COM port non trouvé.")
            Else
                $ImgLoad = "green.jpg"
                $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
            EndIf

        Case @GUI_CtrlId =  $ButtonDISCONNECTION
            Global $port_deconnection = _commCloseport()
            If @error Then
                MsgBox(16, "Error " & @error, " COM port non trouvé.")
            Else
                $ImgLoad = "red.jpg"
                $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
            EndIf

        Case @GUI_CtrlId =  $ButtonSTART
            ;========================activation mode evenementielle=================
            ;Opt("GuiOnEventMode", 0)
            ;Global $stop = 0
            ;GUICtrlSetOnEvent(-1, "_stop")
            ;GUISetState()
            ;========================================================================
            ;GUISetState(1, $ButtonSTOP)
            While Not $stop
                $data = read_port_com()
                GUICtrlSetData($Edit1, @CRLF & $data, True)
            WEnd
            MsgBox($MB_SYSTEMMODAL, "", "sortie boucle" & $i, 0, $Form1)

            ;========================activation mode evenementielle=================
            ;Opt("GuiOnEventMode", 0)
            ;========================================================================

        Case @GUI_CtrlId =  $ButtonSTOP
            ;stop_reading()
            ;$i = True
            If @error Then SetError(@error, @ScriptLineNumber)
            MsgBox(64, "fermeture du port", 'port fermé')

        Case @GUI_CtrlId =  $ButtonCLOSEPORT
            ;stop_reading()
            $i = True
            $closeport = _commCloseport()
            If @error Then SetError(@error, @ScriptLineNumber)
            MsgBox(64, "fermeture du port", 'port fermé')

        Case @GUI_CtrlId =  $ButtonEXPORT
            $contenu = GUICtrlRead($Edit1)
            If $contenu <> '' Then
                FileWrite($TempFile, $contenu & @CRLF)
            EndIf
            If @error Then SetError(@error, @ScriptLineNumber)

        Case @GUI_CtrlId =  $idlistcommenu
            $listsport = _commlistports()
            MsgBox($listsport, "liste des ports disponibles", $listsport)
            If @error Then SetError(@error, @ScriptLineNumber)

        Case @GUI_CtrlId =  $idlistversion
            $listversion = _commgetversion()
            MsgBox($listversion, "Version", $listversion)
            If @error Then SetError(@error, @ScriptLineNumber)


        Case @GUI_CtrlId =  $idexitmenu
            Exit

        Case @GUI_CtrlId =  $iaboutmenu
            MsgBox($MB_SYSTEMMODAL, "A propos ...")

    EndSelect
EndFunc

Ensuite il faudra ajouter GUICtrlSetOnEvent pour chaque contrôle créé. Par exemple :

Code : Tout sélectionner

Global $ButtonCONNECTION = GUICtrlCreateButton("Connection", 50, 5, 120, 25)
GUICtrlSetOnEvent(-1, "_events")
Global $ButtonDISCONNECTION = GUICtrlCreateButton("Disconnection", 50, 35, 120, 25)
GUICtrlSetOnEvent(-1, "_events")
...

Sinon il y a WM_COMMAND comme évoqué précédemment par le monsieur en vert :

[asheen]

Salut la communauté,

Merci pour vos différents retour: Mikelle , Orax,... Après avoir étudié vos réponses j 'ai réécrit mon code.

Voici la procédure : cliquer sur "connection", puis sur "disconnection" et enfin "Start acquisition" , normalement une succession de 0 doit apparaitre dans l'edit1 (car il n'y a pas de données recu le port COM1)

le code désormais:

► Afficher le texte

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)

;================================================
;           Paramètres de connection COM
;================================================
global $iPort=1
global $sErr="error"
global $iBaud=9600
global $iBits=8
global $iParity=0
global $iStop=1
global $iFlow=1
global $RTSMode=0
global $DTRMode=0

;================================================
;   Paramètres de transferts des données COM
;================================================
Global $endchar =@CR
global $maxlen =1000
global $maxtime=1000

;================================================
;   Variables globales diverse
;================================================
$TempFile = FileOpen("Temp.txt",2)
$ImgLoad = "red.jpg"
$idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
Global $stop = 0

;===========================================
;                   MAIN
;===========================================
While 1
    Sleep(1000)
WEnd

;===========================================
;                   FUNCTIONS
;===========================================
Func _events()
        Select
            Case @GUI_CtrlId = $GUI_EVENT_CLOSE
                MsgBox($MB_SYSTEMMODAL, "Close Pressed", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)
                GUIDelete()
            Exit

            Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
                MsgBox($MB_SYSTEMMODAL, "Window Minimized", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)


            Case @GUI_CtrlId = $GUI_EVENT_RESTORE
                MsgBox($MB_SYSTEMMODAL, "Window Restored", "ID=" & @GUI_CtrlId & " WinHandle=" & @GUI_WinHandle)


            case @GUI_CtrlId = $ButtonCONNECTION
                _CommSetport($iPort,$sErr,$iBaud,$iBits,$iparity,$iStop,$iFlow,$RTSMode,$DTRMode)
                $port_connection=_commPortConnection()
                If @error Then
                MsgBox(16, "Error " & @error, " COM port non trouvé.")
                Else
                    $ImgLoad = "green.jpg"
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                endif

            case @GUI_CtrlId = $ButtonDISCONNECTION
                global $port_deconnection=_commCloseport()
                If @error Then
                MsgBox(16, "Error " & @error, " COM port non trouvé.")
                Else
                    $ImgLoad = "red.jpg"
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                endif

;====================================================================
;===================================START============================
;====================================================================
            Case  @GUI_CtrlId = $ButtonSTART
                    while not $stop
                        $data=read_port_com()
                        GUICtrlSetData($edit1,@CRLF & $data,true)
                        sleep(100)
                    wend
                        MsgBox($MB_SYSTEMMODAL, "", "sortie boucle", 0, $form1)
;====================================================================
;====================================================================
;====================================================================


;~          Case  @GUI_CtrlId =  $ButtonSTOP ;stop_reading()
;~              If @error Then SetError(@error, @ScriptLineNumber)
;~              MsgBox(64, "STOP acquisition",'STOP')

            Case  @GUI_CtrlId = $ButtonCLOSEPORT
                $closeport=_commCloseport()
                $ImgLoad = "red.jpg"
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                    $idPic = GUICtrlCreatePic($ImgLoad, 10, 5, 33, 55)
                If @error Then SetError(@error, @ScriptLineNumber)
                MsgBox(64, "FERMETURE du port",'port fermé')

            Case  @GUI_CtrlId =  $ButtonEXPORT
               $contenu =GUICtrlRead($Edit1)
                If $contenu <> '' Then
                FileWrite($TempFile, $contenu & @CRLF)
                endif
                If @error Then SetError(@error, @ScriptLineNumber)

            Case  @GUI_CtrlId =  $idlistcommenu
                $listsport=_commlistports()
                MsgBox($listsport, "liste des ports disponibles", $listsport)
                If @error Then SetError(@error, @ScriptLineNumber)

            Case  @GUI_CtrlId = $idlistversion
                $listversion=_commgetversion()
                MsgBox($listversion, "Version", $listversion)
                If @error Then SetError(@error, @ScriptLineNumber)

            case  @GUI_CtrlId = $idexitmenu
                exit

            Case  @GUI_CtrlId = $iaboutmenu
                MsgBox($MB_SYSTEMMODAL,"A propos...")

        EndSelect
EndFunc


Func read_port_com()
return(_CommGetline($EndChar,$maxlen, $maxtime) )
sleep(10)
EndFunc


Func _stop()
    Select
        Case  @GUI_CtrlId =  $ButtonSTOP ;stop_reading()
            $stop = 1
            If @error Then SetError(@error, @ScriptLineNumber)
            MsgBox(64, "STOP acquisition",'STOP')

    endselect
EndFunc
 

Mais le problème persiste, le programme ne prend pas en compte l'appui sur le bouton stop lorsqu'il est dans la boucle while du bouton start bien que j'ai implémenté la function "stop" comme proposé par Mikell

La programmation demande de la patience et de la persévérance, ^^ merci d'avance pour vos éclairage, si quelqu'un a une solution...

Merci encore!

[asheen]

Bonjour à toutes et tous !

Après avoir repris mon code , j 'ai pu faire en sorte de "sortir" de la ma boucle while/wend à l'aide de vos précieux conseils. J 'ai utilisé la commande WM_COMMAND pour l'interruption comme proposé par Mikell.

Le sujet peut être notifié comme résolue.

Merci Mikell c 'est nikel ! , merci également Orax !

Longue vie à la communauté !

[Anthony]

Bonjour asheen et à tous,

Je serai intéressé par ton code car jusqu'à maintenant (pas mal de temps) je n'ai pas réussi une seule communication avec mon appareil voir lien...
http://www.autoitscript.fr/forum/viewto ... =3&t=13953
J'ai pourtant fait un grand nombre de recherches mais sans succès je cherche juste un petit code qui fonctionne.

Merci à tous