Problème d'acquisition des trames en RS232

Signaler
Messages postés
3
Date d'inscription
lundi 2 mars 2009
Statut
Membre
Dernière intervention
26 avril 2012
-
bonjour .

J'ai mon programme qui récupère bien les données et les affiches.
Mais j'ai un problème,j'arrive pas a détecter la fin de la trame "FF" quand j'augmente la vitesse.

Quelqu'un aurait-il quelques idées ?
Merci d'avance.

Partie du programme :
With MSComm6
         .CommPort = Com
         .Handshaking = 2
         .RThreshold = 1
         .RTSEnable = True
         .Settings = " " & rstTemp![Vitesse] & " ," & Par & "," & rstTemp![Bitsdonnées] & " ," & rstTemp![Bitsstops] & ""  ' paramétrage
         .SThreshold = 1
         .InputLen = 0 ' lecture total du buffer
    End With
        On Error GoTo Error11
        MSComm6.PortOpen = True
        Do While MSComm6.PortOpen = True
         MytimeD = Now
         tampon1 = Trim(MSComm6.Input)
         DoEvents
 For I = 1 To Len(tampon1)
   tampon = tampon & " " & Right$("0" & Hex(Asc(Mid$(tampon1, I, 1))), 2)
 Next I
         If InStr(tampon, "FF") <> 0 Then
            'MytimeF = Now
            'Call Traitement(tampon, MytimeD, MytimeDA, MytimeF)
            Text1 = Text1 & vbCrLf & " > " & MytimeD & " > " & tampon
            tampon = ""
            tampon1 = ""
         End If
  Loop