Comment gérer des options dans une boucle

[Micoute]

Bon dimanche à tous,

pour mon application de sensibilisation du diabète, du fait que j'utilise des options, j'aimerais savoir comment gérer des options dans une boucle.

En fait je voudrais une boucle du genre Repeat Until, mais je ne sais pas quel argument mettre.

[Ar-S]

Le soucis sur ton code est de traiter en temps réel tes options lorsque l'on clique dessus.
Il faut que tu stockes les choix des utilisateurs quand ils cliquent genre sProspect()\age = 57 mais que tu fasses le traitement final lorsque l'utilisateur clique sur valider.

version minimaliste

Code : Tout sélectionner

Global Points.b

If OpenWindow(0, 0, 0, 170, 125, "OptionGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    OptionGadget(0, 30, 20, 160, 20, "J'ai < 20 ans")
    OptionGadget(1, 30, 45, 160, 20, "Entre 20 et 50 ans")
    OptionGadget(2, 30, 70, 160, 20, "+ de 50 ans")
    
    ButtonGadget(3,0,100,200,20,"Valider")
    DisableGadget(3,1)

   Repeat
     Event = WaitWindowEvent()
     
     Select Event
     
       Case #PB_Event_Gadget
         Select EventGadget()
           Case 0 
             Points = 0
             DisableGadget(3,0)
           Case 1
             Points = 5
             DisableGadget(3,0)
           Case 2
             Points = 10
             DisableGadget(3,0)
             
           Case 3 ; valider
             
             MessageRequester("bilant","Score : " + Points,0)
             
         EndSelect
            
     EndSelect
   Until Event = #PB_Event_CloseWindow
 EndIf
 
 
 

[Micoute]

Simple et merveilleux, c'est tout ce qu'il fallait, énorme merci pour cette aide providentielle.

Je pense que je vais faire une procédure pour chaque série de gadget avec une boucle événementielle.