Discussion :

[mikadev]

Bonsoir j'ai développez un logiciel dans lequel je souhaite faire apparaître une horloge pour cela j'utilise la classe Timer afin de mettre a jour l'horloge toute les secondes, le souci c'est que l'horloge fini par perdre assez rapidement des secondes ou alors même au lancement j'ai des des millisecondes de différence comment faire pour avoir une bonne précision ? voici un peu de code :

initialisation de l'heure :

Code :

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

1
2
3
4
5
6
 
    Private Sub TimeInit()
        Me.HOUR =  Format(Now, "HH")
        Me.MIN =  Format(Now, "mm")
        Me.SEC = Format(Now, "ss")
    End Sub

[wallace1]

Bonjour,

Code :

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

1
2
3
4
 
 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        LblCurrentTime.Text = DateTime.Now.ToString("HH:mm:ss")
    End Sub

http://imabox.fr/a3/142706646VNHd6L46.png

[mikadev]

merci pour ta réponse mais ça c'est déjà ce que je fait néanmoins j'ai toujours des problèmes de précision

[wallace1]

As-tu seulement essayés d'autres programmes du type schedduler ou Clock pour voir si le problème est persistant malgré le programme que tu exécutes sur ton PC (avec le cadencement de ton horloge système) ????

Et par rapport à quoi te bases-tu pour te rendre compte que ton horloge implémentée avec un timer prends du retard ?


PS : un peu plus de code permettrait de mieux appréhender ton projet ...... car comme ca on ne voit ni Timer ni event Tick ni affectation de tes variables et à quel moment.......etc....

[mikadev]

Voila le code :

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
18
19
20
21
22
23
24
 
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.TimeRecalculate()
        Me.TimeDisplay()
    End Sub
 
    Private Sub TimeDisplay()
        Me.mins.Text = Me.MIN.ToString("D2")
        Me.secs.Text = Me.SEC.ToString("D2")
    End Sub
 
   Private Sub TimeRecalculate()
       If Me.SEC > 0 Then
           Me.SEC -= 1
       Else
           Me.SEC = 59
       End If
       If Me.SEC = 0 Then
           Me.MIN -= 1
       End If
       If Me.MIN < 0 Then
           Me.MIN = 59
       End If
  End Sub

[Etanne]

Bonjour,

Le Timer du namespace Windows.Form est monothread, je pense que vous devez perdre de la précision à cause de l'incrémentation des secondes et minutes.

Pourquoi le pas prendre la solution de wallace1 avec DateTime.Now ?

Etanne

[wallace1]

Bonjour,

Pourquoi le pas prendre la solution de wallace1 avec DateTime.Now ?

Parce que comme il l a dit plus haut il a déjà fait ce que je lui ai proposé comme solution.....
Mais il n'en est absolument rien comme nous pouvons tous le constater excepté OP....lol

[mikadev]

oui effectivement j'avais déjà essayé ta solution mais je n'avais pas baissé l'intervalle du timer donc ça ne fonctionné pas en baissant cela fonctionne je mais donc en résolu merci @Etanne