Probleme avec le port com

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:

---

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

Bienvenue sur DVP

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

Citation:

---

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:

---

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:

---

1 2 3 4 5

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

---

Bonne chance

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