[VB.Net 2.0]Comment gérer multithreading sur des compteurs?

Version imprimable

Je débute en .Net et j'essaye de faire un truc qui pour certain sera très simple j'imagine
voila j'implémente deux compteurs et je voudrais qu'à chaque itération, le 1er attende le second pour aller à l'itération suivante et vice versa

voici mon code, qui ne fonctionne pas puique les deux compteurs tourne indépendamment l'un de l'autre
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 Private Sub compteur1() Dim i As Integer For i = 0 To 10 msgbox(i.ToString) Next End Sub Private Sub compteur2() Dim i As Integer For i = 10 To 0 Step -1 msgbox(i.ToString) Next End Sub Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click Dim th1 As Thread Dim th2 As Thread Control.CheckForIllegalCrossThreadCalls = False th1 = New Thread(AddressOf compteur1) th2 = New Thread(AddressOf compteur2) th1.Start() th2.Start() End Sub
donc moi ce que je souhaite,c'est qu'il maffiche 0 puis 10 puis 1 puis 9 puis 2 puis 8 puis 3 puis 7 etc....

si quelqu'un à une idéé merci d 'avance

Salut

Je suis gentil aujourd'hui :)
@+

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Imports System.Threading
 
Public Class Form1
 
    Delegate Sub AfficheDansLstBoxDlg(ByVal i As Integer, ByVal compteur As String)
 
 
    Private ev1 As New ManualResetEvent(False)
    Private ev2 As New ManualResetEvent(False)
    Private AfficheDansLstboxDelegate As AfficheDansLstBoxDlg = New AfficheDansLstBoxDlg(AddressOf AfficheDansLstBox)
 
    Private Sub AfficheDansLstBox(ByVal i As Integer, ByVal compteur As String)
        ListBox1.Items.Add(String.Format("Valeur = {0}, Compteur = {1}", i, compteur))
    End Sub
 
    Private Sub compteur1()
        Dim i As Integer
        For i = 0 To 10
            'Attend tant que ev1 est set à false
            ev1.WaitOne()
            'Affiche sur listbox (Ne pas faire Listbox.add)
            Invoke(AfficheDansLstboxDelegate, New Object() {i, "Compteur1"})
            'Met ev2 à true
            ev2.Set()
 
        Next
    End Sub
 
    Private Sub compteur2()
        Dim i As Integer
        For i = 10 To 0 Step -1
            'Attend tant que ev2 est set à false
            ev2.WaitOne()
            'Affiche sur listbox (Ne pas faire Listbox.add)
            Invoke(AfficheDansLstboxDelegate, New Object() {i, "Compteur2"})
            'met ev1 à true
            ev1.Set()
        Next
    End Sub
 
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim th1 As Thread
        Dim th2 As Thread
        'C pas bon ça :) Faut pas mettre ça en prod .... :)
        'Utilise Invoke pour les controles depuis les threads
        'Control.CheckForIllegalCrossThreadCalls = False
        th1 = New Thread(AddressOf compteur1)
        th2 = New Thread(AddressOf compteur2)
        th1.Start()
        th2.Start()
        ev1.Set()
    End Sub
End Class

24/03/2006, 10h18
pat59

ok merci super sympa de ta part, merci également pour l'exemple de délégation, ca faisait parti de mes autres problèmes.