Timer et précision

Version imprimable

26/06/2014, 23h19
mikadev

Timer et précision
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:

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

Bonjour,

Code:

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

27/06/2014, 15h42
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
27/06/2014, 16h05
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....

Voila le code :

Code:

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

27/06/2014, 16h37
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
27/06/2014, 17h37
wallace1

:haha:

Citation:

Envoyé par Etanne

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.....:haha:
Mais il n'en est absolument rien comme nous pouvons tous le constater excepté OP....lol
27/06/2014, 17h44
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