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
