Discussion :

[innuendo67]

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:

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

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.

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.

[J@ckHerror]

Bonjour,

L'idée sur laquelle je partirais serait plutôt de définir l'Interval du timer sur le clique du bouton de lancement, avec la durée demandée (pas 500ms) puis de lancer immédiatement le timer, ainsi dans l'event Tick Elapsed il suffit de faire le traitement de fin du timer.
En tout cas, présenté comme ça, je ne vois pas l'intérêt de déclencher d'utiliser le tick toute les 1/2 secondes et de vérifier si on est à la bonne heure... après j'ai peut être pas tout compris.

Bon code,
J@ck.

[EDIT] désolé j'ai confondu l'event Tick et Elapsed.

[innuendo67]

Bonjour J@ckHerror et merci de me répondre.

Si j'ai bien compris ton idée cela voudrais dire que je devrais créer un timer pour chaque temps à rajouter. En effet, j'ai plusieurs déclenchement sur le même timer d'où mon case. Je ne l'avais pas précisé. Je creuse du côté timespan. Temps + timespan marche hors tick mais pas dans, je ne comprends pas pourquoi.

Merci.

Cordialement

Innuendo67

[shayw]

Bonjour

regarde la class TimeSpan

Ce n'est pas très clair
Tu as plusieurs procédures ex proc1,proc2 proc3 et tu veux que proc1 soi appellé après 45 min 12 sec et proc 2 après m min s sec et proc3 après .....
Quand proc3 est executé Tu stop le timer ou tu recommences le cycle.

[J@ckHerror]

Tout comme @shayw, dis nous ce que tu veux faire, complètement et avec les détails.
Tu as toujours le même nombre de durée ? tu as un nombre max/min de durée ? Chaque durée doit aboutir à une tache, toujours la même, une tache par durée, les taches doivent être toujours dans le même ordre ou les taches sont lié à une durée ?? Que se passe-t-il si j'ai 2 durées identiques ... etc ?? etc
Précise le contexte aussi.

Suivant tes réponses les solutions peuvent être complètement différentes.

J@ck.

[François DORIN]

Bonjour,

Tout d'abord, je t'invite à lire l'article que j'ai écris sur la mise en place de tâches périodiques. Plusieurs éléments devraient t'intéresser pour répondre à ton problème :

• la notion de dérive des horloges (je ne sais pas si tu sais ce que c'est, mais si ce n'est pas le cas, alors lit l'article car ton code en souffre !)
• le déclenchement d'une action à une date donnée, en utilisant des threads et en calculant la durée à attendre.

Maintenant, comme le souligne J@ckHerror, dit nous précisément ce que tu souhaites faire. Place nous dans le contexte et présente nous un cas d'utilisation simple mais représentatif. Pas de code, juste des mots !

[innuendo67]

Bonjour et merci à tous de vous attarder sur mon problème.

Pour faire simple, shayw a bien résumé mon souci.

J'ai 4 appareils à piloter (envoi de commande dans des procédures distinctes).
Pour l'instant je m'attarde sur un timer (ou autre si cela est possible) mais il y en aura 4 in fine qui tourneront dans l'appli.

Je clique sur un bouton ce qui me donne mon heure de début. Ensuite, à partir de cette heure de début, j'appelle des procédures (plusieurs fois et des différentes) après un délai voulu fixe (en vba j'avais fait un application.ontime h + timevalue qui fonctionnait à merveille).

En gros j'ai : h = heure du clic
puis: proc1 à h + x
proc2 à h + y
proc3 à h + z
.
.

jusqu'à la dernière procédure où x,y et z sont des temps du genre 55mins et 35s ou 1h 32 et 24s....


Je ne sais pas si je m'exprime correctement.

Je vous remercie encore de vos réponses.

Cordialement,

Innuendo67

[François DORIN]

Dans ce cas, pas besoin de timer. Il suffit de déclencher les événements dès le clic sur le bouton. Ensuite, dans chaque événement, tu attends le temps nécessaire pour simuler un départ à l'instant choisi.

Exemple :

Code c# :

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
 
void LANCER_Click(object sender, EventArgs e)
{
   DateTime start = DateTime.Now;
 
   TimeSpan tache1Offset = new TimeSpan(1,0, 0); // Délai de 1h
   Task.Run(() => {
      int wait = Convert.ToInt32((date - DateTime.Now).TotalMilliseconds);
      await Task.Delay(wait);
      Tache1();
   });
 
   TimeSpan tache2Offset = new TimeSpan(0, 52, 38); // Délai de 52min et 38s
   Task.Run(() => {
      int wait = Convert.ToInt32((date - DateTime.Now).TotalMilliseconds);
      await Task.Delay(wait);
      Tache2();
   });
 
   ...
}

L'exemple est en C# car je ne connais pas le VB. Mais le principe reste exactement le même

[innuendo67]

Bonjour et merci pour cette piste.

Cependant votre wait en c semble être un thread.sleep en vb ce qui gèlerait mon appli. La solution serait du multi thread bien compliquée pour moi...

N'est ce pas possible de remplacer "hh:mm:ss" qui fonctionne avec mon case par un heure h + x??

Merci

Innuendo67

[François DORIN]

Await est disponible en VB

Sinon, effectivement, Thread.Sleep et Task.Delay font fonctionnellement la même chose (attendre un délai), même s'il y a des différences techniques subtiles.

La solution serait du multi thread bien compliquée pour moi...

Regarde de plus près, tu verras que la solution que je te propose est multithread, et donc que cela ne gèlera pas ton appli.

N'est ce pas possible de remplacer "hh:mm:ss" qui fonctionne avec mon case par un heure h + x??

Dans un case non, car case attend des constantes. Tu dois contourner le problème en utilisant une suite de conditionnel if... then... else...
Ensuite, tu dois éviter le phénomène de dérive des horloges.
Au final, cette solution me semble bien plus compliquée et lourde à mettre en oeuvre comparé à l'usage de threads...