Declechement d'un evenement a une heure donnée [Résolu]

photorage 7 Messages postés jeudi 26 mars 2009Date d'inscription 15 décembre 2009 Dernière intervention - 26 mars 2009 à 14:38 - Dernière réponse : photorage 7 Messages postés jeudi 26 mars 2009Date d'inscription 15 décembre 2009 Dernière intervention
- 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"

merci d'avance  
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 26 mars 2009 à 15:33
3
Merci
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

avec un intervalle réglé à 1000

Merci Renfield 3

codes-sources a aidé 81 internautes ce mois-ci

Commenter la réponse de Renfield
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 26 mars 2009 à 14:49
0
Merci
joues avec un Timer
Commenter la réponse de Renfield
photorage 7 Messages postés jeudi 26 mars 2009Date d'inscription 15 décembre 2009 Dernière intervention - 26 mars 2009 à 14:54
0
Merci
oui : voila comment j'ai commencé : (ai-je bon??)
Timer1.Interval = 1000

Timer1.Start()

Dim MyTime
As
Date

Dim MyHour
As
Integer

Dim MyMinute
As
Integer

Dim MySecond
As
IntegerMyTime = #6:26:00 PM#

MyHour = Hour(MyTime)

MyMinute = Minute(MyTime)

MySecond = Second(MyTime)



If Second(Now.ToLongTimeString) = 0 _

Or Second(Now.ToLongTimeString) = 30 _
Then Label2.Text "Ca l'fait!!!"Label1.Text Now.ToLongTimeString
Commenter la réponse de photorage
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 26 mars 2009 à 14:57
0
Merci
ne pas utiliser la methode Second
c'est du VB6 (lib VisualBasic a oublier)
Commenter la réponse de Renfield
photorage 7 Messages postés jeudi 26 mars 2009Date d'inscription 15 décembre 2009 Dernière intervention - 26 mars 2009 à 15:06
0
Merci
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
Commenter la réponse de photorage
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 26 mars 2009 à 15:13
0
Merci
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
Commenter la réponse de Renfield
photorage 7 Messages postés jeudi 26 mars 2009Date d'inscription 15 décembre 2009 Dernière intervention - 26 mars 2009 à 15:19
0
Merci
trop cool, merci.... je suis sur que pour vous c'etait du gateau   lol
pour moi... pfffff
Commenter la réponse de photorage
photorage 7 Messages postés jeudi 26 mars 2009Date d'inscription 15 décembre 2009 Dernière intervention - 26 mars 2009 à 16:09
0
Merci
merci bien, en jopuant un peu j'ai reussi a faire ce que je voulais

a la prochaine (a mon prochain bloquage   lol)

rt
Commenter la réponse de photorage

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.