[R] Arbre de choix et boucle for

[Pelagos]

Bonjour,

J'ai un petit problème, je n'arrive pas a faire se que je veux, peut etre pourriez vous m'aider.
L'architecture globale de mon script est simple. C'est une boucle "For...Next" géante, supposée piloter un robot qui prend des photos de fossiles. Avant d'entrer dans la boucle, je defini une variable $Specimen. Elle représente le numero du premier specimen a analyser et s'incremente au fur et a mesure. Cette valeur est transmise au robot en début de boucle qui fera donc son analyse de specimen en specimen.

J'aimerai, si possible, le programmer differement. J'aimerai creer un arbre sur le GUI avec les numeros de specimen, et demander a l'utilisateur de cocher ceux qu'il voudrait analyser. Ca, j'ai reussi a peu près reussi a le faire. Mais ensuite, je voudrais que la boucle "For...Next" ne prennent que les valeurs indiqués par l'utilisateur, et la, je seche.

Pouvais vous me donner un petit coup de main ?
Je crois que j'ai surtout du mal a gerer la creation du GUI...

Merci d'avance

[jbnh]

Salut,

J'ai fais un petit exemple pour toi, j'espère qu'il t'aidera. N'hésite pas si tu as des questions.

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>


GuiCreate("", 350, 260)

$specimen1 = GUICtrlCreateCheckbox("Specimen1", 5, 5, 80, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$specimen2 = GUICtrlCreateCheckbox("Specimen2", 5, 25, 80, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$specimen3 = GUICtrlCreateCheckbox("Specimen3", 5, 45, 80, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$specimen4 = GUICtrlCreateCheckbox("Specimen4", 5, 65, 80, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$specimen5 = GUICtrlCreateCheckbox("Specimen5", 5, 85, 80, 17)
GUICtrlSetState(-1, $GUI_CHECKED)

$verif = GuiCtrlCreateButton("Verification", 150,100,60,30)

GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
             ExitLoop
        Case $msg = $verif
            $nombre = 1 
            For $i = $specimen1 to $specimen5           
                If GUICtrlRead($i) = $GUI_CHECKED then      
                msgbox(0,"Specimen "&$nombre,"Le specimen numéro "&$nombre&" va être photographié")
                ;......................
                ;......................
                ;......................             
                endif   
            $nombre = $nombre+1 
            next
            
    EndSelect            
Wend
 

[Pelagos]

Super. Merci pour la réponse rapide. Je vais potasser ca et je te dis, mais vu d'ici ca a l'air parfait.

[jbnh]

Je suppose que le problème est résolu. Je mets le [R].

[Pelagos]

Oui, oui, pardon. Je bataille toujours dessus, mais oui.
J'ai décidement du mal a gérer le GUI, mais ce que tu m'as donné est exactement ce dont j'ai besoin.

Merci encore.