Bonjour,
je viens vers vous avec un petit problème dont je ne trouve pas de solution...
J'utilise un timer et j'aimerais appelé des procédures à un instant précis.
Voici mon code:
avec l'heure fixe ça fonctionne mais je voudrais remplacer le "09:37:05" par temps + timevalue("00:00:05") où temps est le moment où j'ai cliqué sur le bouton et ("00:00:05") représente 5 secondes après l'instant du clic en variable.
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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44 Private Sub LANCER_Click(sender As Object, e As EventArgs) Handles LANCER.Click Timer1 = New Timers.Timer ' déclaration de l'heure h de lancement. temps = Format(Now, "HH:mm:ss") 'délai en millisecondes du déclenchement de chaque action du tick. Timer1.Interval = 500 'active le timer. Timer1.Enabled = True Timer1.Start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Elapsed temps = Format(Now, "HH:mm:ss") ' teste l'heure toutes les 1s / boucle tous les 1s temps = DateAdd(DateInterval.Second, 1, temps) Select Case temps Case "09:37:05" : Call test1() Timer1.Stop() Timer1.Enabled = False End Select End Sub
5 secondes est un exemple ce serait plus quelque du genre 54min et 41sec...
Je vous remercie pour l'aide que vous pourriez m'apporter!
Cordialement,
Innuendo67.
Partager