probleme de timerRésolu

Question

Salut je travail sur une application vb6, et mon objectif est de
r&#233;cup&#233;rer des donn&#233;es qui arrivent ur le port COM. En fait, la carte
qui m'envoie les donn&#233;es le fait sans cesse, mais moi je desire cr&#233;er
un timer (ex: 1sec, 10sec,...) qui va me permettre de piocher dans les
donn&#233;es en fonction de mon timer.


Mais je n'y parvient pas, mon timer ne sert a rien car mon application
r&#233;cupere les donn&#233;es de la meme fa&#231;on qu'elles arvent, c'est a dire
sans cesse.


je pensais integrer le timer dans la partie case, mais je n'y arrive pas :s


Merci davance pour votre aide








code:


'declaration des variables


    Public temps1 As Integer


    Public temps2 As Integer


    Public temps3 As Integer





'configuration timer


Private Sub Timer1_Timer()


    Dim out(0) As Byte


    If temps3 = 0 Then


        out(0) = 0


        MSComm1.Output = Chr(65)


        temps3 = temps2


     Else


        temps3 = temps3 - 1


    End If


End Sub








'a la reception enregistrement sous excel


Private Static Sub MSComm1_OnComm()


    Dim r&#233;sultat() As Byte


    Dim So2  As Single


    Dim Mire As Single


    Dim No2 As Byte


    Select Case MSComm1.CommEvent


        Case comEvReceive


            r&#233;sultat() = MSComm1.Input


            So2 = r&#233;sultat(1)


            Label3.Caption = Format(So2, "Fixed")


            Mire = r&#233;sultat(0)


            Label4.Caption = Format(Mire, "Fixed")


            Label1.Caption = Time


            No2 = r&#233;sultat(2)


            Label8.Caption = Format(No2, "Fixed")


            Label3.LinkItem = "L" & ligne & "C2"


            Label1.LinkItem = "L" & ligne & "C1"


            Label4.LinkItem = "L" & ligne & "C4"


            Label8.LinkItem = "L" & ligne & "C3"


            Label3.LinkPoke


            Label1.LinkPoke


            Label4.LinkPoke


            Label8.LinkPoke


            ligne = ligne + 1


    End Select


End Sub

rvblog · Accepted Answer

Salut S4ngo, salut Durando,

bon d'acccord, mais tu es responsable du fait que j'aurais fum&#233; une cigarette de plus :)
Notes bien, s'il te plait, que je ne l'ai pas mis en oeuvre (m&#234;me pas une fois), je l'ai juste &#233;crit (copie et colle dans VB, ce sera plus lisible). C'est le principe qui est important, pas la m&#233;thode. Je te laisse trouver ce qu'il faut faire dans le timer pour, &#233;ventuellement, consommer (vider les &#233;l&#233;ments trait&#233;s) le tampon membre, et &#233;viter de gaspiller de la m&#233;moire.
Au risque de r&#233;p&#233;ter Durando, pour &#233;viter l'usine &#224; gaz (mais bon, quand on comprend ce qu'on &#233;crit, et qu'on le documente, l'usine &#224; gaz c'est pas si grave), utilises le mode de fonctionnement qui consiste &#224; donner la taille des donn&#233;es (dans la propri&#233;t&#233; .RThreshold) &#224; partir de laquelle, une fois atteinte, l'&#233;v&#232;nement OnComm() se d&#233;clenchera (c'est le plus pratique quand les donn&#233;es que tu re&#231;ois sont de taille fixe).

Private bytTampon() As Byte                 'le tampon membre
Private intIndiceATraiter As Integer        'indice de parcours du tampon membre,
                                            'pour traitement (il pointe vers le prochain
                                            '&#233;l&#233;ment &#224; traiter)


Private Sub Form_Load()
    intIndiceATraiter = 0
End Sub


Private Sub MSComm1_OnComm()
Dim bytTemp() As Byte                       'tampon temporaire, local &#224; la proc&#233;dure
                                            ', &#233;cras&#233; &#224; chaque fois
Dim intDimensionDerLecture As Integer       'indice de lecture du tampon temporaire
Dim intDimensionAncienTampon As Integer     'indice du dernier &#233;l&#233;ment du tampon membre
                                            ', avant redimensionnement
Dim intDimensionNvelleTaille As Integer     'indice du dernier &#233;l&#233;ment du tampon membre
                                            ', apr&#232;s redimensionnement
    Select Case MSComm1.CommEvent
        Case comEvReceive
            'lit les donn&#233;es en entr&#233;e du MSComm
            bytTemp() = MSComm1.Input
            'stocke les tailles
            intDimensionDerLecture = UBound(bytTemp)
            intDimensionAncienTampon = UBound(bytTampon)
            intDimensionNvelleTaille = intDimensionAncienTampon + intDimensionDerLecture
            'redimensionne le tampon, en pr&#233;servant les donn&#233;es d&#233;j&#224; stock&#233;es
            ReDim Preserve bytTampon(intDimensionNvelleTaille)
            'initialise un indice de parcours du tampon temporaire
            intIndiceLecture = 0
            'de l'ancien dernier &#233;l&#233;ment +1 au nouveau dernier &#233;l&#233;ment vide
            For i = intDimensionAncienTampon + 1 To intDimensionNvelleTaille
                'recopie l'&#233;l&#233;ment du tampon temporaire,
                'vers le tampon membre
                bytTampon(i) = bytTemp(intIndiceLecture)
                'incr&#233;mente l'indice de lecture du tampon temporaire
                intIndiceLecture = intIndiceLecture + 1
            Next i
            
    End Select
End Sub


Private Sub Timer1_Timer()
Dim sngSo2  As Single
Dim sngMire As Single
Dim bytNo2  As Byte
    'r&#233;cup&#232;re &#224; partir du tampon
    sngMire = bytTampon(intIndiceATraiter)
    sngSo2 = bytTampon(intIndiceATraiter + 1)
    sngNo2 = bytTampon(intIndiceATraiter + 2)
    'pr&#233;pare le prochain indice &#224; traiter
    intIndiceATraiter = intIndiceATraiter + 3
            
End Sub

Dis nous ce que tu en penses,
&#224;+

rvblogn

rvblog · Answer

Salut S4ngo,

essaies peut-&#234;tre de travailler avec un tampon. C'est &#224; dire, quand MSComm1_OnComm() survient, au lieu de garder le MSComm1.Input dans ton tableau Resultat(), gardes-le dans un tableau membre (d&#233;clar&#233; en dehors de ta proc&#233;dure), et dans ton Timer1_Timer() tu travailles directement sur le tampon. Cela revient un peu &#224; faire ce que tu fais d&#233;j&#224;, mais il faut juste d&#233;caler les traitements (en r&#233;ception, tu r&#233;ceptionne, et en cyclique, tu traites [Excel et autres]).
Attention &#224; consommer le tampon (soit tu marques ce que tu a d&#233;j&#224; trait&#233; et tu ne traites pas ce qui est d&#233;j&#224; marqu&#233;, soit tu fais dispara&#238;tre ce que tu as trait&#233; [consomm&#233;], comme le fait le buffer de mscomm [MSComm1.Input ], une fois que tu l'as lu, il est vide!).

Si tu as MSDN, tu peux aussi trouver d'autres mani&#232;res d'utiliser ce composant (ex: d&#233;finir une taille de donn&#233;es re&#231;ues &#224; partir de laquelle, une fois atteinte, se d&#233;clenchera l'&#233;vennement du mscomm, mais d'autres mani&#232;res aussi).

&#224;+
rvblogn

cs_DURANDO · Answer

Salut,

je confirme la solution de rvblog.

J'ai r&#233;alis&#233; une appli en turbo-pascal ou je devais reconnaitre des
chaines de caracteres transitant entre PC <-> terminal. 

J'ai r&#233;solu en cr&#233;ant un tampon FIFO aliment&#233; par les caract&#232;res venant
du port com. J'analysais ensuite ce tampon pour d&#233;tecter la pr&#233;sence ou
non des chaines.



Tu peux d&#233;clencher l'analyse avec un timer ou &#233;galement en comptant le nombre de caract&#232;res recus.

 


C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

S4ngo · Answer

Tout dabord, meri pour vos r&#233;ponses, parcontre je ne comprend pas trop ce que tu ve dire [../auteurdetail.aspx?ID=461923 rvblog] :s

Javoue que je d&#233;bute sur vb6, et de plus, je n'est pas MSDN (ce qui est une grosse erreur de ma part).

Peut tu essayer de me donner ne serais-ce qu'un exemple rapide de ce que je devrais  faire ?

Merci d'avance.

cs_DURANDO · Answer

Salut s4ngo et rvblog.

Une question :

les donn&#233;es recues (ou variables) sont-elles recues en une seule trame (cas1) c'est &#224; dire une seule r&#233;ception pour toutes les donn&#233;es sur le port COM, ou bien une trame par donn&#233;e (cas2) ?



exemple cas 1 : 

  trame "v1 32767 v2 = 00001 v3 = 00200" & vbcrlf

exemple cas 2 : 

  tramepour v1 "v1 32767" & vbcrlf

  tramepour v2 "v2 00001" & vbcrlf

  tramepour v3 "v3 00200" & vbcrlf



La question est importante, parce dans le cas 1, il suffit d'utiliser un tampon fixe et de l'&#233;craser &#224; chaque r&#233;ception.



Ne sachant pas &#224; quoi resemblent les trames et dans quel ordre sont recues les donn&#233;es, difficile de proposer qqchose.



On a peut-&#234;tre r&#233;pondu &#224; cot&#233; de la plaque!

S4ngo peux-tu pr&#233;ciser?





 C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

S4ngo · Answer

c'etait le deuxieme cas !!!

En effet, j'ai 3 donn&#233;es qui arrivent l'une apres l'autre en s&#233;rie.

Et oui vous avez repondu a ma, ou mes questions, merci beacoup !

S4ngo · Answer

oh fait dsl rvblog pour la cigarette en plus :s :D

Probleme de timer

7 réponses

Discussions similaires