IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Dotnet Discussion :

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


Sujet :

Dotnet

  1. #1
    Membre à l'essai
    Homme Profil pro
    Ingénieur marine
    Inscrit en
    Août 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur marine
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 4
    Par défaut 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

  2. #2
    Membre à l'essai
    Homme Profil pro
    Ingénieur marine
    Inscrit en
    Août 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur marine
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2012
    Messages : 4
    Par défaut
    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 vb : 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
    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

  3. #3
    Membre émérite Avatar de ctxnop
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2007
    Messages
    858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2007
    Messages : 858
    Par défaut
    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)

Discussions similaires

  1. boucle for each next : sauter une valeur
    Par scavenger dans le forum VBScript
    Réponses: 1
    Dernier message: 18/02/2009, 10h15
  2. [DAO] Instruction For Each .. Next
    Par ancel17 dans le forum VBA Access
    Réponses: 10
    Dernier message: 24/04/2007, 11h07
  3. [Excel-VBA] For Each..Next
    Par marsupilami34 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 26/09/2006, 17h23
  4. [VBA-E]PB sur une boucle for each next
    Par rond24 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 31/07/2006, 15h47
  5. Aide pour For each..... Next
    Par Virgile59 dans le forum Access
    Réponses: 1
    Dernier message: 24/05/2006, 14h34

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo