Probléme avec DoEvents

Question

Salut
   Merci d'avance pour vos aides. J'est r&#233;alis&#233; un programme en visual basic 6.0 qui re&#231;oit les donn&#233;es a travers le com1 et le com2 pour cela j'est travaill&#233; avec la proc&#233;dure d'&#233;venement  OnComm() du contr&#244;le OnComm qui ce d&#233;clanche automatiquement des que le port s&#233;rie (Com1 ou Com2) re&#231;oit des donn&#233;es. a l'int&#233;rieur de cette proc&#233;dure j'est utilis&#233; le syntaxe suivant : 
Do
          DoEvents
          tampon_ptb220 = tampon_ptb220 & mscPTB220.Input
 Loop Until InStr(tampon_ptb220, Chr$(13) & Chr$(10)) 
 A l'execution du programme et apr&#233;s quelque minute il envoi le message d'erreur suivant "Erreur d'execution 28 espace de pile insuffisant"
et quand je fait le d&#233;bogage il me signale que l'erreur et au niveau du syntaxe DoEvents . Sachant que lorsque je met DoEvents en commentaire le SE se plante.
Merci

econs · Answer

C'est certainement ta variable tampon_ptb220 qui explose. Elle doit contenir trop d'&#233;l&#233;ments.

tampon_ptb220 prend trop de m&#233;moire, et au moment o&#249; DoEvents la sollicite, c'est la goutte qui fait d&#233;border le vase.

Mais ton probl&#232;me doit bien se situer sur ta boucle Do ... Loop.

Soit elle ne s'arr&#234;te jamais, soit il y a trop d'input avant de recevoir le caract&#232;re de fin. 

1&#232;re possibilit&#233; &#224; privil&#233;gier.






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

perathoner · Answer

Hello.



Elle est de quel type ta variable tampon_ptb220 ???



Pourquoi ne met tu pas un tableau d'octets &#224; la place ??? (ex : Dim toto() as Byte) 



J'imagine que t'es donn&#233;es re&#231;u sur des COM1 et COM2 ont un
protocole... ex protocole Modbus... donc t'es donn&#233;es sont
encapsul&#233;es... suivant une trame que toi tu d&#233;code par la suite..pour
que t'es donn&#233;es ais un sens. Donc en fonction de ton protocol tu
devrais faire n tableau d'octets ou d'autres chose !!! je ne connais
pas ton projet... &#224; toi de voir..



@+

perathoner · Answer

Re..



Ou bien le pb vient du fait que ta boucle est infinie... c'est &#224; dire que ta condition de stop n'arrive jamais...???

Moi perso j'ai eu plusieurs fois ce message et &#224; chaque fois c't un pb de boucle infini...voil&#224;.



@+

lbch1974 · Answer

Merci 
Mon variable tampon_ptb220 est de type string sachant qu' a l'execution du programme il ya r&#233;c&#233;ption des donn&#233;es et le programme le traite et l'affiche dans un TextBox . Mais le message d'erreur se manifeste apr&#233;s quelque minute

acecel · Answer

Oui car la condition pour sortir de la boucle n'est jamais v&#233;rifi&#233;e, donc ta variable Tampon se remplit jusqu'&#224; saturation.
De plus ta boucle fait appel sans cesse &#224; la fonction .input de ta variable mscPTB220, et ce de mani&#232;re asynchrone, c'est &#224; dire qu'il n'attends pas que l'execution de cette fonction soit finie avant de continuer la proc&#233;dure, et donc il l'appelle sans cesse, jusqu'&#224; ce qu'il y ait trop d'appels dans la pile m&#233;moire, et l&#224; ca plante.

Enfin je croit

perathoner · Answer

Re.



L'id&#233;e &#224; mon sens, s'est qu'il faudrait que tu d&#233;termine une proc&#233;dure
pour d&#233;terminer quand dois tu lire ton buffer de r&#233;ception, et quand ne
dois tu pas lire.

ex : On part du principe que ton buufer de r&#233;ception est vide.

      Quand tu vois qu'il y a des donn&#233;es qui
viennent d'arriver, tu ne fais rien et tu attend qu'il n'y ai plus de
mouvement pour aller les lire. 

       L&#224; tu regarde le nombre d'octets que tu
as re&#231;u. En fonction de ce nombre tu dimmensionne un tableau d'octets.
Dans lequel tu stocke ta trame.

    Puis dans une boucle, tu d&#233;code toute ta trame...



Je sais pas si &#231;a t'aide..??

lbch1974 · Answer

Merci Monsieur perathoner mais je vous signale que la boucle ne s'execute pas &#224; l'infini car sinom le prgramme ne va pas afficher la valeur suivante qui est diff&#233;rente de la valeur pr&#233;c&#233;dente.

econs · Answer

"Et pourtant elle tourne"  ... &#224; l'infini



DoEvents n'a jamais fait planter quoi que ce soit. Ton message d'erreur provient bien de la pile. acecel t'a mis sur la voie dans un pr&#233;c&#233;dent message.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

acecel · Answer

Au lieu d'utiliser une boucle, essaye plut&#244;t d'utiliser un timer, en d&#233;finissant un intervalle qui s'accorde bien avec la vitesse de r&#233;ception des donn&#233;es sur ton port COM. 
D&#232;s que le programme ne recoit plus de donn&#233;e, affiche la variable Tampon &#224; l'ecran, et r&#233;initialise l&#224;.

Car &#224; mon avis, la boucle est "trop rapide" pour recup&#233;rer les informations sur le port COM, lui n'arrive plus &#224; suivre, la pile m&#233;moire se sature, et donc ca plante.

lbch1974 · Answer

Merci encore une fois
Le probl&#233;me est r&#233;solu avec l'instruction On Error Resume Next
Bon travail

acecel · Answer

Si tu t'est content&#233; de mettre On Error Resume Next, alors tu n'as pas corrig&#233; l'erreur, la seule diff&#233;rence c'est qu'elle n'apparait plus
(Dans ce cas essaye d'utiliser une des solutions propos&#233;es ici pour vraimment corriger le probl&#232;me)
Sinon alors je n'ai rien dit

acecel · Answer

Et derni&#232;re petite chose, si tu consid&#232;re que ton probl&#232;me est r&#233;solu, click sur le bouton r&#233;ponse accept&#233;e sur le post qui t'a aid&#233;

econs · Answer

> Le probl&#233;me est r&#233;solu avec l'instruction On Error Resume Next



Fichtre ! En voil&#224; une aberration !

Tu n'as rien corrig&#233; du tout. Ca s'appelle "&#233;touffer le probl&#232;me", avec
les cons&#233;quences que &#231;&#224; peut avoir sur la suite du code...






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

perathoner · Answer

Tu pose un Timer, avec un interval de 10.

Au pr&#233;lable, tu initialise correctement du control MsComm (Vitesse, parit&#233;...)



'###############################################################

Public MemNbOctet As Integer       'M&#233;morise le Nb d'octet en attente en lecture

Public TabOctet() As Byte        
      'Tableau dans lequel tu m&#233;morise les donn&#233;es
issues du buffer



Private Sub Timer1_Timer()

Dim nboctet As Integer

nboctet = 0



' Retourne le nombre d'octet en attente de lecture

nboctet = MSComm1.InBufferCount



' On cherche si on est bien &#224; la fin de la question...

If nboctet = MemNbOctet Then

    If nboctet > 0 Then

        ' Stocke dans un tableau d'octets pour traitement par la suite

        ReDim Preserve TabOctet(nboctet - 1)

        TabOctet = MSComm1.Input

          ' [ ICI TRAITEMENT DE TES INFOS ]

    End If

Else

    MemNbOctet = nboctet

End If

End sub

' ######################################################



Apr&#232;s, &#224; toi de faire le traitement appropri&#233; afin de d&#233;cortiquer les donn&#233;es dans le tableau TabOctet().... 



Franchement je vois pas comment &#231;a peut ne pas fonctionner...