Discussion :

[joel88]

Bonjour,

Voici mon problème :

Je dois mettre à jour chaque élément d'une collection (en fait un sorteddictionary) en fonction d'un savant calcul.

L'élément value de mon sorted dictionary est formé de la structure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Friend Structure Donnees
    dim YearWeek as string    'Clé
    dim StkIni as long
    dim QteDispo as long
    dim BesoinBrut as long
    dim StkMin as long
    dim StkMax as long
    dim BesoinNet as long
End Structure

Cette collection représente les données d'un article pour une plage de semaines (d'ou la clé YearWeek) allant de S1 à SZ

La formule de calcul de BesoinNet est la suivante (pour la semaine SN courante)

Calculer volume = StkMin(SN) - (StkIni (S1) + SOMME(QteDispo(de S1 à SZ))) + SOMME(BesoinBrut (de S1 à SN))

Si volume > 0
BesoinNet = volume - SOMME(BesoinNet(de S1 à SN-1))
Sinon
BesoinNet = 0
Fsi

Dans un premier temps, j'alimente mon sorteddictionary en créant les enregistrements dedans pour la plage de semaine.

Après avoir inseré la dernière semaine, j'appelle la sub calcul suivante :

Initialiser les variables locale

Parcourir la collection pour calculer SOMME(QteDispo)

Mémoriser les informations concernant S1

Pour tout les enregistrements de la collection
Calculer SommeBesoinBrut = SommeBesoinBrut + BesoinBrut(SN)

Calculer Volume = StkMin(SN) - (StkIni(S1) + SOMME(QteDispo)) + SommeBesoinBrut

Si Volume > 0
BesoinNet(SN) = Volume - TotBesNet
Sinon
BesoinNet(SN) = 0
Fsi

TotBesNet = TotBesNet + BesoinNet(SN)

FPour

Ce que j'ai traduit par le code suivant :

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
26
27
28
29
30
31
32
33
34
35
 
    Public Sub calcul()
 
        Dim Volume As Long
        Dim Sem1 As Boolean = True
        Dim RecSem1 As RecordDonnesCalcul
        Dim TotQteDispo As Long = 0
        Dim TotBesBrut As Long = 0
        Dim TotBesNet As Long = 0
 
        For Each RecSem As RecordDonnesCalcul In Values
            TotQteDispo += RecSem.QteDispo
        Next
 
        For Each RecSem As RecordDonnesCalcul In Values
            If (Sem1) Then
                RecSem1 = RecSem
                Sem1 = False
            End If
 
            TotBesBrut += RecSem.BesoinBrut
 
            Volume = RecSem.Stockmin - (RecSem1.StockInitial + TotQteDispo) + TotBesBrut
 
            If (Volume > 0) Then
                RecSem.BesoinNet = Volume - TotBesNet
            Else
                RecSem.BesoinNet = 0
            End If
 
            TotBesNet += RecSem.BesoinNet
 
        Next
 
    End Sub

Les calculs se font bien (j'ai vérifié sous débug) par contre, la collection n'est pas mise à jour (lorsque je veux récupérer les information d'une semaine, BesoinNet est toujours à zéro).

Je soupçonne que "RecSem" n'est pas un pointeur sur la "Value" courante mais une copie de celle-ci.

Ma question est la suivante :
Comment parcourir une collection en récupérant un pointeur vers l'élément "Value" courant.

Merci de votre aide.

Joël

[Lapinpanda]

Code :

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

maCollection.ContainsValue(of int32, maValue)

peux être?

[joel88]

Merci LapinPanda,

2 problèmes dans ta solution :

1. C'est une collection particulière puisque SortedDictionary
2. L'élément Valeur n'est pas de type entier, mais est une structure (ça je devrais être capable de translater)

Mais ta réponse m'a ouvert une solution possible. Si elle fonctionne, je l'ajoute en fermant le topic.

Joël

[Lapinpanda]

j'ai mis "of int32" pour l'exemple, on peut très bien choisir un autre type, bonne chance

[Redouane]

Bonjour,
Tu peux travailler avec la méthode GetEnumerateur() pusique SortedDictionnary implemente de l'interface IEnumerator :

Code :

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

1
2
3
4
Dim enumerator As IEnumerator = TonDictionnaire.Values.GetEnumerator()
While (enumerator.MoveNext())
   Response.Write("<br>" + enumerator.Current.ToString())
End While

l'interface IEnumerator fournit la propriété Current qui renvoie la valeur courante de l'itération, et les méthodes MoveNext, qui permet d’avancer de un dans l’itération et qui retourne false si l’on a atteint la fin de la collection, et Reset, qui permet de recommencer l’itération du début.

NB : Tu peux récupérer avec, les clés aussi "TonDictionnaire.Values.GetEnumerator()"
et même récupérer les deux "TonDictionnaire.GetEnumerator()"

[Redouane]

En fait : IEnumerable est une interface permettant de déployer un énumérateur sur une collection.
Cet énumérateur est un tableau qui ne peut être parcouru que dans un seul sens.
Sa seule méthode GetEnumerator retourne un énumérateur de type IEnumerator que nous pourrons utiliser avec une boucle while comme dans le précédant exemple

Toutefois, toute collection implémentant IEnumerable pourra être parcourue de manière plus aisée et plus optimisée grâce à une boucle foreach.
Son avantage par rapport aux autres boucles traditionnelles est qu’il va nous permettre de définir le type des objets que nous voulons sortir de la collection.
Si nous maitrisons le contenu de notre collection, nous pourrons ainsi éviter un cast inutile quand nous extrayons les valeurs.

[StormimOn]

Donnees est une structure (type valeur), tu récupères donc une copie comme tu l'as compris. Si à la place tu déclares une classe (type référence) ça devrait aller beaucoup mieux. Attention avec les types valeur et les types référence

[joel88]

Bonjour,

Comme je le précisais hier, j'ai trouvé une autre solution qui fonctionne et que je vous soumet ici.

Je pars du postulat que je connais la liste des semaines donc des clés, stockée, elle aussi, dans un SortedDictionary.

Je vais utiliser la propriété Item(clé) pour mettre à jour les données

Ci-dessous, la modification de la dernière boucle "FOR EACH"

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
26
27
28
29
 
        For Each Semaine As String In pSemaines.Values
 
            If (TryGetValue(Semaine, RecSem)) Then
 
                If (Sem1) Then
                    RecSem1 = RecSem
                End If
 
                TotBesBrut += RecSem.BesoinBrut
 
                Volume = RecSem.Stockmin - (RecSem1.StockInitial + TotDispoLot) + TotBesBrut
 
                If (Volume > 0) Then
                    RecSem.BesoinNet = Volume - TotBesNet
                Else
                    RecSem.BesoinNet = 0
                End If
 
                Me.Item(RecSem.YearWeek) = RecSem
 
                If (Sem1) Then
                    RecSem1.BesoinNet = RecSem.BesoinNet
                    Sem1 = False
                End If
 
                TotBesNet += RecSem.BesoinNet
            End If
        Next

Un grand merci à tous pour vos précisions, bout de code, etc... que je note précieusement pour un usage futur.

Cordialement,
Joël