Tableau

Question

Bonjour à tous, je débute en VB6 et on m'a confié un programme !

Je reçois des valeurs en continue provenant d'un microcontrolleur sur une meme Textbox. Je souhaiterais récupérer toutes les valeurs et les mettre dans un tableau pour pouvoir faire en continue la moyenne des 20 dernières valeurs et afficher le graphique de la moyenne sur VB6.

Est-ce que quelqu'un peut m'aider ???

Merci d'avance

jrivet · Answer

Salut,
Je en sais pas si ca peut te convenir mais regarde ceci
'Définition d'un tableau de Double
Dim MonTableau() As Double
'Dimensionnment du tableau
ReDim MonTableau(0)

'lorsque tu recois une valeur:
'Place la valeur dans l'indice supérieur
MonTableau(UBound(MonTableau)) = TaValeur
'Ajout d'un esapce dans le tableau

'Preserve permet de ne pas supprimer les valeurs contenues
'dans le tableau lors du redimensionnement
ReDim Preserve MonTableau(UBound(MonTableau) + 1), ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

Pour créer un tableau tu peux faire comme cela : 

Dim MyTableau(20) As String ' Réserve 20 emplacements dans ton tableau

Aprés pour y écrire dedans tu fais :

MyTableau(1) = Text1.Text

Puis pour lire ton emplacement "n°1" tu fais :

Text1.Text = MyTableau(1)

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

Bonjour,

En continu ?

Si oui, il va te falloir alimenter le tableau en même temps que la textbox et jouer avec l'événement change de la textbox (ce qui t'évitera un timer).

Seul truc : il te faudra constamment redimensionner ton tableau !
Tu pourrais éviter ce redimensionnement en utilisant une listbox en lieu et place d'un tableau

chewie_62 · Answer

merci pour vos réponses, je regarde ce que je peux faire !!!

chewie_62 · Answer

Euh par contre j'ai oublié de demander, comment je peux voir le tableau que je rempli sur la feuille objet ???

(dsl je suis un boulet )

jmfmarques · Answer

Attends, là...
Comment tu peux voir le tableau ?
De quoi parles-tu ?
J'espère que tu ne vas pas finalement vous annobcer que tu développes sous VBA et qu'il s'agit d'un tableau Excel !...
Tu es ici dans la section VB6 de ce forum !!!

jrivet · Answer

Salut,
Effectue une boucle qui parcours le tableau et rempli une listbox 
ou bien passe directement par la listbox comme le proposait [auteurdetail.aspx?ID=615490 jmfmarques]

@+: Ju£i?n
Pensez: Réponse acceptée

chewie_62 · Answer

ok merci !
non jmfmarques je ne vais rien annoncer . je voulais juste savoir comment voir les valeurs du tableau pour pouvoir en faire la moyenne derrière !

jrivet · Answer

Salut,
Dans ce cas si c'est pour le calcul des moyennes, inutile d'utiliser une ListBox, tu parcours le tableau dans une boucle pour ressortir la somme, puis tu divie par le nombre d'élément du tableau;

Attention a la maniere dont tu as redimensionner ton tableau, tu auras peu être un élément toujours vide.

autre idée est de memoriser la somme à chaque fois que tu recoit une valeur (+ le nombre de valeur recues).

Cela t'éviteras peu être aussi l'utilisation du tableau.

@+: Ju£i?n
Pensez: Réponse acceptée

chewie_62 · Answer

j'ai utilisé le code que tu as écrit jrivet pour la déclaration du tableau, mais je ne vois pas comment faire la boucle pour ressortir la somme... 
Je suis un débutant en matière de programmation. dsl

jmfmarques · Answer

Re,

Pourquoi faire une boucle alors qu'il suffit :
-d'une variable qui s'incrémente par le dernier ajout (àcahque insertion)
- d'en profiter pour "tirer" dans la foulée la moyenne ( = valeur de cette variable / nb d'articles du tableau ou de la listbox).

chewie_62 · Answer

oui mais je ne vois pas du tout comment je peux faire ce que tu me dit !!!
Si tu pouvais détailler ça m'arrangerait !

Neron2005 · Answer

En faite, il faudrait que tu memorise une moyenne qui change avec le nombre de donné que tu y aporte. En gros ca donne : 

Dim nb 'nombre de valeur dans la moyenne
Dim m 'moyenne
Dim nVal 'la valeur que tu ajoute

m = ( (m * nb) + nVal ) / (nb + 1)
nb = nb + 1

en gros ca donne la moyenne est egale a l'ancienne moyenne multiplié par son coeficient (c'est a dire le nombre de valeur precedante) + plus la derniere valeur on aura donc l'equivalence de nb valeur + 1 donc pour faire la moyenne on divise par le nombre de valeur  plus une, ensuite on incremente nb pour savoir combien il y a eu de valeur et c'est finit. Enfin non on recomence ensuite lorsque l'on fait un autre calcule.

jmfmarques · Answer

Bien complique, tout cà !
Il suffit d'une variable toto

toto = toto + Val(dernieajout)
nb = nb+ 1
moyenne = toto/nb

encore que nb (si tableau), c'est tout simplement le Ubound du tablreau  ou (si listbox) le Liscount de la listbox !

chewie_62 · Answer

merci pour vos rensignements

Neron2005 · Answer

le truc du toto ca marche que si ta des petite valeur et que t'en a pas trop sinon t'arrive vite a depacement de capacite en long je parle et apres en double c'est pas precis si tu depace 10 ^ 14 mais sinon ca revient au meme.

cs_MPi · Answer

Comme tu parles de moyenne sur les 20 dernières valeurs, il faudra que tu refasses ton tableau dès qu'il y aura 20 valeurs entrées.
Donc 
Tableau(0) = Tableau(1)
Tableau(1) = Tableau(2)
...........
Tableau(19) = NouvelleValeur

le tout dans une boucle, bien sûr

MPi

jmfmarques · Answer

Salut MPI,
ou garder le truc de la variable toto et faire une soustraction de la valeur du 1er article si le nombre est supérieur à 20

jmfmarques · Answer

et diviser par 20 (pour la moyenne) si le nombre est supérieur ou égal à 20, bien sur.

jmfmarques · Answer

je rectifie
"ou garder le truc de la variable toto et faire une soustraction de la valeur du 1er article si le nombre est supérieur à 20 "
par
"ou garder le truc de la variable toto et faire une soustraction de la valeur de la valeur nombre-20 si le nombre est supérieur à 20 "

cs_MPi · Answer

Salut JMF,
Il faudrait alors qu'il garde en mémoire le premier élément des 20 derniers... Il me semble que le tableau serait plus simple, non ?

Mais te connaissant ..., j'imagine que tu vas nous sortir une autre de tes idées "abracadabrante" ?

MPi

jmfmarques · Answer

Salut MPI,


 


Oui, tu as raison, j'aime bien rigoler !


 


Alors voilà (ici avec une listbox)


Private Sub Command2_Click()
  Static toto As Single
  nb = 0
  monnombre = 3 ' c'est ici que tu mets le nombres de "derniers" sur lesquels faire la moyenne
  For i = 1 To 40
    List1.AddItem CStr(i) '  juste pour dire que j'envoie des strings (pas de tricherie, donc)
    'on va ici oublier le i (pour "jouer le jeu" sans tricher)
      toto = toto + Val(List1.List(nb))
      If nb > monnombre - 1 Then toto = toto - Val(List1.List(nb - monnombre))
    nb = nb + 1    If nb < monnombre Then titi nb Else titi monnombre
    MsgBox "total  des " & monombre & " derniers = " & toto & vbCrLf & _
    "ce qui donne une moyenne de " & toto / titi & " pour les " & monnombre & " derniers"
  Next
End Sub

Cà, c'est parce que j'ai pas encore bu mon pastis ...

cs_MPi · Answer

Et j'imagine que tu aimes encore plus rigoler après ledit pastis (?)  

On a donc le choix, ici, entre un tableau et une Listbox ... le deuxième permettant éventuellement de visualiser facilement les données ...

MPi

chewie_62 · Answer

j'arrive bien a faire ma moyenne, merci à vous pour votre aide !!!
j'affiche cette moyenne dans une textbox, mais comment peut-on enlever les chiffres apres la virgule ???

cs_MPi · Answer

Avec Int, Cint, Round, ...
Textbox.text = Cint(MaValeur)

Tout dépend si tu veux arrondir ou simplement enlever les décimales... J'imagine que c'est la première méthode qui t'intéresse...

MPi

chewie_62 · Answer

ok merci, Cint(mavaleur) fonctionne tres bien !!!

chewie_62 · Answer

Bonjour à tous.
Suite à la création de mon tableau, je reçois bien ma valeur moyenne en continue.
La communication se fait bien avec le port série mais il y a un problème qui intervient...
En fait j'ai 2 boutons de commande : un "connecter/déconncter" quand je clique 1 fois le port série est ouvert et la 2eme fois il se ferme.
La ou est mon problème c'est quand je clique sur un autre bouton de commande, le port se ferme automatiquement alors qu'il ne doit pas le faire !!!

Pouvez vous me dire ou j'ai un problème ??? merci

'***********************************************
'apres click sur bouton connection/deconnection*
'***********************************************
Private Sub connecter_bouton_Click()
    'si le bouton n'affiche pas deconnecter alors port com deconnecté
    If connecter_bouton.Caption = "Déconnecter" Then
        connecter_bouton.Caption = "Connecter"
        MSComm1.PortOpen = False
        'ChoixCOM.Enabled = True
        ErreurCOM% = 1
    'sinon connection du port com
    Else
        ErreurCOM% = OpenPortCOM("9600", Port$)
        'gestion des erreurs possible dû au port com
        If ErreurCOM% > 0 Then
            Select Case ErreurCOM%
                Case 8002
                    S$ = "n'existe pas"
                Case 8005
                    S$ = "est déja ouvert"
                Case Else
                    S$ = "a une erreur type" + Format$(ErreurCOM%)
            End Select
            'affichage message box si erreur dû au port com
            S$ = "Le port série " + S$
            i% = MsgBox(S$, 16 + 1 + 256, "Erreur d'ouverture du port " + portcom$)
            Exit Sub
        End If
    connecter_bouton.Caption = "Déconnecter"
    'ChoixCOM.Enabled = False
    'envoie du caractere "a" permettant de recuperer l'identifiant
    MSComm1.Output = "a"
    End If



'-----------------------------------
'Numéro de coffret et Pression en mB
'-----------------------------------
    Do     'boucle infinie
        DoEvents   'redonne la main à Window
        If ErreurCOM% = 0 Then 'le port est ouvert
            Buffer$ = Buffer$ & MSComm1.Input   'lecture de COM
            If Len(Buffer$) > 100 Then Buffer$ = "" 'par secu si trop de caractére
            If Len(Buffer$) > 0 Then    'y a des caractéres
                'recherche du Lf$ de début
                i% = InStr(1, Buffer$, Lf$)                If i% 0 Then Buffer$ "": GoTo Suite 'pas de Lf de début
                'recherche du Cr$ de fin
                J% = InStr(i%, Buffer$, Cr$)
                If J% > i% Then 'y a un texte encadré de Lf et Cr
                    'string reçu placé dans une chaine S$, pointé par I%+2, (J%-I%-2) caractéres
                    S$ = Mid$(Buffer$, i% + 2, J% - i% - 2)
                    'Tag reçu placé dans un caractére de T$ pointé par I%+1
                    t$ = Mid$(Buffer$, i% + 1, 1)
                    'suppression du string
                    Buffer$ = Trim$(Mid$(Buffer$ + " ", J% + 1))
                    Select Case t$  'gestion du TAG
                        Case "I" 'gestion d'un Coffret qui est dans S$
                         numerocoffret.Text = S$
                        Case "V"
                         can.Text = S$
                        '------------------------------
                        'Conversion 12 bits en millibar
                        Dim a As Integer
                        Dim k As Integer
                        a = 0
                        For k = 1 To 12                            If Mid$(can.Text, k, 1) "1" Then a a + 2 ^ (12 - k)
                        Next k
                        Text1.Text = CInt(a * (5000 / 4096))
                        '------------------------------
                        'Définition d'un tableau de Double
                        Dim MonTableau() As Double
                        'Dimensionnment du tableau
                        ReDim MonTableau(0)


                        'lorsque qu'on recoit une valeur:
                        'On place la valeur dans l'indice supérieur
                        MonTableau(UBound(MonTableau)) = Text1.Text
                        'Ajout d'un espace dans le tableau



                        'Preserve permet de ne pas supprimer les valeurs contenues
                        'dans le tableau lors du redimensionnement
                        ReDim Preserve MonTableau(UBound(MonTableau) + 1)
                        Dim nb 'nombre de valeur dans la moyenne
                        Dim m 'moyenne
                        Dim nVal 'la valeur que tu ajoute
                        nb = 100
                        nVal = Text1.Text


                        m = ((m * nb) + nVal) / (nb + 1)
                        nb = nb + 1
                        pressionmoy.Text = CInt(m)  'Cint pour enlever les chiffres après la virgule
                    End Select
                End If
            End If
Suite:
        End If
    Loop
End Sub

cs_MPi · Answer

Je pense que ce serait plutôt le code de l'autre bouton qu'il faudrait voir si c'est celui-là qui déconnecte le Port ...

MPi

chewie_62 · Answer

voici l'autre bouton : Private Sub Command1_Click() '-------------- 'initialisation '-------------- dblEndTime = 0 tempo = 0 temps = "0,6" 'initialisation du temps ouverture temps2 = "0,4" 'initialisation du temps fermeture etatsysteme = "Vidange..." 'affiche l'état du microcheck ev = "Attente..." 'initialisation de l'indicateur EV '------------------------------ tempo = Timer + "0,5" Do While tempo > Timer 'attente DoEvents Loop '------------------------------ tempo = Timer + Form3.tempsvidange.Text Do While tempo > Timer 'definition de la durée de vidange If pressionmoy.Text < Form3.pressionhaute.Text Then 'si on est au dessus de la pression haute on arrete l'EV et on attend dblEndTime = Timer + temps 'tempo avant ouverture Do While dblEndTime > Timer 'Rien ne se produit mais les autres 'applications peuvent traiter leurs 'événements. mesure.Text = valeur 'calcul de la pression avant ouverture MSComm1.Output = "b" 'ouverture de l'electrovanne ev.Text = "Ouverte" 'affichage état electrovanne DoEvents Loop '------------------------------ dblEndTime = Timer + temps2 'tempo avant fermeture Do While dblEndTime > Timer 'Rien ne se produit mais les autres 'applications peuvent traiter leurs 'événements. MSComm1.Output = "c" 'fermeture de l'electrovanne ev.Text = "Fermée" 'affichage état electrovanne DoEvents Loop '------------------------------ If pressionmoy.Text > Form3.pressionbasse.Text Then 'test si on a atteint la zone d'approche paliervidange.Text = (Form3.pressionhaute.Text) * 0.02 'calcul du palier de vidange lorsque la vidange basse est atteinte Else paliervidange.Text = (Form3.pressionhaute.Text) * 0.1 'calcul du palier de vidange lorsque on est en dessous de vidange basse End If If valeur < (mesure.Text + paliervidange.Text) Then 'verifie si la pression a augmenter d'un palier temps = (temps * 2) 'on ouvre l'EV 2 fois plus longtemps si on augmente pas assez tps.Text = temps Else temps = (temps * 0.8) 'on ouvre l'EV 2 fois moins longtemps si on augmente de trop tps.Text = temps End If End If DoEvents 'Met fin à la boucle End While Loop If pressionmoy.Text > Form3.pressionhaute.Text Then 'test si pression moyenne entre haute et basse atteinte temps = "0,6" 'initialisation du temps ouverture pour pressurisation temps2 = "0,4" 'initialisation du temps fermeture pour pressurisation etatsysteme = "Pressurisation..." 'affiche l'état du microcheck pressurisation 'passe en pressurisation Else 'deconnection Microcheck etatsysteme = "Arret du Microcheck" MsgBox ("le temps de vidange est écoulé --- pression de vidange basse non atteinte --- le filtre doit être endommagé") resultat.Text = "INCORRECT (Pression non atteinte pendant la temps de vidange)" connecter_bouton = True 'deconnecté End If End Sub En fait je ne suis plus tres sur que le prot série se déconnecte étant donnée qu'apres avoir fait plusieurs test, j'ai toujours un message qui me dit que le port série est déja ouvert... Mais le problème est que normallement je reçoit la pression moyenne en continue et quand je clique sur le 2eme bouton, la pression moyenne s'arrete et garde la valeur au moment de la pression du bouton !!! je ne vois pas ou est mon problème, si quelqu'un a une idée...

cs_MPi · Answer

C'est fort possible que les nombreuses boucles empêchent l'affichage correct en continu.
Je vois que tu mets déjà des DoEvents dans chaque boucle, ce qui est bien, mais ce n'est peut-être pas suffisant. 

Peut-être faudrait-il forcer le raffraîchissement du ou des contrôles (?)
Quelque chose comme MonControle.Refresh  (?)
Mais je n'en suis pas convaincu...

MPi

chewie_62 · Answer

MonControle.refresh ? c'est pour la pression moyenne que tu veux dire ça ???

Je vais tester mais c'est bien galère comme truc !

Tableau

31 réponses

Votre réponse

Discussions similaires