Zahlen runden

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von 4typen.

    Zahlen runden

    Hallo,

    ich würde gerne eine Zahl runden. Hab es mit verschiedenen Sachen probiert, unter anderem "Format", aber irgendwie funktioniert es nicht bei mir.

    Gibt es da eine Möglichkeit? Man müsste auch auf eine bestimmte Stelle runden können.


    Danke schonmal,

    kevin89

    Versuchs mal hiermit

    VB.NET-Quellcode

    1. Public Function RoundCorrect(ByVal value As Double, ByVal decimals As Integer) As Double
    2. ' zunächst das Vorzeichen merken
    3. Dim sign As Integer = Math.Sign(value)
    5. ' Wert absolut (ohne Vorzeichen)
    6. value = Math.Abs(value)
    8. ' Wert um Faktor 10^decimals multiplzieren
    9. ' und 0.5 hinzuaddieren
    10. value *= Math.Pow(10, decimals)
    11. value += 0.5
    13. ' nur den Ganzzahlenwert berücksichtigen und
    14. ' entsprechend der Anzahl Nachkommastellen
    15. ' durch 10^decimals teilen
    16. value = Math.Floor(value) / Math.Pow(10, decimals)
    18. ' Vorzeichen berücksichtigen
    19. Return sign * value
    20. End Function

    Ne funzt leider net X(

    Hab ne Dll mit der Shared Function als Verweis hinzugefügt und zb folgenden Code:

    Quellcode

    1. MsgBox(ClassLibrary1.Class1.RoundNumber("1.8122351", 3))



    Dann kommt da 18122351 raus, und andere komische Sachen ?(

    EDIT: Problem gelöst, manchmal will er einen "." und manchmal ein ","; indem Fall war es ein Komma, jetzt geht es.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „kevin89“ ()

    gibt es nicht zur einfachheit noch die

    VB.NET-Quellcode

    1. Math.Round
    2. bzw
    3. Decimal.Round


    funktion?
    soweit ich weis, erwartet diese drei parameter, einmal den wert selbst, dann die anzahl an nachkommastellen, und ob auf oder abgerundet wrden soll

    @powerprogger
    Hab das jetzt auch mal probiert, kann man das auch einstellen, dass wenn die Dezimalstelle 0 ist auch angezeigt wird. also 34,0 undstatt dem komma ein Punkt ist 34.0

    VB.NET-Quellcode

    1. Dim xzahl, yzahl As Decimal
    3. xzahl = e.Location.X / 6
    4. yzahl = e.Location.Y / 4.5
    6. xzahl *= Math.Pow(10, 1)
    7. xzahl += 0.5
    9. yzahl *= Math.Pow(10, 1)
    10. yzahl += 0.5
    12. xzahl = Math.Floor(xzahl) / Math.Pow(10, 1)
    13. yzahl = Math.Floor(yzahl) / Math.Pow(10, 1)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „rom-sharker“ ()

    deine rechnung hat einen kleinen logischen fehler:

    du machst aus eine rationalen Zahl eine ganze Zahl indem du die Nachkommstellen streichst.
    Anschließend teilst du die zahl durch 10

    d.h.
    0.234 => 0
    0/10 => 0.0
    bzw.
    1.234 => 1
    1/10 => 0.1



    wenn dann müsstest du nocheinmal floor machen

    VB.NET-Quellcode

    1. xzahl = Math.Floor(xzahl / 10)
    2. xzahl = Math.Floor( Math.Floor(xzahl) / 10)
    3. xzahl = Math.Floor( Math.Floor(xzahl) / Math.Pow(10,1))


    kommt darauf an was du mit dem floor erreichen willst da man genauigkeit einbüßt

    Also so wie ich es habe, ist es schon in ordnung es wird auf eine Kommastelle ausgegeben nur bei der null nicht.
    Beispiel: Ausgabe = 49,7 49,8 49,9 50 50,1 50,2
    Müsste so sein = 49,7 49,8 49,9 50,0 50,1 50,2
    dann in ne msgbox ausgeben msgbox("Wert" & xzahl)

    so hier mal der ganze code:

    VB.NET-Quellcode

    1.   Private Sub zonenkarte_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove
    3.   Dim xzahl, yzahl As Integer
    5.   xzahl = e.Location.X / 6
    6.   xzahl *= Math.Pow(10, 1)
    7.   xzahl += 0.5
    8.   xzahl = Math.Floor(xzahl) / Math.Pow(10, 1)
    10.   yzahl = e.Location.Y / 4.5
    11.   yzahl *= Math.Pow(10, 1)
    12.   yzahl += 0.5
    13.   yzahl = Math.Floor(yzahl) / Math.Pow(10, 1)
    16.   If xzahl < 10 Then
    17.   If yzahl < 10 Then
    18.   lbl_koord.Text = " " & xzahl & "," & " " & yzahl
    19.   ElseIf yzahl < 100 Then
    20.   lbl_koord.Text = " " & xzahl & "," & "" & yzahl
    21.   Else
    22.   lbl_koord.Text = " " & xzahl & "," & yzahl
    23.   End If
    24.   ElseIf xzahl < 100 Then
    25.   If yzahl < 10 Then
    26.   lbl_koord.Text = " " & xzahl & "," & " " & yzahl
    27.   ElseIf yzahl < 100 Then
    28.   lbl_koord.Text = " " & xzahl & "," & " " & yzahl
    29.   Else
    30.   lbl_koord.Text = " " & xzahl & "," & yzahl
    31.   End If
    32.   Else
    33.   If yzahl < 10 Then
    34.   lbl_koord.Text = xzahl & "," & " " & yzahl
    35.   ElseIf yzahl < 100 Then
    36.   lbl_koord.Text = xzahl & "," & " " & yzahl
    37.   Else
    38.   lbl_koord.Text = xzahl & "," & yzahl
    39.   End If
    40.   End If
    42.   End Sub

    Also wie man sieht sollen die Koordinate auf 1 Nachkommastelle ausgegeben werden auch wenn die nachkommastelle eine 0 ist. @4typen mit deinem Beispiel ist mir nicht geholfen. Da es ja das grundlegende Problem nicht löst: NULL auch anzeigen
    MfG

Facebook
Telefonspende