problème thread courbe

**adamasegou** · 16/07/2018, 10h19

Bonjour,
Je viens demander votre expertise pour m'aider à résoudre mon problème car là où je vous parle je ne trouve aucune logique dans l'erreur.
J'ai créé deux thread synchronisés, le premier lit 10 trames et en donne la main au deuxième qui trace et après donne la main au premier ainsi de suite mais il me sort :InvalidOperationException a été générée, la collection a été modifié.Le code est la suite:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
Private Sub courbe()
        Dim i, ml As Integer
 
        Dim tableau111(1000), tableau222(1000) As Integer
        ml = 1
 
        With cmsg1
            .l_id = 616
            .by_len = 1
            .by_extended = 0
            .by_remote = 0
            .by_data_0 = 10
            .by_data_1 = 0
            .by_data_2 = 0
            .by_data_3 = 0
            .by_data_4 = 0
            .by_data_5 = 0
            .by_data_6 = 0
            .by_data_7 = 0
        End With
 
        With cmsg2
            .l_id = 607
            .by_len = 1
            .by_extended = 0
            .by_remote = 0
            .by_data_0 = 50
            .by_data_1 = 0
            .by_data_2 = 0
            .by_data_3 = 0
            .by_data_4 = 0
            .by_data_5 = 0
            .by_data_6 = 0
        End With
        fncanConformedTransmit(canHandle, cmsg1, 1)
        fncanConformedTransmit(canHandle, cmsg2, 1)
        Dim Hour As Integer = Microsoft.VisualBasic.DateAndTime.Hour(Now)
        Dim Minutes As Integer = Microsoft.VisualBasic.DateAndTime.Minute(Now)
        Dim Second As Integer = Microsoft.VisualBasic.DateAndTime.Minute(Now)
 
        While i < 1000
 
            fncanRead(canHandle, cmsg_Message, 1)
 
            If cmsg_Message.l_id = "614" And verificationbool Then
                Hour = Microsoft.VisualBasic.DateAndTime.Hour(Now)
                Minutes = Microsoft.VisualBasic.DateAndTime.Minute(Now)
                Second = Microsoft.VisualBasic.DateAndTime.Second(Now)
 
 
                tableau111(i) = cmsg_Message.by_data_2 + cmsg_Message.by_data_3 * 256
                tableau222(i) = cmsg_Message.by_data_4 + 256 * cmsg_Message.by_data_5
                tableautempss(i) = Hour & ":" & Minutes & ":" & Second
 
                TextBox1.Text = "PWM: " & tableau111(i) & vbNewLine & "Vitesse à pompe: " & tableau222(i) & vbNewLine & "Acquisition: " & ml
                ml += 1
                i += 1
 
            End If
            If i = 10 And verificationbool Then
                Try
                    For k As Integer = 0 To 9
                        inttableau(k) = tableau222(k)
                        inttabheure(k) = tableautempss(k)
                    Next
                    tempsobject = inttabheure
                    VitPompLiants = inttableau
 
                    mutex1.Set()
                    verificationbool = False
 
                    i = 0
 
 
                Catch ex As Exception
                    MsgBox("Erreur")
                End Try
 
 
            End If
 
        End While
    End Sub
 
    Private Sub dessiner()
        While 1
            mutex1.WaitOne()
            verificationbool = False
            verificationlecture = False
            Tracer(1, VitPompLiants, 1, tempsobject)
            lm += 1
            TextBox2.Text = "Courbe numéro: " & lm
            mutex1.Reset()
            verificationbool = True
            verificationlecture = True
        End While
 
 
    End Sub