Récupérer valeur variable "For each Next"

Bonjour à vous,

Ceci est mon premier post et croyez moi que j'ai bien cherché avant de faire appel à votre aide afin d'être sur que ma réponse n'était pas présente sur le site. Sauf erreur de ma part bien sur...

J'ai crée en vb.net une application qui permet de déterminer les pertes de charge dans une ligne de tuyauterie pour une vitesse de fluide donnée. Ceci fonctionne et il n 'y a pas de problème!

Par contre, je cherche maintenant à créer un graphique permettant de visualiser les dites pertes de charge pour chaque vitesse de fluide allant de 0 à 6 m/s. Plutôt que de faire six fois le même bout de code avec des variables différentes: V1=1, V2=2, etc. (V étant la vitesse), je pensais faire appel à "For V as integer = 0 to 6 ... next". Le résultat à la fin des opération étant une variable correspond aux pertes de charge (disons Losses as double) pour chaque vitesse de 0 à 6.

Puisque je souhaite récupérer Losses pour v=1, losses pour v=2, etc. isolement afin de m'en servir de point de graphique, comment dois-je m'y prendre?

Merci de votre aide et n'hésitez pas si vous avez la moindre question.

Bien à vous, Vincent

Afin d’illustrer mon propos, voici le bout de code concerné.

Je souhaite plotter VitesseGraph vs. PressureDropGraph

Comment, à la sortie de la boucle, récupérer la valeur de PressureDropGraph pour V=0, 1, 2, 3, 4 ,5 ,6

Voir en bas du code les explications.

Merci d'avance de votre aide!

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Public Class Graph
 
    Sub CodepourGraph()
 
        Dim VitesseGraph As Integer         'Vitesse de fluide
        Dim ReynoldsGraph As Double         'Nombre de Reynolds
        Dim FrictionFactorGraph As Double    'Facteur de friction
        Dim AGraph As Double                'A pour Serghide
        Dim BGraph As Double                'B pour Serghide
        Dim CGraph As Double                'C pour Serghide
 
        'Variables raccords
 
        Dim PipeLossesGraph As Double
        Dim Losses9015Graph As Double
        Dim Losses4515Graph As Double
        Dim LossesGateGraph As Double
        Dim LossesGlobeGraph As Double
        Dim LossesButtGraph As Double
        Dim LossesBallGraph As Double
        Dim LossesCheckGraph As Double
        Dim LossesFilterGraph As Double
        Dim LossesTeeThroughGraph As Double
        Dim LossesTeesideGraph As Double
        Dim LossesOutletGraph As Double
        Dim LossesInletGraph As Double
        Dim FittingLossesGraph As Double
 
        Dim PressureDropGraph As Double             'Pression totale à ajouter
 
        For VitesseGraph = 0 To 6 Step 1
            'Calcul du nombre de Reynolds
            ReynoldsGraph = ((Form1.Diameter * VitesseGraph * Form1.MediaDensity) / (Form1.MediaDensity * Form1.MediaViscosity)) * 1000
 
            'Calcul du facteur de friction
            If ReynoldsGraph < 2300 Then
                FrictionFactorGraph = 64 / ReynoldsGraph
            Else
                'Serghide’s Solution for Colebrook Equation
                AGraph = -2 * Math.Log10((Form1.RelativeRoughness / 3.7) + (12 / ReynoldsGraph))
                BGraph = -2 * Math.Log10((Form1.RelativeRoughness / 3.7) + (2.51 * AGraph / ReynoldsGraph))
                CGraph = -2 * Math.Log10((Form1.RelativeRoughness / 3.7) + (2.51 * BGraph / ReynoldsGraph))
                FrictionFactorGraph = ((AGraph - (BGraph - AGraph) ^ 2 / (CGraph - (2 * BGraph) + AGraph)) ^ -2)
            End If
 
            'Incorporation du friction factor pour calculer les pertes dans le tuyau
            PipeLossesGraph = (FrictionFactorGraph * (Form1.TxtLength.Text / (Form1.Diameter / 1000)) * (VitesseGraph ^ 2 / (2 * 9.81)))
 
            'Calcul des pertes de charge 90°1.5D
            Losses9015Graph = ((Form1.K9015 * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.Num9015.Value
 
            'Calcul des pertes de charge 45°1.5D
            Losses4515Graph = ((Form1.K4515 * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.Num4515.Value
 
            'Calcul des pertes de charge Gate valve
            LossesGateGraph = ((Form1.KGate * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumGate.Value
 
            'Calcul des pertes de charge Globe valve
            LossesGlobeGraph = ((Form1.KGlobe * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumGlobe.Value
 
            'Calcul des pertes de charge Butterfly valve
            LossesButtGraph = ((Form1.KButt * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumButt.Value
 
            'Calcul des pertes de charge Ball valve
            LossesBallGraph = ((Form1.KBall * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumBall.Value
 
            'Calcul des pertes de charge Check valve
            LossesCheckGraph = ((Form1.KCheck * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumCheck.Value
 
            'Calcul des pertes de charge Y-strainer
            LossesFilterGraph = ((Form1.KFilter * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumFilter.Value
 
            'Calcul des pertes de charge Tee through
            LossesTeeThroughGraph = ((Form1.KTeeThrough * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumTeeStraight.Value
 
            'Calcul des pertes de charge Tee side
            LossesTeesideGraph = ((Form1.KTeeSide * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumTeeSide.Value
 
            'Calcul des pertes de charge Pipe outlet
            LossesOutletGraph = ((Form1.KOutlet * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumOutlet.Value
 
            'Calcul des pertes de charge Pipe inlet
            LossesInletGraph = ((Form1.KInlet * (VitesseGraph ^ 2)) / (2 * 9.81)) * Form2.NumInlet.Value
 
            'Calcul des pertes de charge des fittings
            FittingLossesGraph = Losses9015Graph + Losses4515Graph + LossesGateGraph + LossesGlobeGraph + LossesButtGraph + LossesBallGraph + LossesCheckGraph + LossesFilterGraph + LossesTeeThroughGraph + LossesTeesideGraph + LossesOutletGraph + LossesInletGraph
 
            'Calcul de la pression totale requise/perdue
            PressureDropGraph = PipeLossesGraph + Form1.Elevation + FittingLossesGraph + Form1.OutletPressureMLC
 
        Next VitesseGraph
 
        'Voila ou je souhaite récupérer les valeurs:
        'VitesseGraph 0 -> PressureDropGraph = ??
        'VitesseGraph 1 -> PressureDropGraph = ??
        'VitesseGraph 2 -> PressureDropGraph = ??
        'VitesseGraph 3 -> PressureDropGraph = ??
        'VitesseGraph 4 -> PressureDropGraph = ??
        'VitesseGraph 5 -> PressureDropGraph = ??
        'VitesseGraph 6 -> PressureDropGraph = ??
 
    End Sub
End Class

Salut,
Commences par changer la déclaration de PressureDropGraph par Dim PressureDropGraph(6) As Double. Ta variable est maintenant un tableau contenant 6 doubles.

Ensuite, dans ta boucle, remplace PressureDropGraph(VitesseGraph) = PipeLossesGraph + Form1.Elevation + FittingLossesGraph + Form1.OutletPressureMLC par PressureDropGraph = PipeLossesGraph + Form1.Elevation + FittingLossesGraph + Form1.OutletPressureMLCEt voila, le tours est joué, le PressureDropGraph pour VitesseGraph = 3 est accessible via PressureDropGraph(3)