Discussion :

[PIMSOU]

bonjour,

Je viens de passer 2 jours sur le net à chercher pourquoi mon bout de code ne fonctionne pas.

je doit développer une application qui reçoit à partir d'un pied à coulisse connecté sur le port série les informations de mesure.

je teste la lecture avec le 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
 
Public Class Form1
 
    Dim returnstr As String = ""
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        SerialPort1.Open()
        AddHandler SerialPort1.DataReceived, AddressOf Receiver
 
 
    End Sub
 
    Private Sub Receiver(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
 
        Dim Incoming As String
        Dim sp As SerialPort = CType(sender, SerialPort)
 
        Dim counter As Integer = SerialPort1.BytesToRead
 
        Select Case e.EventType
            Case SerialData.Chars
                Incoming = sp.ReadLine()
                returnStr &= Incoming
                Me.Invoke(New MethodInvoker(AddressOf Display))
 
            Case SerialData.Eof
 
                'Me.Invoke(New MethodInvoker(AddressOf parseXML))
 
        End Select
 
    End Sub
 
    Private Sub Display()
        TextBox1.Text = returnstr
    End Sub
End Class

Le programme ne passe jamais dans la méthode "DataReceived". et pourtant, tester avec l'outil "Comtestserial" de Microridge, le pied à coulisse envoie des données.

Je ne sais pas ou chercher,
si quenlqu'un peut me donner une piste

Merci à tous

[hunteshiva]

Bonjour,

je ne vois nul part dans ton code où tu lit les data qui arrivent...
Normalement c'est l'event suivant qui permet de lire

Code :

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

1
2
3
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        'This event will Receive the data from the selected COM port..
    End Sub

Le soucis vient d'ici je pense,
au chargement de ton formulaire, tu ouvre ton SerialPort

Code :

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

1
2
3
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        SerialPort1.Open()

le soucis c'est que Open est fait pour écrire...
donc tu te prépare à écrire et en même temps tu veux lire les data qui arrivent *impossible je dirais*

[PIMSOU]

bonjour,

déjà merci de ta réponse.

normalement c'est le code suivant qui doit intercepter les remontées du port série.

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
 
   Private Sub Receiver(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs)
 
        Dim Incoming As String
        Dim sp As SerialPort = CType(sender, SerialPort)
 
        Dim counter As Integer = SerialPort1.BytesToRead
 
        Select Case e.EventType
            Case SerialData.Chars
                Incoming = sp.ReadLine()
                returnStr &= Incoming
                Me.Invoke(New MethodInvoker(AddressOf Display))
 
            Case SerialData.Eof
 
                'Me.Invoke(New MethodInvoker(AddressOf parseXML))
 
        End Select
 
    End Sub

pour ce qui est du Open je ne vois pas d'autres méthode pour activer le port!!

tu penses à quel fonction pour démarrer la lecture ?

[hunteshiva]

Aucune,
il détecte automatiquement l'arrivée de paquets et active l'evenement SerialPort1.DataReceived

[PIMSOU]

Non avec ou sans ouverture du port je ne reçois rien sur le COM.
le programme ne passe pas dans le datareceived.

Je ne vois pas ce qui cloche.

[assadhouna]

Bonjour,
j'ai le meme probleme. alors que sous Vb6 cela marche tres bien.
auriez vous resolu le probleme?
Merci.

[PIMSOU]

Bonjour,

Au sein de Visual Studio je n'ai pas trouvé de solution.
j'ai acheté le composant ActiveComport qui fonctionne parfaitement bien

le lien :
http://www.activexperts.com/serial-port-component/

[hunteshiva]

Bonjour,
j'ai le meme probleme. alors que sous Vb6 cela marche tres bien.
auriez vous resolu le probleme?
Merci.

Quel problème?
'Serial Port' fonctionne très bien pour l’émission de données ainsi que pour la réception