下载EST总时间

Question

使用下面的事件如何显示文件传输所剩的总时间--进度条运行良好--但如果可能的话，我也想显示所剩的时间。

 Private Sub onTransferProgress(ByVal source As String, ByVal destination As String, ByVal transferredBytes As Integer, ByVal totalBytes As Integer, ByVal message As String) Handles transfer.onTransferProgress
    Dim totalbytess As Long = transferredBytes / 1024
    Dim mtotalbytes As Long = totalbytess / 1024
    Dim status As String = ""
    status = status & " Transfering Files - transferred: " & source & " to " & destination


    Me.ProgressBar1.Value = transferredBytes
    status = status & "Transferring.. " & (ProgressBar1.Value / 1024).ToString()

    Me.tbStatus.Text = status
    lblWorking.Text = message
    lblWorking.Visible = True

End Sub

Answer 1

现在很多进度条都不这样做，因为这些信息并不总是可靠的。过去的表现并不能保证未来的结果。

但是如果您想要，在此方法之外，在下载开始时，您将希望存储当前时间。然后，在此方法中，计算自该时间以来已过的秒数。然后你就会有一些简单的数学。transferredBytes花了X秒，所以totalbytess应该用Y秒。

因此，如果您正在传输10 2MB (10485760字节)，并且接收了2MB (2097152字节)，20秒之后，您的传输速率为104,857.6字节/秒。剩下8MB ( 8388608 )，所以8388608除以104,857.6是80秒。

Dim remainingBytes = totalbytess - mtotalbytes
Dim currentTransferRate = mtotalbytes / <your time calculation here>
Dim remainingSeconds = remainingBytes / currentTransferRate