Discussion :

[l0quito]

Bonjour à tous,

Voilà mon petit problème :

J'ai un code qui me permet d'arrondir des nombres (Exemple: 150 = 200 ; 149 = 100) tout cela marche très bien, mais le problème est dès que je met 250 il devrai me mettre 300 mais à place il m'arrondir a 200.

Voilà mon code :

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
 
       Dim NbPers As Integer = tbxNbPers.Text
        'Chiffre plus grand que 100
        'Dans cette partie est l'erreur a mon avis
        If NbPers >= 100 Then
 
            NbPers = NbPers / 100
            NbPers = Math.Ceiling(NbPers)
            NbPers = NbPers * 100
            tbxResul.Text = NbPers
            'Chiffre plus petit que 100
            'Cette partie marche très bien
        ElseIf NbPers < 100 Then
            If NbPers < 75 Then
                NbPers = 50
            Else
                NbPers = NbPers / 100
                NbPers = Math.Floor(NbPers)
                NbPers = NbPers * 100
                If NbPers = 0 Then
                    NbPers = 50
                End If
            End If
 
            tbxResul.Text = NbPers
        End If

Est-ce que quelqu'un voit il une erreur?

Merci d'avance.

[arno2000]

Salut,

Tu es sur que ça fonctionne bien avec math.ceiling ?
Car tu arrondis forcément à l'entier au dessus dans ce cas, à mon avis tu devrais utiliser math.round

A+

[l0quito]

J'ai essayer cette solution, mais sa me donne le même resultat.
voila ce que je veux faire :

RESULTAT RECHERCHER
Nb 150 = 200 (sa marche)
149 = 100 (sa marche)
249 = 200 (sa marche)
250 = 300 (sa marche pas, il me l'arrondi à 200)

Est-ce la fonction qui marche pas pour le résultat désirer, ou mon code qui est faux?

[Pol63]

Code :

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

1
2
3
4
 
    Private Function arrondi_centaine(ByVal nb As Integer) As Integer
        Return CInt((nb / 100)) * 100
    End Function

floor et ceiling n'arrondissent pas

[l0quito]

En mettant ce code, sa ne marche toujours pas..

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
 
        Dim NbPers As Double = tbxNbPers.Text
        'Chiffre plus grand que 100
        If NbPers >= 100 Then
 
            NbPers = NbPers / 100
            NbPers = Math.Round(NbPers)
            NbPers = NbPers * 100
            tbxResul.Text = NbPers
            'Chiffre plus petit que 100
        ElseIf NbPers < 100 Then
            If NbPers < 75 Then
                NbPers = 50
            Else
                NbPers = NbPers / 100
                NbPers = Math.Round(NbPers)
                NbPers = NbPers * 100
                If NbPers = 0 Then
                    NbPers = 50
                End If
            End If
 
            tbxResul.Text = NbPers
        End If

La question que je me pose, c'est comme la logique du vase à moitié vide ou à moitié plein.
Donc est-ce que la fonction Math.Round arrondi aléatoirement au supérieur ou à l'inférieur? parce que je ne comprend pas pourquoi à 150 il me l'arrondi à 200 et 250 me l'arrondi à 200 au lieu de 300

[Pol63]

t'as plus de 10 lignes de code au lieu de 2
tbxResul.Text = NbPers est écrit 2x
tu as des branches de if incohérentes qui ne passeront jamais dedans car tu t'es trompé
le but est que le code ai le moins de lignes possibles (sans surcharger non plus les lignes )

tu peux expliquer totalement ce que tu veux faire ?
si > 100 tu veux arrondier à la centaine la plus proche apparemment, et si c'est inférieur à 100 tu veux faire quoi ?

[l0quito]

Si ma valeur est < 100 je veux que sa fasse ça :

de 1 à 74 = 50
de 75 à 99 = 100

oui il le code est un peu surchargé, cars c'est juste un essai avant de l'intégrer à mon application. je sais pas si c'est la meilleur solution, mais voilà.

[Gold Bug]

Ben c'est normal qu'il te renvoie 200.

Explication:
1. NbPers vaut 250
2. Tu le divises par 100, le résultat vaut 2 car ton résultat est stocké dans un entier.
3. La fonction Ceiling renvoie le plus petit entier plus grand ou égal à NbPers, donc elle renvoie 2.
4. Tu multiplies NbPers par 100, il vaut donc 200.