Page 1 sur 1
Comment gérer des options dans une boucle
Publié : dim. 19/juil./2020 11:02
par 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.
Re: Comment gérer des options dans une boucle
Publié : dim. 19/juil./2020 12:33
par 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
Re: Comment gérer des options dans une boucle
Publié : dim. 19/juil./2020 14:52
par 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.