Ma boucle ne marche pas
Avram
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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!
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
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
- Vlc lecture en boucle ✓ - Forum Lecteurs et supports vidéo
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Problème xiaomi redmi note 8t s'allume et s'éteint vibre - Forum Xiaomi
- Comment lire en boucle une music sur VLC - Forum Lecteurs et supports vidéo
2 réponses
Bonjour,
Voilà un exemple de chrono.
Le chrono se lance à l'ouverture du formulaire et ferme le formulaire en fin de décompte.
;o)
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)
