NEED HELP !!! PB DE GESTION D'INTERVALLES DE TEMPS !!!Résolu

Question

Salut, j'ai besoin d'aide pour un souci de gestion de temps, bien que mon code me semble correct.
Le but du prog est de changer le fond d'&#233;cran d'un PC &#224; intervalle r&#233;gulier (choix par slidebar de 1 &#224; 30 min). Le plus simple est d'utilser un timer mais son intervalle est bloqu&#233; &#224; 60000 ms soit 1 min, d'o&#249; le souci...
Donc voil&#224; mon code si un probl&#232;me existe o&#249; si vous voyez une autre solution...

La form :
1 bouton (btnOK)
1 timer (timerTempo) avec pour intervalle 60000ms (1min)
1 proc&#233;dure (afficherFond)

Le code :

--------------------------------------------------------------------------------
Private Sub btnOK_Click()
    j = 1                        'index de l'image
    k = 1                        'initialisation de la boucle d&#233;lai
    timerTempo.Enabled = True
    AfficherFond (j)             'affichage du fond n&#176;1
End Sub
----------------------------------------------------------------------
Private Sub timerTempo_Timer()   '(d&#233;lai de 60000ms)
    k = k + 1                    '&#224; chaque boucle on rajoute 1 min
    If k = nbreMinutes Then      'si on arrive au d&#233;lai imparti (choisi par l'utilisateur)
        AfficherFond (j)         'affichage du fond n&#176;2,3,4,...
        j = j + 1
        k = 0                    'on r&#233;initialise la boucle d&#233;lai
    End If
End Sub
----------------------------------------------------------------------
Private Sub AfficherFond(Index As Integer)
    ...
End Sub
----------------------------------------------------------------------

Et l&#224;, &#231;a marche pas... Affichage de l'unique fond n&#176;1...
Si vous pouvez m'aider, merci d'avance...

Gobillot · Accepted Answer

&#224; part le premier (m&#234;me j) les autres devraient marcher.

est ce que les variables sont bien d&#233;finies ?









Option Explicit

Dim k As Integer

Dim j As Long



Private Sub btnOK_Click()
   
j =  0
                      
'index de l'image
    k = nbreMinutes - 1          'initialisation de la boucle d&#233;lai
    timerTempo _Timer              'affichage du fond

    timerTempo.Enabled  = True
End Sub


Private Sub timerTempo_Timer()   '(d&#233;lai de 60000ms)
   
k = k +
1                    '&#224; chaque boucle on rajoute 1 min
    If k = nbreMinutes Then      'si on arrive au d&#233;lai imparti (choisi par l'utilisateur)

        j = j + 1
        AfficherFond (j)         'affichage du fond n&#176;1,2,3,...
       
k =
0                    'on r&#233;initialise la boucle d&#233;lai
    End If
End Sub

Daniel

dalma101 · Answer

Ben &#231;a c fort, &#231;a marche.... Merci

NEED HELP !!! PB DE GESTION D'INTERVALLES DE TEMPS !!!

2 réponses

Discussions similaires