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
'Serghides 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 |
Partager