Bonsoir,

je dois réaliser une action 5 minutes après que l'utilisateur est cliquer sur un bouton mais cela ne fonctionne pas, voila mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
    Public dateStop_buzzer As DateTime 
 
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
dateStop_buzzer = Now.AddMinutes(5)
relais_K6()
les_try("buzzer interne :: MISE EN MARCHE A " & Now.ToString & " ARRET DEFINI A " & dateStop_buzzer.ToString)
Tr_K6.Interval = 1000 'on parcours tout les secondes pour voir si on a l'heure additionner au 4 min pour arreter le buzzer
Tr_K6.Start()
End sub
Ensuite dans le timer je balaye tout les secondes pour voir si l'heure actuel est égal a dateStop_buzzer alors je déclenche ma procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Tr_K6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tr_K6.Tick
        If DateTime.Compare(dateStop_buzzer, Now) = 0 Then
            'relais_K6()
            les_try("buzzer interne :: ARRET DU BUZZER A " & Now.ToString)
            Tr_K6.Stop()
        End If
    End Sub
au final en debugant je ne rentre jamais dans la boucle !
la procédure les_try écrit dans un fichier texte est je vois bien en ouvrant celui ci que j'ai écrit l'heure de déclenchement et l'heure d’arrêt défini à m+4
mais ça ne fonctionne pas !