Bonjour à tous.

J'ai un dictionnaire que je parcours avec un For Each. Mais à l'intérieur de celui-ci je voudrais vérifier la clef suivante et sa valeur associer.

Genre:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim Somme As Double.
Dim i a integer = 0
Dim Moyenne As Double
 
For Each Dt As Date In Dico.Keys      ' Le dico (Key =Date,Valeur = Double)
   If Dico(Dt) = 0 then
      If Dico(key suivante) = 0 then
            'Vérification que la clef suivante est égale à l’intervalle de temps de mesure
            If ("Keys suivante" - Dt ) = intervalle then
                Somme += Dico(Dt)
                i += 1
            Else
                'Pas d'ajout de valeur
            End if
       Else
            Somme += Dico(Dt)
            i += 1
       End If
   Else
      Somme += Dico(Dt)
      i += 1
   End If
next
 
Moyenne = Somme / i
Le but étant d’éliminer les valeurs 0 indiquant un trou dans les mesures (Value). Si entre les 2 valeurs 0 il y a un intervalle supérieur à l'intervalle des mesures on n'ajoute pas les 0 pour le calcul de la moyenne.
A la base, le fichier qui me sert à remplir le dico nous sert a crée des courbes. et donc les relevé de données s’arrêtent lorsqu'il n'y a rien à mesurer. Pour éviter que la courbe ne soit erronés on ajout deux 0 dans le fichier un à l’arrêt des mesures et l'autre à la reprise pour que la courbe soit bien à 0.