Discussion :

[MLvba]

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]

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]

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]

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]

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é.

[ZenZiTone]

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.

[ebastien]

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é.

[ebastien]

Juste pense à ce que t'a écrit 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 !!

[MLvba]

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



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

Je dois faire quoi au juste car je ne l"ai pas trouvé la propriété Strict ni dans mon Timer dans mon Form1 .

[r.morel]

Une simple recherche sur le web :
https://www.developpez.net/forums/d7...ion-strict-on/
http://vb.net-informations.com/langu...ion_strict.htm

[MLvba]

Une simple recherche sur le web :
https://www.developpez.net/forums/d7...ion-strict-on/
http://vb.net-informations.com/langu...ion_strict.htm

Oui, j'ai répondu sans chercher .
D'accord donc ça permet d'éviter d'associer deux valeurs de dimension différentes en renvoyant un message d'erreur, si j'ai bien compris.