Ma boucle ne marche pas

Avram -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention - 23 mai 2010 à 21:12

Bonjour à tous
regardez ce code svp:

Dim i As Integer

Private Sub chrono_Timer()
i = 30
Do
temps.Text = i - 1
Loop While temps.Text = 0
If chrono = False Then
End
End If
End Sub

Private Sub temps_Change()
chrono.Enabled = True
chrono.Interval = 1000
End Sub

Mon voeux est qu'il s'exécute comme un minuteur, c'est-à-dire que dans le textbox le décompte s'affiche. Parce que celui-ci fait le décompte jusqu'à 59 et s'arrête.

Aidez MOI de grâce!

A voir également:

Ma boucle ne marche pas
Boucle excel sans macro - Forum Excel
Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
Vlc lire en boucle ✓ - Forum Lecteurs et supports vidéo
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi

2 réponses

Réponse 1 / 2

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

Voilà un exemple de chrono.

Le chrono se lance à l'ouverture du formulaire et ferme le formulaire en fin de décompte.

Option Explicit

Dim i As Integer

Private Sub chrono_Timer()
Dim tps As Integer

tps = i - 1

temps.Text = tps

If tps = 0 Then
  Unload Me
  End
End If
i = tps
End Sub

Private Sub Form_Load()
i = 30
chrono.Interval = 1000
chrono.Enabled = True

End Sub

;o)

Réponse 2 / 2

Templier Nocturne Messages postés 7734 Date d'inscription Statut Membre Dernière intervention 1 106

ce serait pas mal de préciser le langage que tu as utilisé

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Mon ordinateur s'allume et s'eteint en boucle

tele s'eteind et s'allume en boucle

problème tv décodeur orange

Redmi redémarre en boucle - Fastboost impossible

Votre réponse

Discussions similaires