[VB] - Download speed en Time Remaining

[Mopperman]

Na jaren van afwezigheid in VB, ben ik er nu weer terug ingestapt, maar ben een beetje roestig....

Voor 't werk ben ik bezig met een klein programmatje om installaties te downloaden, nu ben ik zover dat ik meerdere files gedownload krijg, een mooie progressbar heb, echter, krijg ik 't nog neit voor elkaar om een time remaining en/of een download speed erbij te krijgen.

Nu vroeg ik me af of de tweakers hierme in de juiste richting kunnen duwen....
Momenteel heb ik dit in visual basic staan....

Visual Basic:

Imports System.Net

Public Class serversoftwarepack


    Private Sub btnStartDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartDownload.Click

        Dim client As WebClient = New WebClient
        Dim client2 As WebClient = New WebClient
        Dim client3 As WebClient = New WebClient
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
        client.DownloadFileAsync(New Uri("http://www.bbned.nl/scripts/speedtest/download/file32mb.bin"), "C:\temp\file32mb.bin")
        client2.DownloadFileAsync(New Uri("http://speedtest.tweak.nl/10mb.bin"), "C:\temp\file10mb.bin")
        client3.DownloadFileAsync(New Uri("http://speedtest.tweak.nl/25mb.bin"), "C:\temp\file25mb.bin")
        btnStartDownload.Text = "Download in Progress"
        btnStartDownload.Enabled = False
        btnStartInstall.Enabled = False
        btnStartInstall.Text = "Download Files First"

  
    End Sub


    Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100

        ProgressBar.Value = Int32.Parse(Math.Truncate(percentage).ToString())
        ProgressText.Text = Int32.Parse(Math.Truncate(percentage).ToString())

    End Sub

    Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        If e.Error Is Nothing Then
            btnStartDownload.Text = "Download Completed"
            btnStartDownload.Enabled = False
            btnStartInstall.Enabled = True
            btnStartInstall.Text = "Start Software Installation"
        Else
            MsgBox("An error occured: " & e.Error.Message)
        End If
    End Sub

    Private Sub btnStartInstall_Click(sender As Object, e As EventArgs) Handles btnStartInstall.Click
        btnStartInstall.Enabled = False
        btnStartInstall.Text = "Software Installation in progress"
    End Sub



End Class

[epic007]

Op het eerste gezicht start je 3 clients, en maar bij één voeg je de DownloadProgressChanged handler toe.

Verder moet je een manier zien te vinden om de totalbytes van alle files bij elkaar op te tellen en alle bytesreceived bij elkaar op tellen.

[RobIII]

Visual Basic .NET:

        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString()) 
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString()) 

        ProgressBar.Value = Int32.Parse(Math.Truncate(percentage).ToString()) 
        ProgressText.Text = Int32.Parse(Math.Truncate(percentage).ToString()) 

Doe eens niet zeg Waarom doe je dit in hemelsnaam?

Wat had je zelf bedacht over het berekenen van de speed (Mb/s) en time remaining ("eta")?
Je kunt gewoon ergens bijhouden wanneer je gestart bent, je weet hoeveel bytes je gedownload hebt dus vervolgens uitrekenen hoeveel (mega)bytes p/sec je doet moet geen rocket science zijn. Evenals de eta: je weet hoeveel bytes je reeds gedownload hebt, hoeveel seconden dat kostte en hoeveel bytes je nog te gaan hebt. Veel meer dan basisschool "wiskunde" heb je hier niet voor nodig hoor

Pas je op dat dit geen scriptrequest / Kan iemand even...? wordt? We zien hier graag wat je zelf al bedacht/geprobeerd hebt om je vraag te beantwoorden, en daar zie ik nu 0 van terug.

[Mopperman]

Ik ben wat roestig zoals ik al aangaf...

punt is dat ik enorm weinig/geen ervaring heb (nog) met berekenen van tijden e.d.
Mijn pogingen om met een ticker iets te proberen kwamen allemaal uit met een error, vandaar mijn kreet om een duwtje...

Wat betreft t stukje code wat je quote....
Kon zo snel niets beters verzinnen... Werkt wel....!

Zal zo ff rest van de code posten wat ik al had....

[ Voor 7% gewijzigd door Mopperman op 04-10-2013 11:09 ]

[RobIII]

Mopperman schreef op vrijdag 04 oktober 2013 @ 11:08:
punt is dat ik enorm weinig/geen ervaring heb (nog) met berekenen van tijden e.d.
Mijn pogingen om met een ticker iets te proberen kwamen allemaal uit met een error, vandaar mijn kreet om een duwtje...

Je hebt helemaal geen ticker nodig; je wil gewoon de "starttijd" van de download(s) in een variabele (van het type DateTime) opslaan. En elke keer dat je ProgressChanged event wordt aangeroepen kun je de verstreken tijd bepalen door gewoon Datetime.Now - StartDate te doen. Dat geeft een Timespan terug die weer properties heeft als TotalSeconds, TotalMilliseconds etc. En die kun je vervolgens weer makkelijk gebruiken in je berekening:

speed_in_bytes_per_second = totalbytesdownloaded / totalseconds

Je weet hoeveel bytes je hebt gedownload, je weet hoeveel je er nog moet, je weet hoe laat je begonnen bent en hoeveel seconden het duurde om het aantal bytes dat je nu hebt te downloaden. Dat is meer dan genoeg om een goede schatting te maken wat de eindtijd wordt van de laatste byte. Die eindtijd - beginttijd = tijd_te_gaan (eta)

Mopperman schreef op vrijdag 04 oktober 2013 @ 11:08:
Kon zo snel niets beters verzinnen... Werkt wel....!

Naar een string converteren en daarna weer terug parsen is nooit een goed idee. Gewoon casten (of Convert.ToDouble() ofzo gebruiken).

[ Voor 17% gewijzigd door RobIII op 04-10-2013 11:28 ]