Problème vb et thread

Version imprimable

Bonjour,
Je pensais pouvoir maitriser Vb et le côté multithreading mais ça fait deux jours que je n'arrive pas à résoudre un problème.J'utilise une liaison serie pour lire mes trames et après je dois les tracer sur une courbe chart.La récupération des données est bonne et même la tracée. Afin de donner plus de rapidité à mon programme, j'ai décidé d'utiliser le thread.Au début j'avais deux threads mais je l'ai réduit à un seul pour déterminer la source du problème mais hélas toujours la même.Il m'affiche ce message :L'exception InvalidOperationException n'a pas été gérée , La collection a été modifiée ; l'opération d'énumération peut ne pas s'exécuter.

J'ai mit ce paramètre à false pour permettre l'opération inter thread, côté variable. Me.CheckForIllegalCrossThreadCalls = False.
Je vous donne mon code.
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 While i < 10 fncanRead(canHandle, cmsg_Message, 1) ' MsgBox("Id: " & cmsg_Message.l_id) If cmsg_Message.l_id = "614" 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 i += 1 End If If i = 10 Then PwmLiants = tableau111 VitPompLiants = tableau222 tempsss = tableautempss Tracer(1, PwmLiants, 2, tempsss) i=10 End If End While

11/07/2018, 17h07
r.morel

Citation:

Envoyé par adamasegou

[...] Il m'affiche ce message :L'exception InvalidOperationException n'a pas été gérée , La collection a été modifiée ; l'opération d'énumération peut ne pas s'exécuter. [...]

Salut,
Je crois que cela ne vient pas du thread mais que cela vient du fait que tu ne peux pas enumerer les éléments d'une collection si pendant l'énumération tu la modifies.
11/07/2018, 17h35
wallace1

Citation:

Envoyé par r.morel

Salut,
Je crois que cela ne vient pas du thread mais que cela vient du fait que tu ne peux pas enumerer les éléments d'une collection si pendant l'énumération tu la modifies.

Effectivement il est là le problème. :plusser:
11/07/2018, 18h51
adamasegou

Citation:

Envoyé par r.morel

Salut,
Je crois que cela ne vient pas du thread mais que cela vient du fait que tu ne peux pas enumerer les éléments d'une collection si pendant l'énumération tu la modifies.

Vous êtes d'accord avec moi que je remplis d'abord mon tableau et après je l'affecte à un object en suite je le trace. Ce qui veut dire que je ne modifie pas en même temps que je lisse.

Citation:

Envoyé par adamasegou

Vous êtes d'accord avec moi que je remplis d'abord mon tableau et après je l'affecte à un object en suite je le trace. Ce qui veut dire que je ne modifie pas en même temps que je lisse.

Dans la condition if i=10,j'initialise i à 0 au lieu.C'est une erreur de frappe en mettant le code sur le forum.
11/07/2018, 18h58
wallace1

Citation:

Envoyé par adamasegou

Vous êtes d'accord avec moi que je remplis d'abord mon tableau et après je l'affecte à un object en suite je le trace. Ce qui veut dire que je ne modifie pas en même temps que je lisse.

On n a pas le reste de ton code sous les yeux donc difficile d être d accord entre ce que tu dis et fais :aie:

Breff... si tu fais toutes ses opérations dans ta boucle while alors ça ne peut pas aller ...
11/07/2018, 19h04
adamasegou

Pourquoi ça ne peut pas aller en mettant toutes ces opérations dans la boucle while?
11/07/2018, 22h49
wallace1

Citation:

Envoyé par adamasegou

Pourquoi ça ne peut pas aller en mettant toutes ces opérations dans la boucle while?

Parce que tu te situes dans la boucle de traitement de ton tableau...dixit ta levée d exception :aie:
11/07/2018, 23h09
adamasegou

Citation:

Envoyé par wallace1

Parce que tu te situes dans la boucle de traitement de ton tableau...dixit ta levée d exception :aie:

On a forcement besoin d'un try catch?Je pense que je suis un peu perdu
12/07/2018, 01h16
wallace1

Citation:

Vous êtes d'accord avec moi que je remplis d'abord mon tableau et après je l'affecte à un object en suite je le trace. Ce qui veut dire que je ne modifie pas en même temps que je lisse.

Ce n est pas exactement ce que tu fais car ton affectation de tableau se situe dans la boucle while ainsi que le tracé et l affectation à ton objet.
Il faut décomposer tout ca en travaillant avec d autres variables !
Ceci dit c est difficile de dire quoique ce soit d autre puisqu on ignore le contexte.

J'ai travaillé avec d'autres variables mais sans succès, l'application continue à rouler mais je ne vois pas la courbe, par contre dans la fonction tracer si je mets un message box, il m'affiche la courbe.
J'ai besoin d'être dans une boucle while infinie afin de tourner en permanence.L'objectif c'est l'acquisition de 10 valeurs et on trace ces 10 valeurs et après acquisition d'une autre 10 valeurs et tracé, ainsi de suite.
J'espère que vous m'avez compris.
J'ai procédé comme ça :

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
54
55
56
     While a <= 1000
 
            Console.WriteLine("Acquisition numéro: " & r)
            Hour = Microsoft.VisualBasic.DateAndTime.Hour(Now)
            Minutes = Microsoft.VisualBasic.DateAndTime.Minute(Now)
            Second = Microsoft.VisualBasic.DateAndTime.Second(Now)
 
 
            'ChargeParametres()
 
 
            fncanRead(canHandle, cmsg_Message, 1)
            If cmsg_Message.l_id = "614" Then
                Excel_VitessePompeLiant_DL(r) = cmsg_Message.by_data_2 + cmsg_Message.by_data_3 * 256
                Excel_PwmLiant_DL(r) = cmsg_Message.by_data_4 + 256 * cmsg_Message.by_data_5
                Console.WriteLine("Vitesse Pompe: " & Excel_VitessePompeLiant_DL(r))
                Console.WriteLine("PWM: " & Excel_PwmLiant_DL(r))
                temps(r) = Hour & ":" & Minutes & ":" & Second
                r += 1
                a += 1
                Label1.Text = Excel_VitessePompeLiant_DL(r)
            End If
            If r = "10" Then
                Try
                    For i As Integer = 0 To 9
                        intermediaire(i) = Excel_VitessePompeLiant_DL(i)
                        intermediaire1(i) = temps(i)
                    Next
                    verif = intermediaire
                    verif1 = Excel_PwmLiant_DL
                    verif2 = temps
                    j = j + 1
 
                    Tracer(1, verif, 1, verif2)
                    ' Thread.Sleep(5000)
                    ' Console.WriteLine("Boucle parfaite")
                    ' Console.WriteLine("#####################################################################")
                    'Console.WriteLine("#####################################################################")
                    'Console.WriteLine("#####################################################################")
                    r = 0
 
                Catch ex As Exception
 
                    MsgBox("Erreur ")
 
                End Try
 
 
            End If
 
 
            Sleep(1000)
 
 
 
        End While

12/07/2018, 09h25
r.morel

:tagcode:
Déjà, commence par utiliser la balise code car c'est juste illisible.

Citation:

Envoyé par adamasegou

J'ai besoin d'être dans une boucle while infinie afin de tourner en permanence.L'objectif c'est l'acquisition de 10 valeurs et on trace ces 10 valeurs et après acquisition d'une autre 10 valeurs et tracé, ainsi de suite.

Je pense que ce n'est pas la bonne solution. Essaye de voir du coté du Timer.
12/07/2018, 09h34
adamasegou

Je connais le Timer mais le problème avec ce dernier, il faut le régler en milleseconde alors que dans mon cas je ne sais pas quel temps il faut pour l'acquisition et la tracée car cela dépend du réseau.
Le problème peut il venir du fait que la boucle se situe dans la fonction button-click ?
Sinon je veux vraiment faire du multitâche car pour moi c'est l'idéal.
12/07/2018, 10h05
wallace1

Citation:

Envoyé par adamasegou

Je connais le Timer mais le problème avec ce dernier, il faut le régler en milleseconde alors que dans mon cas je ne sais pas quel temps il faut pour l'acquisition et la tracée car cela dépend du réseau.

Si tu utilises une liaison série pour récupérer tes trames il y a bien possibilité de calculer tout ca pour déclencher le timer ou l'arrêter quand il faut ????

Citation:

Envoyé par adamasegou

Le problème peut il venir du fait que la boucle se situe dans la fonction button-click ?
Sinon je veux vraiment faire du multitâche car pour moi c'est l'idéal.

En fait comme tu le dis plus haut, il y a un traitement dans une boucle infinie et en plus ce traitement se situe dans l'event Click d'un bouton !
Ce qui veut dire que tu dois impérativement déléguer ce traitement un un autre thread de manière à ce que ton appli soit réactive et ne gèle pas.....

PS1 : décores ton code des balises CODE que ce soit plus lisible

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
While i < 10
 
            fncanRead(canHandle, cmsg_Message, 1)
            ' MsgBox("Id: " & cmsg_Message.l_id)
            If cmsg_Message.l_id = "614" 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)
                i += 1
            End If
            If i = 10 Then
                Try
                    For k As Integer = 0 To 9
                        inttableau(k) = tableau222(k)
                        inttabheure(k) = tableautempss(k)
 
 
                    Next
 
                    VitPompLiants = inttableau
                    tempsss = inttabheure
                    Tracer(1, VitPompLiants, 2, tempsss)
                    i = 0
                Catch ex As Exception
                    MsgBox("Erreur")
                End Try
                'PwmLiants = tableau111
 
            End If
            'Thread.Sleep(100)
       End While

Je l'ai mis dans un autre thread, elle fait environ 28 minutes avant de planter.C'est vrai que je communique avec le port serie mais il est encapsulé par un api, Il transforme la communication série en communication can.

Citation:

Envoyé par wallace1

Si tu utilises une liaison série pour récupérer tes trames il y a bien possibilité de calculer tout ca pour déclencher le timer ou l'arrêter quand il faut ????

En fait comme tu le dis plus haut, il y a un traitement dans une boucle infinie et en plus ce traitement se situe dans l'event Click d'un bouton !
Ce qui veut dire que tu dois impérativement déléguer ce traitement un un autre thread de manière à ce que ton appli soit réactive et ne gèle pas.....

PS1 : décores ton code des balises CODE que ce soit plus lisible

Bonjour,
J'ai changé l'architecture en découpant la partie récupération et la partie tracée courbe.Mais c'est toujours le même problème.Le voici le code:

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
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