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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 094 fois - Téléchargée 26 fois

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

Ajouter un commentaire

Commentaires

kiki9741
Messages postés
9
Date d'inscription
lundi 10 juillet 2006
Statut
Membre
Dernière intervention
4 juillet 2007
-
Je cherche à faire la même chose avec J2ME sur un QTeck 2200 --_-- .
Quelqu'un pourrait-il m'éguiller ?

Merci
cs_SylMat
Messages postés
92
Date d'inscription
mardi 19 novembre 2002
Statut
Membre
Dernière intervention
3 mai 2007
-
Je reste sur mes positions, t'as de l'avenir mais maintenant va falloir nous en faire une entière d'aplli.
Bonne continuation :op

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.