Gerer l'évènement oncomm d'une liaison

Commenter

Contenu du snippet

Pour que ce code fonctionne pensez a régler votre port en metant :

monPort.RTHreshold = 1

Sans quoi tout ce qui arrivera dans votre buffer d'entrée ne sera pris en compte.

Source / Exemple : 


Private Sub Com1_OnComm()
Dim recu, tmpstr
Dim tmpImpul As Integer
tmpImpul = 0

'Pour ce programme, je reçoit et traite les caractère reçus un à un, 
'Si vous voulez lire tout les 3 caractères reçus, il vous suffira de mettre : 
'
'While Com1.InBufferCount = 3
'recu = Com1.input
'wend
 
While Com1.InBufferCount <> 0
  recu = Com1.Input
Wend

'Ici je compare l'octet recu celon mes propres critères.
If (Hex(recu) And &H10000000) Then
     'Mes intruction confidentielles =)
End If

End Sub

Conclusion :


Si vous voyez un tit bug, n'hesitez pas a me laisser un post =)

Ben.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_benbax)