Discussion :

[Renard-fou]

Bonjour,
Je communique avec un automate via le port série de mon PC avec le control MScomm32.ocx.
J'ai un probleme 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
 
Private Sub lecture() 'Verification que le mot à été transmis à l'automate
tampon = ""
instant = Now
Do
DoEvents
timeout = DateDiff("s", instant, Now)
Loop Until InStr(tampon, "OK") Or timeout > 10
If timeout > 10 Then
MsgBox ("problème de timeout ")
End If
End Sub

J'ai toujours mon message d'erreur qui s'affiche alors que dans mon tampon j'ai bien "OK" qui s'y trouve, en ASCII.
Est ce que qqun voir le probleme ??
Merci

[SfJ5Rpw8]

et si tu modifié ta ligne de test avec :

Code :

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

Loop Until InStr(TAMPON, "OK")>0  Or timeout > 10

au cas ou OK ne soit pas au début de ta chaine...

PS : Tant que tu est dans les modifs... modifie le titre du post .. en le "taggant" avec le tag qui convient [VB6],[VBA-E] ...

[Renard-fou]

Non ça ne marche pas.
Mais Loop until, je sais que cela sert à arreter la boucle,
Mais instr c'est compatible avec le MScomm ??
Sinon faut que j'envoi à l'automate une instruction pour lui dire d'arreter son envoi. mais sans LOOP until ...

[SfJ5Rpw8]

eu... inStr permet de connaitre la position d'une chaine dans une autre...

sinon comment est mis à jour ta variable tampon...? ou as tu mis cette partie de code..du genre Tampon = MScom.Input.. ?


As tu consulter le tutorial relatif au mscom :
http://grafikm.developpez.com/portcomm/

[Renard-fou]

voila comment j'obtiens mon Tampon :

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() 'Port en communication
Select Case MSComm1.CommEvent
        Case comEvReceive 'Cas ou le port Reçoit des données
            'l'input est 1 caractere donc on va a chaque
            'envoi de caractere créer un tampon qui stocke les
            'données
        tampon = MSComm1.Input
 
      End Select
End Sub

[SfJ5Rpw8]

tu nous montre pas ou tu déclare ta variable tampon ...(Dim...) elle est bien globale et donc commune au 2 boucles..?

[Renard-fou]

Oui je l'ai mis dans le (général) ; (déclaration)

Code :

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

1
2
3
4
 
Dim tampon, port As String
Dim instant
Dim timeout

[ThierryAIM]

dans tous les cas, tu n'auras jamais "OK" dans tampon avec

Code :

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

tampon = MSComm1.Input

tu aurais plus de chance avec :

Code :

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

tampon = tampon & MSComm1.Input

[Renard-fou]

Merci beaucoup pour votre aide,
j'ai bidouiller un peu et nottament ce que vous m'avez signalé et ça à l'air de fonctionner.
Merci et bonne nuit à vous 2.