MSComm1.Input et InBuff ?????????????? Résolu

Question

Bonjour, je communique avec un microcontr&#244;leur PIC16F874 sur
le port s&#233;rie.

La ou &#231;a marche pas, c'est avec MSComm1.Input et InBuff.

Je m'explique, quand je place un point d'arr&#234;t sur la ligne Call
HandleInput(InBuff) et j'ex&#233;cute le programme, la donn&#233; 

dans InBuff et MSComm1.Input sont diff&#233;rente.



Exemple: en laissant le curseur de la sourie sur MSComm1.Input &#231;a donne
"0,0,0,255,255,48,0" et InBuff &#231;a donne  "255,48"



Pourquoi  MSComm1.Input ne se transfert pas compl&#232;tement dans InBuff ??????




Private Sub Form_Load()

         With MSComm1

            .CommPort = 1

            .Handshaking = 2 - comRTS

            .RThreshold = 1

            .RTSEnable = True

            .Settings = "38400,n,8,1"

            .SThreshold = 1

            .PortOpen = True

            .InputLen = 0

         End With

End Sub



Private Sub MSComm1_OnComm()

    Select Case MSComm1.CommEvent

            Case comEvReceive

            Dim InBuff As String

            InBuff = MSComm1.Input

            Call HandleInput(InBuff)

    End Select

End Sub

Sub HandleInput(InBuff As String)

etc.....

Pierre1271 · Accepted Answer

Ok , la premi&#232;re exemple est la bonne.


Indispensable votre site pour tous programmeurs de VB.


Merci Pierre1271 St-F&#233;licien,Qu&#233;bec........

cs_casy · Answer

Si tu met ton point d'arret, sur la ligne 'call HandleInput(...)', et
que tu n'ais pas la m&#234;me chose dans InBuff et dans .Input, cela ne me
d&#233;range pas et c'est m&#234;me plutot bon signe. Cela veut simplement dire
que tu as r&#233;cup&#233;r&#233; (dans InBuff) les donn&#233;es recues sur le port s&#233;rie
(dans .Input) au moment de ...... la r&#233;cup&#233;ration justement.

Il faut savoir que &#224; partir du moment ou tu r&#233;cup&#232;re les donn&#233;es de
.Input, elles sont &#233;crite dans ta variable ET EFFACER de .Input, donc,
sur un point d'arret, tu ne pourras jamais avoir la m&#234;me chose des 2
cot&#233;s, normalement MSComm1.Input devrait etre vide.



Mais alors pourquoi .Input n'est pas vide ? 

Tout simplement parce que la reception n'&#233;tait pas fini au moment ou tu
as r&#233;cup&#233;r&#233; tes donn&#233;es. L'&#233;v&#232;nement comEvReceive est d&#233;clench&#233; d&#232;s
reception du 1er caract&#232;re, mais les temps de traitement font que entre
le d&#233;clenchement de l'&#233;v&#232;nement et le moment ou tu lis les donn&#233;es, tu
as eu le temps de recevoir 2-3 caract&#232;res suppl&#233;mentaires mais pas tout
ce que tu attendais. Dans Inbuff tu n'as qu'une partie de ta chaine, le
reste t'attend encore dans le .Input.



A toi de faire une boucle pour tout lire, ou d'attendre d'avoir tout
re&#231;u avant de venir lire en une fois, c'est &#224; toi de voir en fonction
de tes besoins




<hr size="2" width="100%">Si le cerveau &#233;tait assez simple pour que nous puissions le comprendre,

nous serions assez b&#234;te pour ne pas le comprendre malgr&#233; tout.

Pierre1271 · Answer

Merci pour l'explication de  MSComm1.Input et InBuff, c'est clair.

Pour la boucle avez-vous un exemple que je pourrais utilis&#233; ?




Merci encore.

cs_casy · Answer

pour te donner un exemple c'est un peu délicat car je ne connais pas ton appli. tu as plusieurs possibilités, en voici deux par exemple soit tu connais à l'avance le nombre de caractère que tu doit recevoir, dans ce cas tu attends que tous les caractères soient arrivés avant de les lires: do doevents loop while MSComm1.InputBufferCount< nbCharAttendu InBuff=MSComm1.Input soit la chaine que tu recois et terminer par un caractère spécifique que tu ne peut pas retrouver au milieu de la chaine : MSComm1.InputLen=1 do char_lu=MSComm1.Input InBuff=Inbuff & char_lu doevents loop while char_lu <> caractere_de_fin ce sont 2 pistes parmis des quantités d'autre, c'est à toi de voir en fonction de ton appli et des données que tu dois recevoir. Fais une recherche sur le sources de ce site, il doit surrement y avoir quantité de codes dans lequels tu trouvera des idées. PS : Le code que je te donne ci-dessus doit etre sérieusement amélioré, avec des tests des protections, etc... car utilisé tel quel tu peux très vite te retrouver avec des boucles infinies, par exemple si pour une raison ou une autre tu ne recois jamais le caractère de fin, tu resteras indéfiniment dans la boucle du second exemple.

Si le cerveau était assez simple pour que nous puissions le comprendre, nous serions assez bête pour ne pas le comprendre malgré tout.

killua84 · Answer

Now I want use input sign seng from modem to COM port by 8 bit. Then save it in array. End then delay it in the chart about digram type sign from COM send to.
Help me!
Thank ve ry much!

MSComm1.Input et InBuff ??????????????

5 réponses

Discussions similaires