Discussion :

[gedonet]

Bonjour
Dans le but de faire un programme pour communiquer avec un µC pic par le port RS232, j'ai testé un bout de code trouvé sur le net et j'ai quelques difficultées à le faire fonctionner.
Mon µC envoie en permanence une suite de lettre, defg, le PC Win XP reçoie bien les lettres, je l'ai verifié avec un logiciel d'analyse de port com.
J'utilise, sous VB6 le composant Microsoft Comm Control 6.0
Lors de mes tests cela ne fonctionne pas en mode normal, par contre en mode pas à pas cela fonctionne aussi je me demande ou peut etre mon erreur.
voici mon programme:

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
 
 
Private Sub Command1_Click()
A:
Label1.Caption = ""
MSComm1.InBufferCount = 0
MSComm1.CommPort = 2
MSComm1.Settings = "1200,N,8,1"
MSComm1.Handshaking = comNone
MSComm1.InputLen = 1
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
Do While MSComm1.Input <> "d"
        DoEvents
Loop
MSComm1.InputLen = 3
Label1.Caption = MSComm1.Input
MSComm1.PortOpen = False
GoTo A
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MSComm1.PortOpen = False 'je ferme le port série
End Sub

Il s'agit de detecter la lettre d et d'afficher les trois lettres reçues suivantes.
Si vous avez une piste pour ma recherche d'erreur, je vous en remercie d'avance.
Gilles

[zazaraignée]

Bienvenue sur DVP

Tu aurais dû commencer ta recherche par ici. Tu aurais trouvé ceci.

[ProgElecT]

InputLen, propriété
Définit et renvoie le nombre de caractères lus dans le tampon de réception par la propriété Input.
........
........
Si le nombre de caractères indiqué par la propriété InputLen n'est pas disponible dans le tampon de réception, la propriété Input renvoie une chaîne de longueur nulle (""). L'utilisateur peut éventuellement vérifier la valeur de la propriété InBufferCount pour déterminer si le nombre de caractères requis est disponible avant d'utiliser la propriété Input.

les lignes

Code :

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

1
2
MSComm1.InputLen = 3
Label1.Caption = MSComm1.Input

Tu as toutes les (mal)chances d'avoir demander a recuperer l'infos avant que les 3 lettres attendues ne soient dans le buffer.
Il faudrait faire une boucle en interrogeant le buffer (InBufferCount) du style (a verifier)

Code :

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

1
2
3
4
5
MSComm1.InputLen = 3
Do While MSComm1.InBufferCount <=2
 DoEvents
Loop
Label1.Caption = MSComm1.Input

Bonne chance

[gedonet]

Bonjour
Merci pour vos reponses
zazaraignée > j'ai bien entendu consulté la page que tu proposes en premier avant de poser ma question sur le forum.

ProgElecT > j'ai ajouté les lignes que tu proposes et le resultat est le même pas de fonctionnement en mode normal par contre cela marche toujours en mode pas à pas. Ce que je ne comprend pas c'est le fait que cela fonctionne en mode pas à pas, j'ai pourtant mis des tempos entre les envoies sur le pic, environ 500ms c'est long du point de vue du pic.

Merci encore pour l'interet que vous avez porté à ma question et si vous avez d'autres idée à me soumetre, n'hesitez pas.
Gilles