[RESOLVED] Round number to 1 decimal place

[henryolik]

Hi! When I want to reduce mbytesIn and totalmBytes to one decimal place with Math.Round(), it doesn't change anything. It works for speed meter and percentage well so I don't know what's bad...
Thanks for any help!

 Private Sub download_change(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim mbytesIn As Double = Double.Parse(e.BytesReceived.ToString()) / 1000000
        Dim totalmBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString()) / 1000000
        Dim percentage As Double = mbytesIn / totalmBytes * 100
        pb_load.Value = Int32.Parse(Math.Truncate(percentage).ToString())
        percentage = Math.Round(percentage, 0)
        la_perc.Text = percentage & " %"
        Dim unita As String
        If totalmBytes < 1 Then
            totalmBytes = totalmBytes * 1000
            unita = " kB"
            If totalmBytes < 1 Then
                totalmBytes = totalmBytes * 1000
                unita = " B"
            End If
        ElseIf totalmBytes > 1000 Then
            totalmBytes = totalmBytes / 1000
            unita = " GB"
        Else
            unita = " MB"
        End If
        Dim unitb As String
        If mbytesIn < 1 Then
            mbytesIn = mbytesIn * 1000
            unitb = " kB"
            If mbytesIn < 1 Then
                mbytesIn = mbytesIn * 1000
                unitb = " B"
            End If
        ElseIf mbytesIn > 1000 Then
            mbytesIn = mbytesIn / 1000
            unitb = " GB"
        Else
            unitb = " MB"
        End If
        Math.Round(mbytesIn, 1)
        Math.Round(totalmBytes, 1)
        la_size.Text = mbytesIn & unitb & " / " & totalmBytes & unita
        Dim speed As Double = e.BytesReceived / SW.ElapsedMilliseconds / 1000
        Dim unit As String
        If speed < 1 Then
            unit = " kB/s"
            speed = speed * 1000
            If speed < 1 Then
                unit = " B/s"
                speed = speed * 1000
            End If
        Else
            unit = " MB/s"
        End If
        speed = Math.Round(speed, 1)
        la_speed.Text = "Download speed: " & speed & unit
    End Sub

[OptionBase1]

It works for speed and percentage because you're doing this:

value = Math.Round(value,n)

With mBytesIn and totalmBytes you're just doing:

Math.Round(value,n)

So do this:

    mbytesIn = Math.Round(mbytesIn, 1)
    totalmBytes = Math.Round(totalmBytes, 1)

[henryolik]

Oh I overlooked it. Thank you!