une commande en boucleRésolu

Question

Salut!
Quelq'un pourait me dire comment faire pour que quand j'appui sur un  boutton commande, ca augmente de +1 le nombre contenu dans ma zone de texte (text1) toute les secondes?
Merci.
VirusMan :-p

MoiOlivier · Accepted Answer

Salut,
Pas la peine de s'énerver...

Voilà le code à mettre dans la Form :


Private Actif As Boolean
Private Cp As Long

Private Sub Command1_Click()
If Actif Then
    Timer1.Enabled = False
    Actif = False
Else
    Timer1.Interval = 1000
    Cp = 0
    Text7.Text = Cp
    Actif = True
    Timer1.Enabled = True
End If
End Sub

Private Sub Form_Load()
Actif = False
End Sub

Private Sub Timer1_Timer()
Cp = Cp + 1
Text7.Text = Cp
End Sub


Ca devrait marcher.
Bonne prog, @+

cs_Jack · Answer

Salut CCJ
En fait, il va te falloir :
- Créer une variable Public dans la partie déclaration de ta forme, ou mieux, dans un module :
Public ChronoDémarré As Boolean- mettre un controle Timer dont tu mettras le Interval 1000 msec 1 sec, et mettre le code :
If ChronoDémarré Then
  MonTextBox.Text = CStr(Val(MonTextBox.Text)) + 1)
End If
- Ensuite, dans le code du Bouton, tu mets :
ChronoDémarré = Not ChronoDémarré
If ChronoDémarré Then MonTextBox.Text = "0"
Ca inversera l'état du chrono et ça le remttra à zéro lors du lancement

Vala
Jack

MoiOlivier · Answer

Salut,

Avec un timer, c'est assez simple (quoique pas super précis au niveau de l'intervalle de temps : tu auras peut-être un écart d'une seconde ou deux sur un heure, mais bon).
Donc, tu places un contrôle Timer dans ta feuille, et dans l'évenement Click de ton bouton, tu mets :
Timer1.Interval = 1000 (1000 parce que l'intervale est en milisecondes)
Timer1.Enabled = True

Le mieux, je crois est de déclarer une variable globale pour ton compteur, donc au début du code : Private Cp as Long

Puis, dans l'évènement Time du Timer : 
Cp=Cp+1
Text1.Text=Cp

Voilà, j'espère que c'était ce que tu voulais savoir.
Bonne prog, @+

CCJ · Answer

Merci 
C'est tout juste ce que je voulai
VirusMan :-p

CCJ · Answer

ca marche pas !
y a toujour un truc qui marche pas vous pouriez expliquer clairement tout ca avec : text7 ; timer1 ; command1
VirusMan :-p

Une commande en boucle

5 réponses

Discussions similaires