Fonction de compte à rebours.Résolu

Question

Bonjour.
Je n'arrive pas &#224; faire marcher ma fonction de compte &#224; rebours dont le code suit.

Public Function makeCountdown(Cd As Integer, Ch As Integer, Cm As Integer, Cs As Integer, lblCDays As Label, lblCHours As Label, lblCMinutes As Label, lblCSeconds As Label)

If Cs = 0 Then

    If Ch > 0 And Cm = 0 Then
        lblCSeconds = "59"
        lblCMinutes = "59"
        Ch = Ch - 1
        lblCHours.Caption = Ch

    Else
         lblCSeconds = "59"
         Cm = Cm - 1
         lblCMinutes.Caption = Cm
    End If

Else
    Cs = Cs - 1
    lblCSeconds.Caption = Cs

End If
End Function

En fait cette fonction g&#232;re donc pour l'instant que 4 des 3 labels. Il y a un label pour chaque type. Jours Heures Minutes et Secondes.

Quand j'introduis 4h dans le temps s&#233;lectionn&#233; je re&#231;ois chronologiquement:
4 h 0m 0s  - &#233;tat initial
3h 59m 59s -phase 1
2h 59m 59s -phase 2
1h 59m 59s -phase 3
0h 59m 59s -phase 4
-1h 59m 59s -phase 5
ect.

D&#233;sol&#233; si c'est vraiment tr&#232;s con comme question...
Hurt 14

Paladin2107 · Accepted Answer

C'est fait vite fait j'avou mais bon c'est deja sa. tu as l'a démarche Tu peux en faire une fonction Place dans un timer pour faire une compteur qui decremante Dim i As Integer Dim j As Integer Dim h As Integer Dim e As Integer Dim f As Integer Dim b As Integer i = 0 If txtS.Text <> 0 And i < 10 Then txtS.Text = txtS.Text - 1 i = i + 1 Else txtS.Text = "9" i = 0 j = 0 If txtSS.Text <> 0 And j < 6 Then txtSS.Text = txtSS.Text - 1 j = j + 1 Else txtSS.Text = "5" h = 0 j = 0 If txtM.Text <> 0 And h < 10 Then txtM.Text = txtM.Text - 1 h = h + 1 Else txtM.Text = "9" h = 0 e = 0 If txtMM.Text <> 0 And e < 6 Then txtMM.Text = txtMM.Text - 1 e = e + 1 Else txtMM.Text = "5" e = 0 f = 0 If txtH.Text <> 0 And f < 3 Then txtH.Text = txtH.Text - 1 f = f + 1 Else txtH.Text = "3" f = 0 b = 0 If txtHH.Text <> 0 And b < 2 Then txtHH.Text = txtHH.Text - 1 b = b + 1 Else txtHH.Text = "0" End If End If End If End If End If End If Couscous

hurt14 · Answer

Ouais je vois comment t'as fait, j'avais trouv&#233; cette methode sur une source mais je voulais essayer de g&#233;rer un label en entier et non pas chiffre par chiffre. T'aurais pas une id&#233;e ? 
Entre-temps merci

Hurt 14

Paladin2107 · Answer

Tu as juste a travaill&#233; avec des variables et au final de ta fonction mettre tu truc de ce genre
label.caption = H & ":" & "M" & ":" S

En esp&#233;rant avoir &#233;t&#233; clair

Couscous

Mikaels35 · Answer

Salut
Je verrais bien un truc dans ce genre:

Cs = Cs - 1
If Cs < 0 Then
    Cs = 59
    Cm = Cm - 1
        If Cm < 0 Then
            Cm = 59
            Ch = Ch - 1
        End If
End If
LblCH = Format(Ch,"00")
LblCM =Format(Cm,"00")
LblCS = Format(Cs,"00")

Tu rajoutes ce qu'il faut pour g&#233;rer les jours dans le m&#234;me style !

@+

Mikaels35 · Answer

Si tu veux travailler sur les Labels uniquement:

'Initialise les labelsLblCH "04": LblCM "00": LblCS = "00"

Private Sub CountDown(ByRef H As Label, ByRef M As Label, ByRef S As Label)
S= Format(S - 1, "00")
If S < 0 Then
    S = "59"
    M = Format(M - 1, "00")
        If M < 0 Then
            M = "59"
            H = Format(H - 1, "00")
        End If
End If
End Sub

'Appel de la Sub par un Timer de 1s par exemple
Private Sub Timer1_Timer()
Call CountDown(LblCH, LblCM, LblCS)
End Sub

hurt14 · Answer

Merci beaucoup la premi&#232;re proposition ins&#233;r&#233;e b&#234;tement dans un Timer fonctionne bien.
Merci encore,
Hurt 14

Fonction de compte à rebours.

6 réponses

Discussions similaires