démarage timer via thread?

Version imprimable

bonjour à tous,

j'essaye de démarrer un timer dans un thread mais celui-ci ne veut pas :calim2:
pourtant le même code en dehors du thread (via un bouton par exemple) fonctionne

donc comment faire pour démarrer le timer dans un thread?

merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Dim thread_test As New Thread(AddressOf test)
 
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        thread_test.Start()
    End Sub
 
   Private Sub test()
        Do
            ' boucle infinie de fonctionnement
            Timer_1.Enabled = True
            Timer_1.Start()
 
            Thread.Sleep(10)
 
        Loop
 
    End Sub
 
    Private Sub Timer_1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer_1.Tick
        compteur = compteur + 1
        Label2.Text = compteur
        Application.DoEvents()
    End Sub

Code:

1
2
3
4
5
   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer_1.Enabled = True
        Timer_1.Start()
 
    End Sub

25/12/2014, 21h47
ACIVE_CS

Bonjour, bonnes fêtes,

Je ne vois pas trop un intérêt à démarrer un Timer dans un autre thread mai j'ai vu System.Threading.Timer chez msdn je me demande si ça peut te servir...
25/12/2014, 22h10
sniper59

hello,

joyeuse fête également

en fait, j'ai exposé simplement mon problème mais le programme est beaucoup plus complexe :mouarf:

je travaille en multi-tache avec un thread qui tourne en tache de fond et qui recupère des données via le port USB ainsi que l'affichage de ceux-ci

j'ai besoin de faire un autre thread qui en fonction des données fait certaines tache etc...
dans ce thread, j'ai par exemple besoin de savoir combien de temps une variable est à une valeur (je précise que toutes les variables sont globales et donc accessible partout)

d'où le besoin de démarrer un timer via un thread :aie:

dans mon exemple ci-dessus, j'ai mis un intervale de 100ms et un compteur
une fois que j'arriverai à démarrer le timer via le thread, je pourrais tester mon compteur pour connaitre la durée...
25/12/2014, 23h36
ACIVE_CS

Oui!... tu as raison, tu gères une carte électronique et tu poses les questions et attends les réponses sur un autre thread (par exemple pour lire des états des entrées)???

Hé bien je suis dessus aussi, par contre moi c'est par wifi, mais c'est pareil.
d'ici demain je te montrerais ce que j'ai fait :D
26/12/2014, 10h03
sniper59

bonjour,

oui le principe général est là, je récupére l'état de mes cartes dans un thread
et j'aimerai faire les actions suivant les états dans un autre thread pour ne pas bloqué le CPU à rien

car j'ai essayé de mettre ma boucle dans le "main" ... le CPU se bloque à 100% d'utilisation et le reste du programme se fige ou est très fortement ralenti -> d'où mon idée d'utiliser un autre thread

comme Timer est un threa, je vais voir s'il n'y a pas un moyen de démarrer un thread via un autre thread

ça doit bien exister :mouarf:

bon bin j'ai trouvé tout seul comme un grand :ptdr:

un simple Application.Doevents() permet de résoudre le soucis

Code:

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
    Dim thread_test As New Thread(AddressOf test)
 
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        thread_test.Start()
    End Sub
 
   Private Sub test()
        Do
            ' boucle infinie de fonctionnement
            Timer_1.Enabled = True
            Timer_1.Start()
 
        Application.DoEvents()
 
            Thread.Sleep(10)
 
        Loop
 
    End Sub
 
    Private Sub Timer_1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer_1.Tick
        compteur = compteur + 1
        Label2.Text = compteur
        Application.DoEvents()
    End Sub

ensuite se pose le problème de Cross-thread pour l'affichage de la valeur dans Label2
pas grave, on invoque un delegate et tout roule :mouarf:

parfois on cherche compliquer alors que c'est finalement simple8O

Re:
Je ne vois pas pourquoi tu fais ceci:

Code:

1
2
3
4
5
6
7
8
9
10
 Do
            ' boucle infinie de fonctionnement
            Timer_1.Enabled = True
            Timer_1.Start()
 
        Application.DoEvents()
 
            Thread.Sleep(10)
 
        Loop

le "timer1.enabled = true" tu le fais qu'une seule fois pas dans une boucle

26/12/2014, 12h54
sniper59

héhé

comme dit précédemment, j'ai simplifié mon problème au maximum

mais effectivement dans ma boucle, je n'ai besoin de le faire qu'une seule fois
je pourrais meme l'activer en "générale" et ensuite jouer avec le start & stop , ça doit revenir au même

mon seul soucis était que l'événement Tick n'intervenait jamais

maintenant avec le Doevent, le timer fonctionne correctement, et le reste du programme commence à prendre forme ;)

merci à toi d'avoir pris un peu de ton temps à m'aider :mouarf:

ps : j'ai fait laissé en laissant l'activation du timer dans la boucle, ça ne change rien et ça compte bien comme il faut :roll: