Discussion :

[vinowan]

Bonjour,

j'utilise le port Com (RS232) pour recevoir une tram de 10 bytes

pour l'instant, j'utilise l'évènement datareceived et je reste dans la procédure jusqu'à la fin de la réception de la tram entière de 10 bytes via l'emploi de com.readbyte

Comme je fonctionne en 9600 bauds, un byte arrive tous les 1ms +ou-.

comme ma procédure attend entre chaque com.readbyte, je me demandais si tout le programme fait une pause pendant ce laps de temps et donc ne faisait rien d'autre. ou si chaque procédure crée un nouveau thread et donc permet au programme de faire autre chose pendant ce laps de temps.

ceci à l'air bien théorique mais je programme principalement sur µp (8051, pic ou autre) et la réception d'une tram se fait par interupt du programme principale qui s'arrête pour traiter le nouveau byte et ensuite reprendre là ou il a y été interrompu par l'interupt.

cette information est donc très importante car si cela provoque une pause du programme je dois réécrire ma procédure en vb pour fonctionner comme mes programme C fait pour µp.

j'éspère avoir été assez précis et merci d'avance pour votre aide.

[tomlev]

Comme indiqué dans la doc, l'évènement DataReceived est déclenché sur un thread secondaire, ça ne bloque donc pas le thread principal.

L'événement DataReceived est déclenché sur un thread secondaire lorsque des données sont reçues de l'objet SerialPort. Cet événement étant déclenché sur un thread secondaire et non sur le thread principal, toute tentative de modification d'éléments inclus dans le thread principal, tels que les éléments de l'interface utilisateur, peut lever une exception de thread. S'il est nécessaire de modifier des éléments dans le Form ou Control principal, renvoyez les demandes de modification à l'aide de Invoke, qui réalisera la tâche sur le thread approprié.

[tangai]

Comme indiqué dans la doc, l'évènement DataReceived est déclenché sur un thread secondaire, ça ne bloque donc pas le thread principal.

Bonjour, j'utilise dans une application mdi 3 ports com.
j'utilise jutement le datareceived pour recuperer les valeurs lors d'une arrivée sur le port com .(voir code suivant):

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
Dim WithEvents port1 As New SerialPort("COM3", 9600, Parity.None, 8, StopBits.One)
    Dim WithEvents port2 As New SerialPort("COM4", 9600, Parity.None, 8, StopBits.One)
    Dim WithEvents port3 As New SerialPort("COM5", 9600, Parity.None, 8, StopBits.One)
    Dim poidsnetPort1 As Single
    Dim poidsnetPort2 As Single
    Dim poidsnetport3 As Single
 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'GESTION DE LA RECEPTION DES DONNEES VIA LES 3 PORT COM VIRTUELS'
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub port1_DataReceived(ByVal sender As Object, ByVal e As  _
       System.IO.Ports.SerialDataReceivedEventArgs) Handles port1.DataReceived
 
        'Des detection d'une reception sur le port com, on lit tous les caracteres jusqu'a "FIN"
        Dim textport1 As String
        textport1 = ""
 
        Try
            textport1 = port1.ReadTo("FIN")
 
            'Decoupage de la trame reçu et identification de chaque parametres...
            'Dim tableau2(11) As String
            'tableau2 = textport1.Split(Chr(13) & Chr(10))
 
            textport1 = Replace(textport1, "kg", "")
            textport1 = Replace(textport1, "NET", "")
            textport1 = Replace(textport1, "(", "")
            textport1 = Replace(textport1, ")", "")
            textport1 = Replace(textport1, Chr(13) & Chr(10), "")
            textport1 = LTrim(textport1)
            textport1 = RTrim(textport1)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        If Me.InvokeRequired Then
 
            Me.Invoke(New deleg1(AddressOf InsererDansText), textport1)
 
        End If
 
        port1.DiscardInBuffer()
    End Sub

Mon probleme apparait en fait lorsque j'essaye de femrer le formulaire par un me.close.

Je me prends le message suivant:

L'opération d'entrée/sortie a étéabandonnée en raison de l'arret d'un thread ou a la demande d'une application.

Et l'application se fige...
pourtant avant de faire le me.close, je fais bien port1.close idem pour le port 2 et 3...
Je ne sais pas du tout comment faire pour fermer ma form sans bloquer mon appli.
Si qqn avait une idée du pourquoi et surtout du comment faire, je serai très très intéressé...

[Pol63]

une des solutions serait peut être (en tout cas niveau design du code c'est conseillé) de ne pas mettre le code du port com dans le form, mais dans une classe à part

[tangai]

Merci pour la réponse, je vais essayer de mettre la gestion des trois port com dans une classe a part.
Mais je suis un peu perdu pour pouvoir mettre celà en oeuvre.
Serait 'il possible de me donner un exemple concernant un seul port com avec la classe , et la gestion du datareceived svp?
( en gros quelle transformation je dois appliquer a mon code..)

Edit
ok ,je vais essayer avec le .flush et je vous tiens au courant des lundi (la production etant arretée, je ne vais pas pouvoir faire d'essais avant...)
Bon weekend
Et merci

[tangai]

Bonjour,
j'ai fait les tests avec le.dispose au lieux du .close,mais le test n'est pas concluant,j'ai toujours l'execption qui est levée.
Je crois que je vais etre obligé de modifier completement la conception du prog et de mettre la gestion de mes ports serie dans une classe a part.
Comme préconisé...
Si qqn a un exemple, je suis preneur...

[tangai]

Bonjour,

En fait tout marche super bien, je recupere bien les valeurs de mes trois ports com, les valeurs sont bien décortiquées et affichées dans les textbox correspondante.
Mais lors de la fermeture de ma form (me.close) l'exception est levée et l'application reste completement plantée...
Voici le code :

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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
 
Dim WithEvents port1 As New SerialPort("COM3", 9600, Parity.None, 8, StopBits.One)
    Dim WithEvents port2 As New SerialPort("COM4", 9600, Parity.None, 8, StopBits.One)
    Dim WithEvents port3 As New SerialPort("COM5", 9600, Parity.None, 8, StopBits.One)
    Dim poidsnetPort1 As Single
    Dim poidsnetPort2 As Single
    Dim poidsnetport3 As Single
 
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'GESTION DE LA RECEPTION DES DONNEES VIA LES 3 PORT COM VIRTUELS'
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub port1_DataReceived(ByVal sender As Object, ByVal e As  _
       System.IO.Ports.SerialDataReceivedEventArgs) Handles port1.DataReceived
 
        'Des detection d'une reception sur le port com, on lit tous les caracteres jusqu'a "FIN"
        Dim textport1 As String
        textport1 = ""
 
        Try
            textport1 = port1.ReadTo("FIN")
 
            'Decoupage de la trame reçu et identification de chaque parametres...
            'Dim tableau2(11) As String
            'tableau2 = textport1.Split(Chr(13) & Chr(10))
 
            textport1 = Replace(textport1, "kg", "")
            textport1 = Replace(textport1, "NET", "")
            textport1 = Replace(textport1, "(", "")
            textport1 = Replace(textport1, ")", "")
            textport1 = Replace(textport1, Chr(13) & Chr(10), "")
            textport1 = LTrim(textport1)
            textport1 = RTrim(textport1)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        If Me.InvokeRequired Then
 
            Me.Invoke(New deleg1(AddressOf InsererDansText), textport1)
 
        End If
 
        port1.DiscardInBuffer()
    End Sub
 
    Private Sub port2_DataReceived(ByVal sender As Object, ByVal e As  _
       System.IO.Ports.SerialDataReceivedEventArgs) Handles port2.DataReceived
        'Des detection d'une reception sur le port com, on lit tous les caracteres jusqu'a "<>"
        Dim textport2 As String
        textport2 = ""
 
        Try
            textport2 = port2.ReadTo("FIN")
 
            'Decoupage de la trame reçu et identification de chaque parametres...
            'Dim tableau2(11) As String
            'tableau2 = textport2.Split(Chr(13) & Chr(10))
 
            textport2 = Replace(textport2, "kg", "")
            textport2 = Replace(textport2, "NET", "")
            textport2 = Replace(textport2, "(", "")
            textport2 = Replace(textport2, ")", "")
            textport2 = Replace(textport2, Chr(13) & Chr(10), "")
            textport2 = LTrim(textport2)
            textport2 = RTrim(textport2)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        If Me.InvokeRequired Then
 
            Me.Invoke(New deleg2(AddressOf InsererDansText), textport2)
 
        End If
 
        port2.DiscardInBuffer()
    End Sub
 
    Private Sub port3_DataReceived(ByVal sender As Object, ByVal e As  _
       System.IO.Ports.SerialDataReceivedEventArgs) Handles port3.DataReceived
 
        'Des detection d'une reception sur le port com, on lit tous les caracteres jusqu'a "<>"
        Dim textport3 As String
        textport3 = ""
 
        Try
            textport3 = port3.ReadTo("FIN")
            '   MsgBox(textport3)
            'Decoupage de la trame reçu et identification de chaque parametres...
            'Dim tableau2(11) As String
            'tableau2 = textport3.Split(Chr(13) & Chr(10))
 
            textport3 = Replace(textport3, "kg", "")
            textport3 = Replace(textport3, "NET", "")
            textport3 = Replace(textport3, "(", "")
            textport3 = Replace(textport3, ")", "")
            textport3 = Replace(textport3, Chr(13) & Chr(10), "")
            textport3 = LTrim(textport3)
            textport3 = RTrim(textport3)
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        If Me.InvokeRequired Then
 
            Me.Invoke(New deleg3(AddressOf InsererDansText), textport3)
 
        End If
 
        port3.DiscardInBuffer()
 
 
    End Sub

maintenant le petit bout de code me permettant de modifier le contenu de la form principale:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub InsererDansText(ByVal donnee As String)
 
 
        If Controls("panel1").Controls("tabcontrol1").Controls("preparation").Controls("qte_pesee" & etage_pesee.ToString).Focused Then
            Controls("panel1").Controls("tabcontrol1").Controls("preparation").Controls("qte_pesee" & etage_pesee.ToString).Text = donnee
        End If
        If Controls("panel1").Controls("tabcontrol1").Controls("separation").Controls("pesee_separation" & etage_seperation.ToString).Focused Then
            Controls("panel1").Controls("tabcontrol1").Controls("separation").Controls("pesee_separation" & etage_seperation.ToString).Text = donnee
        End If
 
 
    End Sub

et enfin le code pour fermer ma form:

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
 
 '''''''''''''''''''''''''
        'FERMETURE DES PORTS COM'
        '''''''''''''''''''''''''
        Try
            If port1.IsOpen = True Then
                port1.Close()
            End If
 
            If port2.IsOpen = True Then
                port2.Close()
            End If
            If port3.IsOpen = True Then
                port3.Close()
            End If
        Catch ex As Exception
            MsgBox("ça n'as pas marché!")
        End Try
        MsgBox("Les paramètres ont bien été enregistrés")
        Me.Close()

Si quelqun avait la solution a mon problème et pouvai me l'expliquer ce serait vraiment cool, parce que sur ce coup là, je bloque...

[Pol63]

essaye .flush avant .close
ou .dispose à la place des 2