Discussion :

[Tempus01]

Bonjour le forum,

Je cherche une solution qui permette d'écarter les variables qui sont à 0 avant de procéder à un calcul d'une moyenne.

j'ai 10 variables, si par exemple 2 sont à 0 il faut que le calcul ne se fasse que sur 8 variables

Code :

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

Dim Moy1, Moy2, Moy3, Moy4, Moy5, Moy6, Moy7, Moy8, Moy9, Moy10 As Decimal

Merci pour votre aide.

[Phil Rob]

Bonsoir Tempus01,
Juste pour m'assurer que je comprends bine ta question, est-ce que le code suivant ferait ce que tu veux ?

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
36
37
38
39
40
41
42
43
44
45
46
47
    Dim Moy1, Moy2, Moy3, Moy4, Moy5, Moy6, Moy7, Moy8, Moy9, Moy10 As Decimal
' ... ... ....
    Private Function CalculMoyenne() As Decimal
        Dim Compteur As Integer = 0
        Dim Somme As Decimal = 0
        If Moy1 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy1
        End If
        If Moy2 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy2
        End If
        If Moy3 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy3
        End If
        If Moy4 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy4
        End If
        If Moy5 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy5
        End If
        If Moy6 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy6
        End If
        If Moy7 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy7
        End If
        If Moy8 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy8
        End If
        If Moy9 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy9
        End If
        If Moy10 <> 0 Then
            Compteur = Compteur + 1
            Somme = Somme + Moy10
        End If
        Return Somme / Compteur
    End Function

Les 10 variables Moy1 ... Moy10 me perturbent. Ne serait-il pas mieux d'avoir un tableau Dim Moy(10) As Decimal permettrait le calcul des NON zéro en une seule petite boucle.

[Tempus01]

Bonsoir Phil Rob

"Les 10 variables Moy1 ... Moy10 me perturbent. Ne serait-il pas mieux d'avoir un tableau Dim Moy(10) As Decimal permettrait le calcul des NON zéro en une seule petite boucle."

Créer 10 variables est la solution première qui mes venu, mais je pense que oui, il peut y avoir d'autres solutions.

Le code me servira à afficher une ligne sur un chart (elle donnera la moyenne sur le nombre de points que l'utilisateur saisira).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   If Not String.IsNullOrWhiteSpace(V1.Text) AndAlso Not IsNumeric(V1.Text) Then
                Moy1 = 0
            Else
                Moy1 = CDec(V1.Text)
            End If
            If Not String.IsNullOrWhiteSpace(V2.Text) AndAlso Not IsNumeric(V2.Text) Then
                Moy2 = 0
            Else
                Moy2 = CDec(V2.Text)
 
Moyenne = l'addition des points  / par le nombre de points qui ne sont pas à 0
 
'cette moyenne me servira à afficher une ligne dans un Chart
stripLine2.IntervalOffset = Moyenne

[Phil Rob]

Alors, en attendant de changer les Moy1 ... Moy10.. en un Moy(1) ... Moy(10), la fonction que je t'ai envoyée devrait pouvoir te servir comme ceci :

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
   If Not String.IsNullOrWhiteSpace(V1.Text) AndAlso Not IsNumeric(V1.Text) Then
                Moy1 = 0
            Else
                Moy1 = CDec(V1.Text)
            End If
            If Not String.IsNullOrWhiteSpace(V2.Text) AndAlso Not IsNumeric(V2.Text) Then
                Moy2 = 0
            Else
                Moy2 = CDec(V2.Text)
 
 
Moyenne = CalculMoyenne()
 
 
'cette moyenne me servira à afficher une ligne dans un Chart
stripLine2.IntervalOffset = Moyenne

Puis, si tu remplaces ta déclaration Dim Moy1, Moy2, Moy3, Moy4, Moy5, Moy6, Moy7, Moy8, Moy9, Moy10 As Decimal par Dim Moy(10) As Decimal, tu pourrras l'utiliser dans ton code comme ceci :

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
   If Not String.IsNullOrWhiteSpace(V1.Text) AndAlso Not IsNumeric(V1.Text) Then
                Moy(1) = 0
            Else
                Moy(1) = CDec(V1.Text)
            End If
            If Not String.IsNullOrWhiteSpace(V2.Text) AndAlso Not IsNumeric(V2.Text) Then
                Moy(2) = 0
            Else
                Moy(2) = CDec(V2.Text)
 
 
Moyenne = CalculMoyenne()
 
 
'cette moyenne me servira à afficher une ligne dans un Chart
stripLine2.IntervalOffset = Moyenne
 
' ===> en remplaçant le code de ma fonction par ceci :
 
    Private Function CalculMoyenne() As Decimal
        Dim Compteur As Integer = 0
        Dim Somme As Decimal = 0
        For i As Integer = 1 To 10
            If Moy(i) <> 0 Then
                Compteur = Compteur + 1
                Somme = Somme + Moy1
            End If
        Next
        Return Somme / Compteur
   End Function

[popo]

Il existe une solution toute prête à l'emploi en Standard :

Code :

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

1
2
3
Dim Suite As Decimal() = {0, 1, 2, 3, 4}
Dim Average As Decimal = Suite.Where(Function(x) x <> 0).Average()
Console.WriteLine(Average)

En remplaçant tes TextBox par des NumericUpDown, tu pourra également te passer des test sur String.IsNullOrWhiteSpace et IsNumeric.
Il te suffira de prendre la prendre la propriété Value du NumericUpDown.

Code :

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

1
2
3
Dim Suite As Decimal() = {V1.Value, V2.Value, V3.Value, V4.Value, V5.Value, V6.Value, V7.Value, V8.Value, V9.Value, V10.Value}
Dim Average As Decimal = Suite.Where(Function(x) x <> 0).Average()
MessageBox.Show(Str(Average))

[umfred]

Si on veut pousser encore un peu plus loin, si le nombre de valeur n'est pas forcément fixe, on pourrait boucler sur les contrôles pour initier le tableau de valeur