[vb6] Evénement de réception/envoi sur port COM

**Original Prankster** · 25/10/2006, 21h47

Bonsoir à nouveau

Voilà j'ai un traitant qui est appelé sur événement sur un port COM :

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
Private Sub MSComm1_OnComm() ' On attend une activité sur le port
    Select Case MSComm1.CommEvent
        ' Liste des erreurs possibles
        Case comEventBreak      ' On a reçu un signal d’interruption (Break)
            connected = False
 
        Case comEventCDTO       ' Timeout de la porteuse
        Case comEventCTSTO      ' Timeout du signal CTS (Clear To Send)
        Case comEventDSRTO      ' Timeout du signal de réception
        Case comEventFrame      ' Erreur de trame
        Case comEventOverrun    ' Des données ont été perdues
        Case comEventRxOver     ' Tampon de réception saturé
        Case comEventRxParity   ' Erreur de parité
        Case comEventTxFull     ' Tampon d’envoi saturé
        Case comEventDCB        ' Erreur de réception DCB (jamais vu)
 
        ' Liste des événements possibles qui sont, eux, normaux
        Case comEvCD            ' Changement dans la broche CD (porteuse)
        Case comEvCTS           ' Changement dans broche CTS
        Case comEvDSR           ' Changement dans broche DSR (réception)
        Case comEvRing          ' Changement dans broche RING (sonnerie)
 
        Case comEvSend          ' Il y a des caractères à envoyer
 
        Case comEvReceive       ' Si on reçoit des données
            LabelStatut.Caption = "Carte UCM connectée sur le port COM spécifié"
            LabelStatut.ForeColor = &H8000&
            connected = True
            Tampon = MSComm1.Input
            Call Traitement(Tampon) ' Routine de traitement
 
        Case comEvEOF           ' On a reçu le caractère EOF
 
    End Select
End Sub

J'imaginais que sur succès d'un MSComm1.Input je vais dans le traitant comEvReceive, et que dans le cas d'un MSComm1.Output je vais dans le traitant comEvSend.

Or j'ai constaté que dans le cas d'un MSComm1.Output le code relatif au cas comEvReceive est exécuté ! (même si la carte n'est pas branchée). Pourquoi ?

Je serai tenté de dire que c'est parce qu'il manque un break à la fin du case, mais je n'ai trouvé aucun exemple faisant usage d'une telle instruction...

**avigeilpro** · 26/10/2006, 13h09

Un break n'est pas nécessaire à la fin du case (du moins pas à ma connaissance). Pour l'évènement je cale, c'est une bonne question, je regarderais le programme que j'avais fait utilisant le mscomm et te tiendrais au courant.

**Original Prankster** · 31/10/2006, 08h32

Bonjour,

Mon problème devient de plus en plus agaçant. Je reçoit systématiquement dans mon tampon de réception tout ce que j'émet à destination de mon port COM, et je ne comprends toujours pas ce comportement !

Erreur de codage de ma part ? Fonctionnement normal du système ? Comment contrer cela ?

Merci d'avance...

**SfJ5Rpw8** · 31/10/2006, 08h41

il y as quelquechose de "branché" sur ton port série..?

**Original Prankster** · 31/10/2006, 08h46

Bien sur, la fameuse carte électronique avec laquelle je dialogue...

**SfJ5Rpw8** · 31/10/2006, 12h17

et sans la carte tu les as tes échos..?

**Original Prankster** · 31/10/2006, 12h22

Egalement.

**Original Prankster** · 04/11/2006, 10h20

Bon je vais tenter de reformuler ma question.

Comment puis-je tester qu'il y a bien une entité branchée sur mon port COM ? Autrement dit : comment puis-je lire SEULEMENT ce que la carte m'envoie (et pas ce que je lui envoie aussi) ?

Car le but est bien là : lui envoyer une commande, et attendre une réponse. Si réponse, la carte est bien branchée, sinon problème.

Or la lecture se fait par événement oncomm sur une réception. Et l'écriture en est un qui manifestement serait aussi une réception...

Merci

**AlainTech** · 04/11/2006, 10h34

Peut-être en analysant le contenu des messages...???

**Original Prankster** · 04/11/2006, 10h38

J'y ai bien pensé, mais la nature des messages que je peux envoyer à la carte est multiple...

Et puis tout d'abord, est-ce que c'est normal d'avoir ce comportement ?

**AlainTech** · 04/11/2006, 10h59

Je n'ai pas de pratique (récente) des liaisons séries.
J'ai toutefois fait une petite recherche dans ce forum sur le mot mscomm et j'ai pu y lire des choses intéressantes telles que l'usage de .Input et la lecture du buffer d'entrée.
Je suppose qu'une recherche dans MSDN devrait te donner d'autres pistes à explorer.

**Original Prankster** · 04/11/2006, 12h32

Eh bien non, ma recherche n'avait rien donné à l'époque et ne donne toujours rien, même en utilisant les mêmes critères que toi. Personne ne se sert de l'événement comEvSend et personne ne semble recevoir le résultat d'un Output dans l'événement comEvReceive.

Idem sur la doc MSDN qui ne m'apprend rien de plus que ce que j'ai trouvé sur les tuto de developpez.com, et qui ne parle absolument pas de mon problème.

**ThierryAIM** · 04/11/2006, 16h54

comment gère-tu les echanges de flux (soft, hard, aucun) ?

les signaux DTR, RTS, CTS sont-ils cablés et exploités par ta carte (protocole hard) ?

XON, Xoff (protocole soft) ?

on manque un peu d'éléments pour te guider

**Original Prankster** · 04/11/2006, 22h16

Je ne pense pas que ces éléments entre en jeu dans le cas qui me préoccupe, mais sait-on jamais...

Voici comment j'initialise mon MSComm1 :

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
Public Sub Connect_COM()
    ' Déconnexion si connecté
    If MSComm1.PortOpen = True Then
        MSComm1.PortOpen = False
    End If
 
    LabelStatut.Caption = "Carte UCM non connectée sur le port COM spécifié"
    LabelStatut.ForeColor = &HFF&
    connected = False
 
    ' Recherche port
    If portCom = 0 Then
        For i = 1 To 22
            On Error Resume Next
            MSComm1.CommPort = i
            MSComm1.PortOpen = True ' Test de l'ouverture du port
            DoEvents  '  Recupération d'une erreur éventuelle
            If Err.Number = 0 Or Err.Number = 8005 Then  ' 8005 = une autre appli utilise ce port
                portCom = i
                Exit For
            End If
        Next i
    End If
 
    ' Connexion et détection de la carte
    MSComm1.CommPort = portCom ' Port paramétré
    MSComm1.Handshaking = comRTS
    MSComm1.RThreshold = 1
    MSComm1.RTSEnable = True ' Mieux pour le port COM
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.SThreshold = 1
    On Error Resume Next
    MSComm1.PortOpen = True ' Ouverture du port
    DoEvents
    If portCom = 0 Then
        LabelCOM.Caption = "Error"
        LabelCOM.ForeColor = &HFF&
        MSComm1.PortOpen = False
        MsgBox "Aucun port COM trouvé", vbOKOnly, "Erreur"
    Else
        LabelCOM.Caption = "COM" & CStr(portCom)
        If Err.Number = 0 Or Err.Number = 8005 Then ' Port valide
            LabelCOM.ForeColor = &HC00000
            MSComm1.Output = "-" & vbCrLf  ' Passage en mode invisible
        Else
            LabelCOM.ForeColor = &HFF&
            MSComm1.PortOpen = False
        End If
    End If
    On Error GoTo 0
End Sub

Et voici comment j'essaie de filtrer mes événements sur MSComm1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub MSComm1_OnComm() ' On attend une activité sur le port
    Select Case MSComm1.CommEvent
        Case comEvReceive       ' Si on reçoit des données
            Tampon = MSComm1.Input
            connected = True
            Call Traitement(Tampon) ' Routine de traitement
 
        Case comEvSend          ' Il y a des caractères à envoyer
 
    End Select
End Sub

Le problème est que lorsque dans mon code je fais un MSComm1.Output = "-" & vbCrLf, je rentre dans le case ComEvReceive ET dans le case ComEvSend, qu'un périphérique soit réellement branché ou non... Du coup je passe connected à true alors que je pourrai très bien ne pas être connecté et mon Tampon contient ce que j'ai envoyé, à savoir un moins ("-")...

**ProgElecT** · 05/11/2006, 01h04

Il me semble que la procedure Public Sub Connect_COM() pose problem

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    ' Recherche port
    If portCom = 0 Then
        For i = 1 To 22
            On Error Resume Next
            MSComm1.CommPort = i
            MSComm1.PortOpen = True ' Test de l'ouverture du port
            DoEvents  '  Recupération d'une erreur éventuelle
            If Err.Number = 0 Or Err.Number = 8005 Then  ' 8005 = une autre appli utilise ce port
                portCom = i
                Exit For ' Gros doute ICI
            End If
        Next i
    End If

ATTENTION si Err.Number = 8005 (Port déjà ouvert non pas par ton prog puisque tu n'as plus de port ouvert (fermer plus haut))
la ligne MSComm1.CommPort = portCom suivant la sortie de la boucle FOR
va forcement declancher une erreur puisque l'autre prog en a l'exclusivité
On ne peut pas gérer un port ouvert par un autre programme

Ceci etant encadré par la condition
If portCom = 0 Then
.....
End If
Si portCom <> 0 a l'entrée de cette procedure, tu a donc trouvé un port libre que tu a mis dans cette variable (portCom), reste que si tu as procedé de la même façon pour trouver ce N° de port, tu essais peut-être de gérer un port occupé exclusivement par un autre programme.
Cela ne repond pas au probleme d'ECHO (retour de la tramme), j'ai essayé de reproduire cette etat chez moi, malheureusement je ni arrive pas.
Essais de mettre un autre periferique sur le port COM, lance ton prog, si le probleme est toujours là, ton driver pour le/les port COM doit etre deffectueux ou le/les circuits integrés sont abimés.
Les lignes d'une prise COM peuvent agire comme antenne, (mauvais blindage), ce qui expliquerait peut-être que sans aucun periferique branché il y ai des réactions aléatoires.
Une derniere façon d'eliminer des doutes, fais un essais de ton prog sur un autre ordinateur.

l'electronique etant aussi une passion pour moi, je suis ce post depuis le debut.

Bon courrage

**Original Prankster** · 05/11/2006, 10h16

Oula...

Mais avec un HyperTerminal basique de Windows, tout cela marche très bien ! Vous étayez quand même la thèse du port COM défectueux ?

**ProgElecT** · 05/11/2006, 11h49

Bonjour
Etes vous sûr de vous brancher sur le bon port COM avec le prog VB.
Certain PC ayant un ou plusieurs port COM en interne, lors du balayage par prog VB on détecte des ports qui ne sont pas accessible (en faite ces ports ne sont pas physiquement liés à un connecteur externe).
Je pense au port souris, clavier ou autres sur certain PC portable en particulier.

Pouvez vous me ziper le projet entier, je pourrai peut-être arriver a reproduire le même phénomène, et là si sa ne fonctionne pas aussi chez moi, on serrât sûr que c’est le prog VB qui demande à être débuguer.

J'ai fait un périphérique a base de PICBASIC H3 qui me permet de vérifier un programme écrit en VB qui utilise le port COM, cela fera l'occasion de l'utiliser pour votre cas.

**Original Prankster** · 05/11/2006, 17h49

Depuis l'installation de mon adaptateur USB/RS232, mon ordinateur possède un nouveau port COM (n°13) qui est celui que j'utilise avec l'HyperTerminal, tout comme avec l'appli VB.

Voici néanmoins les sources. Evidemment l'appli n'est pas entièrement fonctionnelle.
http://www.ankhoon.net/~mliotard/projet.rar

Merci d'avance pour votre aide et soutien.

**SfJ5Rpw8** · 05/11/2006, 18h34

Envoyé par Original Prankster

Depuis l'installation de mon adaptateur USB/RS232, mon ordinateur possède un nouveau port COM (n°13) qui est celui que j'utilise avec l'HyperTerminal, tout comme avec l'appli VB.
....

et tu n'as pas de port série standard ..?

**Original Prankster** · 05/11/2006, 18h41

Non, pas sur mon laptop... Enfin, j'ai un port COM3 détecté mais aucune prise RS232 y correspondant. Je soupçonne la souris optique USB, comme le suggérait ProgElecT.

Sinon, nouveaux rebondissements dans l'affaire je crois avoir fait une découverte qui pourrait être intéressante :

Si j'ouvre mon port COM, et que j'y écris puis que j'écoute, je reçois ce que j'y ai écrit. Rien de nouveau là-dedans, c'est le problème qui a motivé ce topic.

Maintenant si j'ouvre mon port COM et que j'écoute sans y écrire de manière préalable, tout à l'air de bien fonctionner... Les écritures ensuite s'effectuent sans problème.

Ce qui m'embête c'est que j'ai quand même besoin d'y écrire avant l'écoute, ne serait-ce que pour réinitialiser la carte.

Avancerait-on ? ...

[vb6] Evénement de réception/envoi sur port COM

VB 6 et antérieur

Discussions similaires

Partager

Partager