Communication port série.

Question

Bonjour à tous, j'ai un soucis pour programmer une communication ...

Je dois envoyer des informations à un robot par un port série, puis attendre sa réponse et lui en renvoyer une autre.

Pour le premier envoi, pas de problème mais mon soucis, c'est quand j'attend sa réponse.

Soit elle n'arrive jamais (le robot la renvoi c'est sur ^^), soit je ne sais pas comment la détecter.

J'ai essayer d'utiliser le MSComm1_OnComm mais je n'ai rien eu de bon.


Si quelqu'un pouvait me dire comment lire les informations recus par le port série.

jrivet · Answer

Salut,
Regarde dans la section code si tu n'en trouve aucun qui puisse t'aider à résoudre ton problème et à comprendre la réception de données avec MSCOMM on en reparlera. Mais j'en doute.

@+: Ju£i?n
Pensez: Réponse acceptée

pandaye · Answer

J'ai déjà été voir les différents codes sources.

Mon MSComm1_OnComm ne s'active pas (j'ai poser un point d'arrêt et le prog ne passe pas par la). Mais le robvot fais bien les mouvements (donc les infos sont bien envoyer).

Et lorsque j'utilise le comm1.input, je n'arrive pas à faire de boucle me permettant de la vérifier jusqu'à se qu'elle change.

Merci de me contacter si tu veux bien m'aider.

NHenry · Answer

Bonjour

Tu as mis RThresold (ou un nom du genre) à une valeur différente de 0 (1 par exemple) ?

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site

pandaye · Answer

j'ai rajouté RThresold = 1 dans ma form mais il ne va toujours pas dans le MSComm1_OnComm et pour ma boucle elle est toujours infini ...

NHenry · Answer

Bonjour

Peux-tu montrer comment est ta boucle de réception ?
Utilises-tu un DoEvents ?

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site

pandaye · Answer

For i = 0 To 1

if mscomm1.input < > memoire then       
memoire = mscomm1.input 
Label2.Caption = MSComm1.input
else 
i=i-1
end if
Next i

J'avais essayer une boucle avec For / Next .

NHenry · Answer

Bonjour

Sauf erreur de ma part, "mscomm1.input" retourne un tableau d'octet ou une chaine de caractère puis vide le tampon de réception.

A la place d'un :
    For i=0 to 1
    ...
        If ... Then
            i=i-1
        End if
    next
Préfère un :
    Do
        ...
    Loop {while|until} ...

Pour savoir si tu as reçu quelque chose, utilises InputLen (ou approchant) pour connaitre la quantité de données reçues.

En supposant que tu reçois une string :
Dim lRecept as String
lRecept=""

do while mscomm1.InputLen=0 'Revoir le nom de la prop, je n'en suis pas sûr.
    doevents 'pour laisser souffler le programme
loop

lrecept=mscomm1.input

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site

pandaye · Answer

Do While MSComm1.InBufferCount = 0   
       DoEvents 'pour laisser souffler le programme
Loop

If MSComm1.InBufferCount > 0 Then
       Label6.Caption = MSComm1.Input
End If

le label me marque "?"

j'ai essayé de remplacer inbuffercount par mscomm1.InputLen et le label ne change pas (le programme ne rentre pas dans la boucle).

NHenry · Answer

Bonjour

La communication doit se faire en ASCII seul ?
Sinon, il se peut que ce soit un pb de parité (paire d'un coté et impaire de l'autre) et que la propriété ParityReplace (ou ressemblant) soit à True.

Le fait qu'il ne rentre pas dans la boucle indique que des données ont été reçues (InBufferCount>0), donc normalement, le test après sera toujours vrai (sauf si tu ajoute une gestion  de timeout).

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site

pandaye · Answer

tu veux pas venir m'expliquer ton histoire de ASCII sur msn car sinon ca risque d'être long par forum.

mon adresse c'est aye350z@hotmail.fr

NHenry · Answer

Bonjour

1) je n'ai pas MSN
2) Je suis au boulot, donc pas de MSN non plus

Pour t'aider d'avantage, il faudrais peut être ce que tu transmet et comment (Bauds, parité, nbbits, nbstop, ...).

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site

pandaye · Answer

Moi le programme es tpour le travail donc j'ia droit à msn ^^.

Sinon mes paramêtres sont : MSComm1.Settings = "600,n,8,1"

NHenry · Answer

Bonjour

Déjà, tu reçois quelquechose 

Au moment où tu passe dans le test pour définir le texte du label, tu as combien dans la propriété InBufferCount ?

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site

pandaye · Answer

Merci pour ton aide, j'ai réussi à le faire marcher !!!

Maintenant je dois faire une com entre un siemens cpu 400 et VB par un serveur OLE tu saurais encore m'aider ?

NHenry · Answer

Bonjour

Dsl, mais OLE, ça fait un moment que j'ai laissé tomber.
Tu peux regarder du coté de COM (DLL ActiveX).

Nous captons le cockpit coupable qui a capoté
VB (6, .NET1&2), C++, C#.Net1
Mon site

Communication port série.

15 réponses

Votre réponse

Discussions similaires