photorage
Messages postés7Date d'inscriptionjeudi 26 mars 2009StatutMembreDernière intervention15 décembre 2009
-
26 mars 2009 à 14:38
photorage
Messages postés7Date d'inscriptionjeudi 26 mars 2009StatutMembreDernière intervention15 décembre 2009
-
26 mars 2009 à 16:09
bonjour,
je suis nouveau sur le réseau...
Je suis bloqué avec vb.net ou vs2008, car je joudrai declenche un evenement a une heur donnée, par exemple : à 12:00:00 label1.text = "il est midi"
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 mars 2009 à 15:33
c'est un 'jeu' ...
pas idéal en réalité, puisqu'on ne réagira pas lorsque l'on change la date du systeme.
j'ai joué à déclencher le moins de Ticks possible (ben ouais, toutes les secondes... alors qu'on sais que midi c'est dans 15 heures...
pour prendre en compte tout changement en direct de l'heure, faire :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim dTarget As Date
If Date.Now.Hour 12 And Date.Now.Minute 0 And Date.Now.Second = 0 Then
Label1.Text = "Il est midi"
End If
End Sub
photorage
Messages postés7Date d'inscriptionjeudi 26 mars 2009StatutMembreDernière intervention15 décembre 2009 26 mars 2009 à 15:06
merci de votre reponse. mais je suis un peu perdu...... on verra bien, je vais chercher des exemple qui me feront faire le petit "declique" qui va bien... et encore merci
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 26 mars 2009 à 15:13
en jouant un peu :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim dTarget As Date
If Date.Now.Hour 12 And Date.Now.Minute 0 Then
Label1.Text = "Il est midi"
dTarget = DateTime.Today.AddHours(24 + 12)
Else
If Date.Now.Hour < 12 Then
dTarget = DateTime.Today.AddHours(12)
Else
dTarget = DateTime.Today.AddHours(24 + 12)
End If
End If
Timer1.Interval = dTarget.Subtract(DateTime.Now).TotalMilliseconds
End Sub