Discussion :

[Bacube]

Bonjour à toutes et à tous,

Voilà mon problème, je souhaite arrondir un nombre à 0.5, c'est à dire, que si j'ai 3.2 ou 3.25 , j'obtiens 3.5 et si j'ai 3.7 ou 3.75, j'obtiens 4.0.


J'ai essaié avec la fonction round(), mais le problème est le nombre ayant une décimal inférieur à 0.5, se voit passer à l'entier inférieur... : 3.25 avec

Code :

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

Nombre = round(3.25)

on obtient 3

Et en mettant

Code :

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

Nombre = round (3.25,1)

on obtient 3.3 ...



J'ai trouvé une solution, mais je la trouve extrèmement lourde.

Je me sers d'un motif de RegEx pour valider une boucle. Voici mon code test qui m'a permis de valider le motif et de répondre à ce que je souhaite.

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
Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim reg As New Regex("^[\d+]((\,?)(\.?))((\0?)(5?))$")
        Dim Text As Single
        Dim Valeur As Single = CSng(0.05)
 
        text = CSng(TextBox1.Text)
 
 
        If reg.IsMatch(Text) = False Then
            Do
                Text = Text + Valeur
 
            Loop Until reg.IsMatch(Text) = True
        End If
 
        MsgBox(Text)
 
    End Sub
End Class

Nous avons des nombres ayant pour valeur max après la décimal 0.05, donc 3.05, 4.45, ..., donc j'augment le nombre de 0.05 et je compare au motif jusqu'à avoir une réponse True. Ici quand je rentre 3.25, je trouve comme résultat final 3.5 et pour 3.75, j'obtiens 4

Je trouve ça peut évident à mettre en place dans mon programme plus complexe, et me demande s'il y a une meilleure solution pour ce type d'arrondi .

Cordialement,
Bacube

[youtpout978]

si tu veux j'ai trouvé une solution mais en c#

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
decimal f = 3.52m;
            decimal p = Math.Truncate(f);
            if (f - p > 0.5m)
            {
                f = p+1;
            }
            else if (f - p > 0)
            {
                f = p + 0.5m;
            }

[Pol63]

il y a des tas de méthodes pour faire ca, c'est juste des maths


google vient de me trouver celle là :
X = Int(2 * X + 0.5) / 2

et sinon un convertisseur c# vb.net :
http://www.developerfusion.com/tools.../csharp-to-vb/

[Nathanael Marchand]

C'est ptet plus simple comme ca:

Code :

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

1
2
3
Private Function ArrondiBizarre(figure As [Single]) As [Single]
	Return Convert.ToSingle(Math.Round(figure * 2) / 2)
End Function

[chrismonoye]

Bonsoir,
je ne vois pas plus simple que la proposition de code de Pol63.
Il fait un arrondi à 0.5 au plus proche.
Par contre il semble que tu veuilles un arrondi à 0.5 par excès :

je souhaite arrondir un nombre à 0.5, c'est à dire, que si j'ai 3.2 ou 3.25 , j'obtiens 3.5 et si j'ai 3.7 ou 3.75, j'obtiens 4.0.

Il suffit d'y apporter une petite modification :

Code :

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

1
2
3
        Dim nombre As Single = 3.21
        nombre = CSng(Int(2 * nombre + 0.99) / 2)
        MessageBox.Show(CStr(nombre))

En mettant autant de 9 que de décimales des nombres (à tester) en ayant le plus.

[Nathanael Marchand]

Bonsoir,
je ne vois pas plus simple que la proposition de code de Pol63.

C'était plus simple que l'histoire des Regex, sauf que le temps que je rédige...

Cela dit, l'utilisation de Int c'est pas génial!

[chrismonoye]

C'était plus simple que l'histoire des Regex, sauf que le temps que je rédige...
Cela dit, l'utilisation de Int c'est pas génial!

Ok reçu 2/2.
Oui, Math.Truncate est peut être mieux que ce int.

[Bacube]

Merci a tous !

J'ai convertit le C# en VB.NET et en le retravaillant pour mon programme test, je trouve une solution nettement moins lourde.

Voilà le code de mon test au cas où d'autres cherche un arrondi par excès au 0.5 près.

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
 Imports System.Math
 
Public Class Form1
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim f As Decimal = CSng(TextBox1.Text)
        Dim p As Decimal = Math.Truncate(f)
 
        If f - p > 0.5D Then
            f = p + 1
        ElseIf f - p > 0 Then
            f = p + 0.5D
        End If
 
        MsgBox(f)
 
    End Sub
 
End Class

Encore merci, car je me suis aperçu que mon motif avait des erreurs, et donc pouvait poser des soucis. Je l'ai retravaillé hier soir, avec quelques tests.

Voilà le code avec le nouveau motif, au cas où certains voudraient voir cette fonction.

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
Imports System.Text.RegularExpressions
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reg As New Regex("^(\d+)+((\,?)(\.?))+((\0?)(5?))$")
        Dim Text As Single
        Dim Valeur As Single = CSng(0.05)
 
        text = CSng(TextBox1.Text)
 
 
        If reg.IsMatch(text) = False Then
            Do
                Text = Text + Valeur
 
            Loop Until reg.IsMatch(text) = True
        End If
 
        MsgBox(Text)
 
    End Sub
End Class

Cordialement,
Bacube

[youtpout978]

de rien tu pouvais utilisé des noms plus éloquant que p et f

[Bacube]

Oui, dans mon programme réel les noms sont plus explicites, et correspondent mieux au noms réels.

Là c'est juste un programme qui m'a permis de tester le code, donc j'ai rien renommé comme tu as pu le voir .


Cordialement,
Bacube

[Nathanael Marchand]

Je reviens à la charge car je trouve que ma méthode elle est plus mieux

Code :

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

1
2
3
Private Function ArrondiBizarre(figure As [Single]) As [Single]
	Return Convert.ToSingle(Math.Ceiling(figure * 2) / 2)
End Function

Et cette fois, l'arrondi est au supérieur:

3.1=>3.5
3.5=>3.5
3.7=>4

[Bacube]

Merci, Tu as bien fait d'insister car elle marche et est encore moins lourde, puis mis en fonction elle est utilisable partout.

Voilà lmon code test en utilisant la méthode de Nathanael

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
Imports System.Math
 
Public Class Form1
    Dim texte As Single
 
    Private Function ArrondiBizarre(ByVal figure As [Single]) As [Single]
        Return Convert.ToSingle(Math.Ceiling(figure * 2) / 2)
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        texte = CSng(TextBox1.Text)
        texte = ArrondiBizarre(texte)
        MsgBox(texte)
 
    End Sub
 
End Class

Par contre là je pense devoir utiliser la première méthode pour un tout autre problème, je vais de voir convertir un angle en degrès en degrès minute seconde

Donc 20.252° fera 20°15'7"

Le soucis est que je dois récupérer l'entier et les décimales pour pouvoir faire ça. Je vais créer un nouveau poste pour ça, si je ne trouve pas de solution.



Cordialement,
Bacube