Discussion :

[Brice_68]

Bonjour,

j'ai un petit souci avec l'ocx mscomm32.
Lorsque je l'utilise pour récupérer une trame de 12 caractères, il me fait des découpages aléatoires...
Tanto 4 cacatères, tanto 6, tanto un mélange de l'ancienne trame avec la suivante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MSComm1_OnComm()
Dim InBuff As String
 
Select Case MSComm1.CommEvent
 
Case comEvReceive
 
    tampon = MSComm1.Input
    MsgBox (tampon)
 
End Select
End Sub

Je souhaite relever des chaines de 12caractères envoyées sur le port com.
Quelqu'un à déja eu ce problème de mauvais découpage?

[ProgElecT]

Avant de commencer une reception, vide le buffer de reception

Code :

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

MSComm1.InBufferCount = 0

puis

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub MSComm1_OnComm()
Dim InBuff As String
If MSComm1.CommEvent = comEvReceive Then 'reception d'un message
 If MSComm1.InBufferCount >= 12 Then
  'je recupere la trame faisant au moins 12 caractéres
   InBuff = MSComm1.Input
  MSComm1.InBufferCount = 0 'vide le buffer de reception
 End If
End If
End Sub

tanto un mélange de l'ancienne trame avec la suivante

Si tu as un code de fin renvoyé par ton peripherique ("HOR" dans mon source)

Code :

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

1
2
3
4
5
6
7
 If MSComm1.InBufferCount >= 12 Then
  'je recupere la trame faisant au moins 12 caractéres
  InBuff = MSComm1.Input
  If Right$(Trim$(InBuff ), 3) = "HOR" Then
   InBuff = len(InBuff) - 3
  End If
 End If

[Brice_68]

Je n'ai malheureusement pas de code de fin, sinon c'est vrai que ça aurait été plus simple.
Par contre, je testais la taille de ma trame une fois récupérée et si elle ne fesait pas 12, je recommençais.
très bonne idée de tester la taille du buffer, comme quoi un avis extérieur peut vous montrer des choses toutes simples dont vous êtes passé à coté!
Bref, Merci! ca fonctionne à présent!

[OhMonBato]

Tu n'as pas un separateur quelconque en debut ou fin de trame ? Une virgule, un CRLF, autre chose ?

Si par malheur, le message est parasite, qu'il t'arrive un caractere de trop ou pas assez, si tu attends d'avoir 12 caracteres, ton decodage va etre errone non ?