Problème avec de multiple timer

Version imprimable

Voici mon problème.
J'ai une structure qui inclut un objet de type timer :

Code:

1
2
3
4
    Public Structure listeServeurASurveiller
        ...
        Dim objTimer As System.Timers.Timer
    End Structure

Je les initialise de la façon suivante :

Code:

1
2
3
4
5
6
7
8
9
        Dim i As Integer
        While i < objListeServeurASurveiller.Length
            objListeServeurASurveiller(i).objTimer = New System.Timers.Timer(objConfigSentinel.szTimer * 1000)
            AddHandler objListeServeurASurveiller(i).objTimer.Elapsed, AddressOf objTimer_Tick
 
            objListeServeurASurveiller(i).objTimer.Enabled = True
            objListeServeurASurveiller(i).objTimer.Start()
            i += 1
        End While

Sauf qu'après je ne sais pas comment distinguer quel timer est en cours dans ma fonction objTimer_Tick vu que on ne peut donner d'argument sur un AddressOf.

Pouvez vous m'aider?

11/10/2009, 00h43
Graffito

Le paramètre sender du tick event indique le timer qui a déclenché l'event.
11/10/2009, 08h51
FreudDu31

Ca serait possible d'avoir plus d'infos?
Que là dans mon sender je n'ai pas beaucoup d'infos dedans, enfin rien qui me permette de reconnaitre qui a déclenché l'event.

En fait ce que je compte récupérer comme info, c'est quel est le objListeServeurASurveiller qui a déclenché l'event afin de lancer genre :

Code:

lancerScrutation(objListeServeurASurveiller(i))

Salut,

Code:

1
2
 
Dim t as Timer = DirectCast(sender, Timer)

11/10/2009, 09h31
FreudDu31
Citation:
Envoyé par _PascalC_

Salut,

Code:

1 2 Dim t as Timer = DirectCast(sender, Timer)
Les infos du Timer ne m'interesse pas, c'est les infos de la structure qui inclu mon timer qui m'interresse.

je ne sais pas ce que vous avez tous en ce moment à vouloir faire des structures plutot que des classes ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Structure listeServeurASurveiller
        ...
        Dim objTimer As System.Timers.Timer
        public event Tick (sender as listeServeurASurveiller)
 
        public sub InitTimer(interval as integer)
           objtimer = new system.timers.timer(...)
           (...)
           addhandler objtimer addressof TickTimer
        end sub
 
        private sub TickTimer(mettre les bon paramètres)
           raiseevent Tick(me)
        end sub
 
    End Structure

et tu fait un addhandler objListeServeurASurveiller(i).TickTimer, addressof ou tu veux

à vérifier que ca marche dans une structure, mais ca marche dans une classe

11/10/2009, 12h35
FreudDu31

Bon j'ai tout cassé, j'ai viré ma structure qui en fait à y réfléchir servait à rien.
Merci Pol63
Me reste plus qu'a trouver comment raffraichir mon interface à la fin de ma scrutation qui est lancé par le tick de mon timer