clicked(n)

J'ai tenté ceci dans un code

Code:

 if clicked(n)=1 then clicked(n)=0:return

Ce n'est pas autorisé et c'est dommage car j'avais presque trouvé une formule pour faire attendre le programme tant que certains bouttons n'était pas cliqués

Code:

attente:
for n=4 to 7
 if clicked(n)=1 then clicked(n)=0:return
next n
end
return

çà marche au premier passage, mais au deuxième il faudrait que le programme oublie le click précédent sur l'un des ces bouttons.

Mon idée serait d'avoir la possibilité de remettre le clicked d'un bouton à zéro par une cette commande ou une autre.

A+

pour ce qui est de faire attendre un programme je propose

WAIT_A_CLICK.

A+

Je dis peut-être une bêtise, mais il me semble que le fait de lire un événement (If Clicked(n) ) devrait le réinitialiser (équivalent de ton clicked(n) = 0), enfin ce serait logique ?
Et c'est bien ce qui semble se passer:

Code:

  Label db, Fin
  Button 1: Top 1, 100: Caption 1, "Clic"
  Button 2: Top 2, 140: Caption 2, "Quitter"
  On_Click 2, Fin
  db:
  wait 100
  If Clicked(1) = 1 Then Print "Cliqué !"
  GOTO db
  END
  Fin:
  Terminate

Si on clique, au rebouclage on ne déclenche plus.

Bonsoir,
Cela ne marche que parce que l'instruction se fait avant le End.
Si tu déplaces le END, avant db:, les instructions deviennent événementielles, et là ça ne fonctionne plus.

Bonsoir Cosmos, d'accord, je vois où est le problème...