Ouvrir une fenêtre à une heure précise

**MLvba** · 27/06/2017, 09h45

Bonjour,
Je cherche à ouvrir une fenêtre sur mon application à une heure précise, tous les jours mais je n'y arrive pas.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim AlertTime As DateTime
 
        If AlertTime = "09:38:00" Then
            STOPID.Show()
        End If
    End Sub
End Class

Merci

**ZenZiTone** · 27/06/2017, 10h05

Bonjour !

Code :

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

1
2
3
4
 
Dim AlertTime As DateTime
 
If AlertTime = "09:38:00" Then

En VB.NET, par défaut, l'option "Strict" est à "Off". Ce qui veut dire que les conversions implicites sont autorisées. D'où le fait que le compilateur ne te gronde pas.. Chose que je trouve idiote, mais passons.

Dans l'idée, ce que tu fais est correcte. En revanche, dans les faits, tu compares une date à une chaîne de caractères.

Tu trouveras de la doc sur le format Date en .NET, mais dans l'idée tu auras juste besoin de comparer l'heure (l'action ne dépendant pas du jour). Regarde dont ce lien. Il t'en dira plus sur la façon dont tu peux procéder.

**MLvba** · 27/06/2017, 10h54

J'essayer de changer le format avec ToString mais ça ne fonctionne pas, ma fenêtre ne s'ouvre pas.
Suivant ton lien j'ai changer le format mais rien ne se passe.

Code :

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

1
2
3
4
5
6
7
    Private Sub UFPointageProd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim AlertTime As Date
 
        If AlertTime = #10:42:00 AM# Then
            STOPID.Show()
        End If
    End Sub

Cependant avec ce code :

Code :

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

1
2
3
4
5
6
7
    Private Sub UFPointageProd_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim AlertTime As Date = #10:51:00 AM#
 
        If AlertTime.ToString("h mm") Then
            STOPID.Show()
        End If
    End Sub

Ma fenêtre s'ouvre mais lorsque j'exécute mon programme, mais pas à l'heur indiqué.

**ZenZiTone** · 27/06/2017, 11h04

Alors oui, il y a plusieurs manières de procéder, mais je ne te conseille pas d'utiliser le ToString. En générale, les "ToString" sont utilisés pour gérer l'affichage des valeurs.

Il te faut d'abord définit la date d'alerte :

Code :

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

1
2
 
 Dim AlertTime As Date = new Date(2017,06,27,11,00,00)

Ensuite tu peux y comparer les heures et minutes :

Code :

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

1
2
3
4
 
If AlertTime.Hour = 11 And AlertTime.Minutes = 0 Then
  'Alert
End If

**MLvba** · 27/06/2017, 11h27

Sauf que ici dans ton code tu définis une date et une heure et dans lequel tu donnes une condition qui respect forcément l'égalité.
Donc ma fenêtre s'ouvre forcément.
J'essai de comparer une heure avec l'heure de mon système. Je me suis peut être mal exprimé.

**ebastien** · 27/06/2017, 11h29

Bonjour,

Tester la date et l'heure c'est une chose mais il conviendra aussi de placer ce test au bon endroit. Ici, il paraît être placé dans le load d'une Form. Je ne vois pas bien comment cela peut fonctionner.
Il faudrait plutôt créer un timer qui ferait ce test régulièrement : Toutes les minutes ou toutes les secondes suivant le degré de précision désiré.

**ZenZiTone** · 27/06/2017, 11h31

Autant pour moi, mon exemple est bidon en effet

Du coup la définition d'AlertTime ne change pas, mais ensuite :

Code :

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

1
2
3
4
 
If Now.Hour = AlertTime.Hour And Now.Minutes = AlertTime.Minutes Then
  'Alert
End If

Now est une propriété qui retourne la date et l'heure courante.

**MLvba** · 27/06/2017, 11h40

Donc ça fonctionne seulement lorsque la date correspond au moment ou j'ouvre mon application.
C'est à dire que je dois le mettre dans un autre endroit pour pouvoir exécuter mon programme.

**r.morel** · 27/06/2017, 11h52

Salut,
Regarde du coté des Timer
Cela te permettra de créer un événement (par exemple toutes le secondes).
Ensuite tu te sers de cet événement pour vérifier si l'heure du lancement et égale à l'heure actuelle.
@+

**Prisson** · 27/06/2017, 12h10

Bonjour,
il me semble que tu poses mal ton problème. j'ai comme l'impression que tu voudrais conditionner le système d'exploitation pour qu'il lance une fenêtre de ton application à une certaine heure donnée. est ce cela ?

**MLvba** · 27/06/2017, 12h49

Envoyé par Prisson

Bonjour,
il me semble que tu poses mal ton problème. j'ai comme l'impression que tu voudrais conditionner le système d'exploitation pour qu'il lance une fenêtre de ton application à une certaine heure donnée. est ce cela ?

Oui c'est ça. D'ailleurs je me demande si avec un Timer je peux lui demander de me renvoyer une heure ou de lui affecter une heure de départ ?

**r.morel** · 27/06/2017, 13h13

Envoyé par MLvba

D'ailleurs je me demande si avec un Timer je peux lui demander de me renvoyer une heure ou de lui affecter une heure de départ ?

Tu dois mettre le code de ZenZiTone dans la procédure faisant appelle à l'événement "Tick" de ton timer

Code :

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

1
2
3
4
5
Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickDim Date_choisie As Date
Date_choisie = new Date(2017,06,27,11,00,00)

If Date_choisie.Hour = Date.Now.Hour And Date_choisie.Minute = Date.Now.Minute And Date_choisie.Second = Date.Now.Second Then
'Lance ton formulaire
End If
  End Sub

**MLvba** · 27/06/2017, 13h38

Envoyé par r.morel

Tu dois mettre le code de ZenZiTone dans la procédure faisant appelle à l'événement "Tick" de ton timer

Code :

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

1
2
3
4
5
Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickDim Date_choisie As Date
Date_choisie = new Date(2017,06,27,11,00,00)

If Date_choisie.Hour = Date.Now.Hour And Date_choisie.Minute = Date.Now.Minute And Date_choisie.Second = Date.Now.Second Then
'Lance ton formulaire
End If
  End Sub

J'ai essayé de le mettre dans le Timer1_Tick. Mais ça ne fonctionne pas.

**ZenZiTone** · 27/06/2017, 13h54

Envoyé par MLvba

J'ai essayé de le mettre dans le Timer1_Tick. Mais ça ne fonctionne pas.

Il faut démarrer ton timer aussi (si c'est pas déjà fait).

**ebastien** · 27/06/2017, 13h59

Envoyé par MLvba

J'ai essayé de le mettre dans le Timer1_Tick. Mais ça ne fonctionne pas.

As-tu démarré ton Timer au moins (Timer.Start() )

**MLvba** · 27/06/2017, 14h02

Envoyé par ZenZiTone

Il faut démarrer ton timer aussi (si c'est pas déjà fait).

J'ai essayé de faire quelque chose mais j'y vais en peu à taton parce que j'ai du mal à comprendre le fonctionnement du Timer.

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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AlertTime = New System.Timers.Timer()
        AlertTime.Interval = 2000
        AlertTime.Start()
 
        AddHandler AlertTime.Elapsed, AddressOf Timer1_Tick
        AlertTime.AutoReset = True
        AlertTime.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Now.Hour = AlertTime.Hour And Now.Minute = AlertTime.Minute
        Dim AlertTime As Date = New Date(2017, 6, 27, 13, 59, 0)
        If Now.Hour = AlertTime.Hour And Now.Minute = AlertTime.Minute And Now.Second = AlertTime.Second Then
            STOPID.Show()
        End If
 
    End Sub

Sauf que ici la fenêtre s'ouvre mais elle plant, je ne sais pas pourquoi.
Est ce que le code est bon par ailleurs ?

**MLvba** · 27/06/2017, 14h56

J'ai finalement trouver mon problème mais je ne sais pas pourquoi l'autre code ne fonctionne pas, je laisse le code ci-dessous:

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
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Timer1.Interval = 1000
        Timer1.Enabled = True
        Timer1.Start()
 
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Label6.Text = Date.Now
        Dim AlertTime As Date = New Date(2017, 6, 26, 14, 55, 0)
        If Now.Hour = AlertTime.Hour And Now.Minute = AlertTime.Minute Then
            Timer1.Enabled = False
            StopPointage = Now
            STOPID.Show()
        End If
 
    End Sub

Merci pour votre aide

**ebastien** · 27/06/2017, 15h36

Juste pense à ce que t'a écrit ZenZiTone :

Envoyé par ZenZiTone

En VB.NET, par défaut, l'option "Strict" est à "Off". Ce qui veut dire que les conversions implicites sont autorisées. D'où le fait que le compilateur ne te gronde pas.. Chose que je trouve idiote, mais passons.

Un conseil, passe ce paramètre à "On", ça t'évitera des surprises !!