時間跨度不能正常工作

Question

我正在致力於下載ETA計算器..所以我使用Timespan代碼來告訴ETA..Visual Basic中的時間跨度代碼不能正常工作......因爲當我輸入文件大小和速度，例如1GB和1 Mb/s，Label1.Text的時間跨度爲5.17：00：00。 這裏是我的代碼

Public Class Form1 

Private Property z As Object 

Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked 
    Process.Start("www.speedtest.net") 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim x, y, z, a, b, c As Single 

    x = TextBox1.Text 
    y = TextBox2.Text 

    If RadioButton1.Checked = True And RadioButton3.Checked = True Then 
     Label4.Text = "Minutes" 
     z = x * 1024 
     c = y/8 
     a = z/c 
     Label1.Text = New TimeSpan(a/60, 0, 0).ToString() 
    End If 

    If RadioButton1.Checked = True And RadioButton4.Checked = True Then 
     Label4.Text = "Minutes" 
     z = x * 1024 
     c = 1024/8/y 
     a = z/c 
     Label1.Text = New TimeSpan(a/60, 0, 0).ToString() 
    End If 
    If RadioButton2.Checked = True And RadioButton3.Checked = True Then 
     Label4.Text = "Hours" 
     z = x * 1048576 
     c = y/8 
     a = z/c 
     b = a/60 
     Label1.Text = New TimeSpan(a/60, 0, 0).ToString() 
    End If 
    If RadioButton2.Checked = True And RadioButton4.Checked = True Then 
     Label4.Text = "Hours" 
     z = x * 1048576 
     c = 1024/8 * y 
     a = z/c 
     b = a/60 
     Label1.Text = New TimeSpan(a/60, 0, 0).ToString() 
    End If 
End Sub 

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged 

End Sub 

Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click 
    MsgBox("Made by SldCvr Enterprises", MsgBoxStyle.OkOnly, "About") 

End Sub 

末級

這裏是設計師

http://i.stack.imgur.com/f3pFm.jpg

Answer 1

時間跨度工作正常您的實現是錯誤的。

第一個錯誤：a/60將返回一個整數而不是double。 第二個錯誤：新的TimeSpan（h，m，s，ms）期望整數

代碼編譯的原因是因爲如果要將/ 60更改爲/ 60d，編譯器會對a/60進行四捨五入d爲十進制），你會得到一個正確的除法，但也是一個編譯器錯誤。由於整數限制。要修復此錯誤，請將您的除數設置爲秒數，然後執行（新TimeSpan（））。addSeconds（您的編號）;