Discussion :

[megamario]

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.

[bizet]

Bonjour,

Quel est ton problème?

[megamario]

Bonjour,

Quel est ton problème?

Bonjour, je voudrais savoir comment lire la clef suivante du dico et sa valeur, sans pour autant modifier l'ordre de lecture du For Each.

Ou utiliser autre chose que le For Each qui me permettrait de le faire.

[Meiteisho]

Bonjour,

Aucune idée de comment faire ceci avec un For Each.
Par contre tu peux le faire avec un For basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For i as integer= 0 to TaListe.count-1
 
If TaListe(i+1)=0  'Test si la valeur suivante est égale a 0
 
End If
 
Next

[bizet]

salut

si tu connais ta clé suivante alors il suffit de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dico(key suivante)

Si tu ne la connais pas, alors effectivement il te faudra passer par une boucle for ou while.

Bon courage.

[Bluedeep]

salut

si tu connais ta clé suivante alors il suffit de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dico(key suivante)

Justement, il ne la connait pas, il veut la trouver.

Si tu ne l'as connais pas, alors effectivement il te faudra paser par une boucle for ou while.

Ca ne me semble pas la meilleure solution.

[Bluedeep]

Bonjour,

Aucune idée de comment faire ceci avec un For Each.
Par contre tu peux le faire avec un For basique

Absolument pas : son dictionnaire n'est pas indexé par un scalaire.

[Meiteisho]

Arf désolé, autant pour moi ...

[Bluedeep]

Bonjour

L'utilisation du dictionary n'est peut être pas le meilleur choix ici. En effet, tu n'as pas moyen d'aller voir la valeur de la clef suivante sans itérer la boucle.

Pour ce que tu veux faire, va plutôt voir du coté de la LinkedList.

http://msdn.microsoft.com/en-us/library/he2s3bh7.aspx

Une autre solution peut être d'utiliser un Dictionary mais sous la forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dictionary<int, KeyValuePair<DateTime, Double>>

Donc avec un rang "entier" auquel tu associe tes paires (date, valeur).