adapter formules et calculs

Version imprimable

Bonjour, je travaille actuellement sur la création d'un logiciel d'hydraulique se basant sur la formule de Caquot. Je veux justement appliquer cette formule dans le cas de deux canalisations en série. Dans une de mes formes, j'ai créé un DataGridView1 que je remplie (ValeurST, ValeurL, etc) je le fait pour plusieurs lignes de tableaux (chaque ligne correspond à une branche du réseau de canalisations). Dans une autre forme (Form4), j'ai créé 2 combobox (cbx_branches1 et 2), me permettant de choisir les deux branches que je veux mettre en série. Pour l'instant j'ai réussi à le faire pour 2 branches, les branches 1 et 2.

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
Public Class Form4
    Private Sub Form4_Load1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cbx_branches1.Items.Add("branche 1")
        cbx_branches1.Items.Add("branche 2")
        cbx_branches1.Items.Add("branche 3")
        cbx_branches1.Items.Add("branche 4")
        cbx_branches1.Items.Add("branche 5")
        cbx_branches1.Items.Add("branche 6")
        cbx_branches1.Items.Add("branche 7")
        cbx_branches1.Items.Add("branche 8")
        cbx_branches1.Items.Add("branche 9")
        cbx_branches1.Items.Add("branche 10")
        cbx_branches1.Items.Add("branche 11")
        cbx_branches1.Items.Add("branche 12")
        cbx_branches1.Items.Add("branche 13")
        cbx_branches1.Items.Add("branche 14")
        cbx_branches1.Items.Add("branche 15")
        cbx_branches1.Items.Add("branche 16")
        cbx_branches1.Items.Add("branche 17")
        cbx_branches1.Items.Add("branche 18")
        cbx_branches1.Items.Add("branche 19")
        cbx_branches1.Items.Add("branche 20")
    End Sub
 
    Private Sub Form4_Load2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cbx_branches2.Items.Add("branche 1")
        cbx_branches2.Items.Add("branche 2")
        cbx_branches2.Items.Add("branche 3")
        cbx_branches2.Items.Add("branche 4")
        cbx_branches2.Items.Add("branche 5")
        cbx_branches2.Items.Add("branche 6")
        cbx_branches2.Items.Add("branche 7")
        cbx_branches2.Items.Add("branche 8")
        cbx_branches2.Items.Add("branche 9")
        cbx_branches2.Items.Add("branche 10")
        cbx_branches2.Items.Add("branche 11")
        cbx_branches2.Items.Add("branche 12")
        cbx_branches2.Items.Add("branche 13")
        cbx_branches2.Items.Add("branche 14")
        cbx_branches2.Items.Add("branche 15")
        cbx_branches2.Items.Add("branche 16")
        cbx_branches2.Items.Add("branche 17")
        cbx_branches2.Items.Add("branche 18")
        cbx_branches2.Items.Add("branche 19")
        cbx_branches2.Items.Add("branche 20")
    End Sub
 
    Private Sub cbx_branches1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbx_branches1.SelectedIndexChanged
        If cbx_branches1.Text = "branche 1" Then
            Dim ValeurST1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("Surfacetotale").Value)
            Dim ValeurL1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("longueur").Value)
            Dim ValeurCI1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("Coefficientimpermeabilisation").Value)
            Dim ValeurP1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("pente").Value)
        End If
        If cbx_branches1.Text = "branche 2" Then
            Dim ValeurST2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("Surfacetotale").Value)
            Dim ValeurL2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("longueur").Value)
            Dim ValeurCI2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("Coefficientimpermeabilisation").Value)
            Dim ValeurP2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("pente").Value)
        End If
            End Sub
 
    Private Sub but_calcser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_calcser.Click
        Me.LabelQserie.Text = "Qserie = " & CalculCaquotSerie().ToString("0.0#") & " l/s"
    End Sub
 
    Function CalculCaquotSerie() As Double
        Dim a2 As Double = Convert.ToDouble(Form3.Labela2.Text)
        Dim b2 As Double = Convert.ToDouble(Form3.Labelb2.Text)
        Dim ValeurST1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("Surfacetotale").Value)
        Dim ValeurST2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("Surfacetotale").Value)
        Dim ValeurL1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("longueur").Value)
        Dim ValeurL2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("longueur").Value)
        Dim ValeurCI1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("Coefficientimpermeabilisation").Value)
        Dim ValeurCI2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("Coefficientimpermeabilisation").Value)
               Dim ValeurP1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("pente").Value)
        Dim ValeurP2 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(1).Cells("pente").Value)
        Dim ValeurSTserie As Double
        Dim ValeurLserie As Double
        Dim ValeurCIserie As Double
        Dim ValeurPserie As Double
 
        ValeurSTserie = ValeurST1 + ValeurST2
 
        ValeurLserie = ValeurL1 + ValeurL2
 
        ValeurCIserie = (ValeurCI1 * ValeurST1 + ValeurCI2 * ValeurST2) / (ValeurST1 + ValeurST2)
 
        ValeurPserie = ((ValeurL1 + ValeurL2) / ((ValeurL1 / (ValeurP1) ^ (1 / 2)) + (ValeurL2 / (ValeurP2) ^ (1 / 2)))) ^ 2
 
 
        Return ((((a2 / 60) / 6.6) * (0.28 * (ValeurLserie / 100) ^ 0.84 * (ValeurSTserie / 10000) ^ -0.42) ^ -b2) ^ (1 / (1 - 0.287 * b2))) * _
               (ValeurCIserie ^ (1 / (1 - 0.287 * b2))) * _
               ((ValeurPserie / 100) ^ (0.41 * b2 / (1 - 0.287 * b2))) * _
               ((ValeurSTserie / 10000) ^ ((0.95 - 0.507 * b2) / (1 - 0.287 * b2))) * 1000
    End Function
 
End Class

Mais j'aimerais adapter ce calcul à l'ensemble du système et ainsi pouvoir le faire avec toutes les branches existantes (3, 4, 5, etc). Mais je ne vois pas comment faire sans que cela soit très long.

Pouvez-vous m'aider?
Merci.

PS: desolé pour le titre, c'est pas très évident à trouver :(

Bonjour,

Voici dans un premier temps une simplification du remplissage des combobox
L'utilisation de classe permet de simplifier
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 Public Class Form4 Const K_NB_BRANCHES As Integer = 20 ' Pour une utilisation élaborée des comboBox Public Class Branche Public Property Valeur As Integer ' Valeur récupérable : dans notre cas représente l'index (Note: est défini en entier pour nos besoins; mais pourrait être défini de type string dans d'autres cas de figures) Public Property BrancheNum As String ' Element d'affichage pour l'utilisateur Sub New(ByVal sVal As Integer, ByVal sAff As String) Me.Valeur = sVal Me.BrancheNum = sAff End Sub End Class Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call RempliCboBranche(cbx_branches1, K_NB_BRANCHES) Call RempliCboBranche(cbx_branches2, K_NB_BRANCHES) End Sub Private Sub RempliCboBranche(ByVal cboBranches As ComboBox, ByVal iNbBranches As Integer) ' définition d'une liste de branches Dim Branches As New List(Of Branche) ' ajout des branches For i = 1 To iNbBranches Branches.Add(New Branche(i - 1, "branche " & i.ToString)) ' -1 pour obtenir la valeur directement utilisable dans le datagridview Next ' lien cboBranches.DataSource = Branches cboBranches.DisplayMember = "BrancheNum" cboBranches.ValueMember = "Valeur" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(cbx_branches1.SelectedValue) ' visualisation de la valeur de l'élément sélectionné End Sub ... End Class
Quelques points ont besoin d'être éclaircis.
Le nombre de branches est-il fixe ? Le nombre de combo ?
Dans le calcul, elles seront toutes systèmatiquement utilisées ? Ou existera-t-il la possibilité de n'utiliser que quelques-une ?

Je ne vois pas l'intérêt de "cbx_branches1_SelectedIndexChanged" puisque les variables sont définies en local. et ne sont pas exploitées

A quoi servent les combobox puisque dans "CalculCaquotSerie" le calcul est fait en direct avec le datagridview
Code:

1 2 Dim ValeurST1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("Surfacetotale").Value) ...
Peut-être souhaitiez-vous faire le calcul de "ValeurST1" avec le numéro de la branche sélectionnée dans le combobox cbx_branches1.
Ce qui donnerait
Code:

1 2 Dim ValeurST1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(cbx_branches1.SelectedValue).Cells("Surfacetotale").Value) ...
Il faut réfléchir sur la structuration de vos variables de travail "ValeurST", "ValeurL", "ValeurCI", "ValeurP" afin de faire les calculs. (tableau peut-être) Et quel est le lien avec les différents combobox?

PS:Si le sujet "incrémentation boucle while" est opérationnel merci de le marquer comme "Résolu"

A+ , Hervé.

15/03/2012, 10h02
babass-77

Il n'y a que 2 combobox permettant de selectionner les deux branches qu'on veut mettre en série:

exemple:

dans la combobox1 je choisis la branche 3 et dans la combobox2 je choisis la branche 5, il faut donc que j'arrive à faire ce calcul pour toutes les branches possibles.

On n'utilisera à chaque calcul que deux branches, la personne devra refaire la manip à chaque fois, sachant que parfois, le résultat obtenu sera réutilisé et attribué à une nouvelle branche qu'on appellera branche35 (dans le cas des branches 3 et 5) qu'on pourra réutiliser.

En effet il n'y a aucun interet à utiliser:
"cbx_branches1_SelectedIndexChanged", c'est une erreur de ma part.

le remplissage des combobox foctionne très bien, par contre je ne comprend pas ce code:
Code:

1 2 3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(cbx_branches1.SelectedValue) ' visualisation de la valeur de l'élément sélectionné End Sub
je n'en vois pas l'interet. Ou alors je n'est pas du tout compris.

15/03/2012, 15h20
babass-77

J'ai un nouveau problème, dans ma form3 j'ai créé un DataGridView1 dans lequel je rentre le numéro de la branche, ValeurST, ValeurL, ValeurP et ValeurCI. Dans ma Form4 j'utilise les lignes du tableaux comme référence afin d'utiliser ces différentes valeurs.
exemple:

Code:

Dim ValeurST1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("Surfacetotale").Value)

Le problème, c'est que dans ce cas je suis obligé de faire correspondre la branche 1 avec la ligne 1, la branche 2 avec la ligne 2. Mais j'aimerais que l'utilisateur puisse être plus libre et puisse mettre la branche 12 (qui serait par exemple le résultat en série des branches 1 et 2 ) dans la ligne 3 du DataGridView1.

Je ne vois pas du tout comment il faudrait faire. Mais la personne qui supervise mon projet me l'impose pour que ce soit plus simple et surtout plus pratique car un réseau d'assainissement peut contenir de nombreuses canalisations.

Je ne sais pas si je suis suffisament clair.

Citation:
Envoyé par babass-77
le remplissage des combobox foctionne très bien, par contre je ne comprend pas ce code:
Code:

1 2 3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(cbx_branches1.SelectedValue) ' visualisation de la valeur de l'élément sélectionné End Sub
je n'en vois pas l'interet. Ou alors je n'est pas du tout compris.
C'est juste pour voir le fonctionnement.

15/03/2012, 20h36
rv26t

Citation:

Envoyé par babass-77

J'ai un nouveau problème, dans ma form3 j'ai créé un DataGridView1 dans lequel je rentre le numéro de la branche, ValeurST, ValeurL, ValeurP et ValeurCI. Dans ma Form4 j'utilise les lignes du tableaux comme référence afin d'utiliser ces différentes valeurs.
exemple:

Code:

Dim ValeurST1 As Double = Convert.ToDouble(Form3.DataGridView1.Rows(0).Cells("Surfacetotale").Value)

Le problème, c'est que dans ce cas je suis obligé de faire correspondre la branche 1 avec la ligne 1, la branche 2 avec la ligne 2. Mais j'aimerais que l'utilisateur puisse être plus libre et puisse mettre la branche 12 (qui serait par exemple le résultat en série des branches 1 et 2 ) dans la ligne 3 du DataGridView1.

Je ne vois pas du tout comment il faudrait faire. Mais la personne qui supervise mon projet me l'impose pour que ce soit plus simple et surtout plus pratique car un réseau d'assainissement peut contenir de nombreuses canalisations.

Je ne sais pas si je suis suffisament clair.

Vu que "cbx_branches1" vous permet de récupérer la ligne de valeur a traiter (de 1 à 20) si vous insérez des lignes plus rien ne correspondra.

Il faut séparer toutes les données de bases ainsi que les méthodes qui effectuerons vos calcul et la partie affichage. (Le datagridview ne servant que d'affichage.)
L'utilisation d'une classe est une solution pour résoudre ce problème.

D'accord, je vais essayer de tester cette méthode. mon programme a tout de même changé depuis. Le voici:

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
Public Class Form4
 
 
 
    Private Sub but_calcser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_calcser.Click
        Me.labelQserie.Text = "Qserie = " & CalculCaquotSerie().ToString("0.0#") & " l/s"
    End Sub
 
    Function CalculCaquotSerie() As Double
        Dim a2 As Double = Convert.ToDouble(Form3.Labela2.Text)
        Dim b2 As Double = Convert.ToDouble(Form3.Labelb2.Text)
        Dim ValeurST1 As Double
        Dim ValeurL1 As Double
        Dim ValeurCI1 As Double
        Dim ValeurP1 As Double
        Dim ValeurST2 As Double
        Dim ValeurL2 As Double
        Dim ValeurCI2 As Double
        Dim ValeurP2 As Double
        Dim ValeurSTserie As Double
        Dim ValeurLserie As Double
        Dim ValeurCIserie As Double
        Dim ValeurPserie As Double
 
        Dim n As Integer = txb_branches1.Text
        ValeurST1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("Surfacetotale").Value)
        ValeurL1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("longueur").Value)
        ValeurCI1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("Coefficientimpermeabilisation").Value)
        ValeurP1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("pente").Value)
 
        Dim m As Integer = txb_branches2.Text
        ValeurST2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("Surfacetotale").Value)
        ValeurL2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("longueur").Value)
        ValeurCI2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("Coefficientimpermeabilisation").Value)
        ValeurP2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("pente").Value)
 
 
        ValeurSTserie = ValeurST1 + ValeurST2
 
        ValeurLserie = ValeurL1 + ValeurL2
 
        ValeurCIserie = (ValeurCI1 * ValeurST1 + ValeurCI2 * ValeurST2) / (ValeurST1 + ValeurST2)
 
        ValeurPserie = ((ValeurL1 + ValeurL2) / ((ValeurL1 / (ValeurP1) ^ (1 / 2)) + (ValeurL2 / (ValeurP2) ^ (1 / 2)))) ^ 2
 
 
        Return ((((a2 / 60) / 6.6) * (0.28 * (ValeurLserie / 100) ^ 0.84 * (ValeurSTserie / 10000) ^ -0.42) ^ -b2) ^ (1 / (1 - 0.287 * b2))) * _
               (ValeurCIserie ^ (1 / (1 - 0.287 * b2))) * _
               ((ValeurPserie / 100) ^ (0.41 * b2 / (1 - 0.287 * b2))) * _
               ((ValeurSTserie / 10000) ^ ((0.95 - 0.507 * b2) / (1 - 0.287 * b2))) * 1000
    End Function
 
End Class

J'ai réussi à le simplifier. Et la personne qui encadre mon projet trouvait le principe des combobox peu pratique car c'était limité. J'ai donc opté pour des textbox ou il suffit d'entrer le numéro de la branche. Et il veut pouvoir entrer la valeur de n'importe quelle branche du réseau dans n'importe quelle ligne du tableau. Par exemple la branche 3 dans la ligne 2 du DataGridView1 et ensuite pouvoir reutiliser le principe précédent. Moi je pensais alors qu'il ne fallait changer que ces lignes là:

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim n As Integer = txb_branches1.Text
        ValeurST1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("Surfacetotale").Value)
        ValeurL1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("longueur").Value)
        ValeurCI1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("Coefficientimpermeabilisation").Value)
        ValeurP1 = Convert.ToDouble(Form3.DataGridView1.Rows(n - 1).Cells("pente").Value)
 
        Dim m As Integer = txb_branches2.Text
        ValeurST2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("Surfacetotale").Value)
        ValeurL2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("longueur").Value)
        ValeurCI2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("Coefficientimpermeabilisation").Value)
        ValeurP2 = Convert.ToDouble(Form3.DataGridView1.Rows(m - 1).Cells("pente").Value)

et notamment la partie "Form3.DataGridView.Rows..." en faisant référence aux cellules du tableaux ou on rentre les numéros de branches plutôt qu'aux lignes.

15/03/2012, 21h44
rv26t

Bien, si l'utilisation directe du datagridview répond aux besoins, autant garder cette solution.
A+, Hervé
15/03/2012, 22h04
babass-77

Le problème c(est que je ne vois pas du tout comment faire pour faire référence à ces cases de DataGridView
15/03/2012, 23h20
rv26t

Citation:

Envoyé par babass-77

... dans ma form3 j'ai créé un DataGridView1 dans lequel je rentre le numéro de la branche, ValeurST, ValeurL, ValeurP et ValeurCI. Dans ma Form4 j'utilise les lignes du tableaux comme référence afin d'utiliser ces différentes valeurs.

Citation:

Envoyé par babass-77

Le problème c(est que je ne vois pas du tout comment faire pour faire référence à ces cases de DataGridView

Il faut rechercher le numéro de la branche saisie par l'utilisateur (txb_branches1) dans le datagridview1 pour connaître la ligne a traiter.
16/03/2012, 09h50
babass-77

oui c ca, je vois pas trop comment faire justement.

- Pour chaque ligne du datagridview
-- si le numéro choisit correspond au numero du datagridview
--- noter le numéro de ligne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        Dim n As Integer = -1
        For i = 0 To DataGridView1.Rows.Count - 1
            If DataGridView1.Rows(i).Cells("Nom de la colonne Branche").Value() = txb_branches1.Text Then
                n = i
                Exit For
            End If
        Next
        If n = -1 Then
            'erreur
        Else
            'traitement
        ValeurST1 = Convert.ToDouble(Form3.DataGridView1.Rows(n).Cells("Surfacetotale").Value)
        ValeurL1 = Convert.ToDouble(Form3.DataGridView1.Rows(n).Cells("longueur").Value)
        ValeurCI1 = Convert.ToDouble(Form3.DataGridView1.Rows(n).Cells("Coefficientimpermeabilisation").Value)
        ValeurP1 = Convert.ToDouble(Form3.DataGridView1.Rows(n).Cells("pente").Value)        
End If

16/03/2012, 13h23
babass-77

merci ca fonctionne très bien.