Discussion :

[macpascal]

Bonjour a tous! Je suis débutant en prog et je fais un exercise dans lequel je dois faire un timer qui déroule le temps de XX à 0 et rendu a zero, un message box affiche "0", XX étant spécifié dans un textbox.

Ca me donne le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub Timer1_Tick(...) Handles Timer1.Tick
 
        Static temps As Double = Val(TextBox1.Text)
 
        TextBox1.Text = Format(temps, "000.00")
        temps -= Timer1.Interval / 1000
 
        If temps <= 0.1 Then
            Timer1.Enabled = False
            MsgBox("0")
        End If
    End Sub
 
    Private Sub Button1_Click(...) Handles Button1.Click
        Timer1.Enabled = Not Timer1.Enabled
 
    End Sub

Bouton1 sert a partir et arreter le timer.

J'aimerais que par un bouton2 nommé "M+" la valeur du textbox que l'usager aura entrée soit mise en mémoire en quelque part et que avec un bouton3 nommé "rappel", cette valeur soit réafectée au textbox si l'usager a besoin de repartir son timer s'il l'a arreté par exemple.

En fait, mon probleme existentiel est que le timer repart toujours d'où il était rendu quand il a été arrêté (soit par le bouton1 ou parcequ'il est arrivé à 0). J'aimerais qu'il puisse repartir de la valeur initiale du textbox, sans avoir à quitter mon application.

Merci pour tout info ou commentaires!

[Danyel]

En fait, mon probleme existentiel est que le timer repart toujours d'où il était rendu quand il a été arrêté (soit par le bouton1 ou parcequ'il est arrivé à 0). J'aimerais qu'il puisse repartir de la valeur initiale du textbox, sans avoir à quitter mon application.

Il suffit pour cela de donner l'interval du timer à partir de ton textbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Timer1.Interval = Cint(TextBox1.Text)