loop until ?

Question

J'essaye de lancer une routine qui doit tourner tant que le bouton qui l'a lancée reste enclenché
J'ai essayé : 
   Do
   DoEvents
   Loop Until (ButtonUP = True)
mais la routine tourne meme si je relache le bouton.
je doit en appuyer un autre pour quelle stoppe.
une Idée ?
@+Gi

cs_DARKSIDIOUS · Answer

Tout dépend où est-ce que tu passe la variable BouttonUP à true...

Mais quel est le but de cette boucle ? Car là, à part occuper 100 % du processeur, elle sert à rien !

Gi5 · Answer

merci de ta reponse
en fait j'envoi un code en boucle dans le rs232 tant que je reste appuyé sur le bouton.
voila ce que je n'arrive pas a faire.
@+Gi

Gi5 · Answer

Je cherche aussi comment recuperer les valeurs des axes et boutons joystick dans des variables.
et comment changer l'image d'un bouton quand on l'appui.
@+Gi

cs_MPi · Answer

Ce serait plus simple et moins fatigant pour l'index si tu pesais 1
coup sur le bouton pour enclancher le processus et un autre coup pour
le déclancher, je pense.


Il suffirait de mettre une variable Static dans la procédure qui change
à chaque fois que tu cliques le bouton. Tu pourrais éventuellement
changer le Caption du bouton selon l'état de celui-ci.


Private Sub Command1_Click()

    Static Arret As Boolean

    

    If Arret = False Then

        Arret = True

    Else

        Arret = False

    End If

    

    Do Until Arret

        'Action

        DoEvents

    Loop


End Sub

MPi

Gi5 · Answer

c'est ce que j'ai fait mais cela ne me convient pas.
le but est de simuler un joystick avec 4 touche de direction.
pense-tu que cela soit possible version bouton poussoir?
@+Gi

geobasic · Answer

Salut,

Tu peux jouer sur l'évenement Mouse_Down et Mouse_Up de ton bouton pour simuler un appuie et un relachement.

Loop until ?

6 réponses

Votre réponse