显示剩余时间时间跨度

Question

我越来越想显示操作的时间remainig

的问题是只能用剩下的计时器，我得到一个负值的问题...

这是一个例子10000毫秒（10秒）一个操作：

所以无论如何，如果我删除“ - ”从时间跨度小时和分钟剧照incorrects值字符...

Dim time_out as integer = 60000 ' 'Milisegundos 

    Dim StartTime As DateTime ' Tiempo inicio 
    Dim EndTime As DateTime ' Tiempo final 

    Dim ElapsedTime As TimeSpan ' Tiempo transcurrido 
    Dim RemainingTime As TimeSpan ' Tiempo restante 


    ' Elapsed Time 
#Region " Elapsed Time Function " 

    Public Function Print_Elapsed_Time() 
     If StartTime.ToString = "01/01/0001 0:00:00" Then 
      StartTime = Now 
      StartTime = StartTime.AddSeconds(-1) 
     End If 
     ElapsedTime = Now().Subtract(StartTime) 
     Return String.Format("{0:00}:{1:00}:{2:00}", CInt(Math.Floor(ElapsedTime.TotalHours)) Mod 60, CInt(Math.Floor(ElapsedTime.TotalMinutes)) Mod 60, CInt(Math.Floor(ElapsedTime.TotalSeconds)) Mod 60) 
    End Function 
#End Region 

#Region " Remaining Time Function " 

    Public Function Print_Remaining_Time() 
     If EndTime.ToString = "01/01/0001 0:00:00" Then 
      EndTime = Now 
      EndTime = EndTime.AddMilliseconds(Time_Out - 1000) 
     End If 
     RemainingTime = Now().Subtract(EndTime) 
     Return String.Format("{0:00}:{1:00}:{2:00}", CInt(Math.Floor(RemainingTime.TotalHours)) Mod 60, CInt(Math.Floor(RemainingTime.TotalMinutes)) Mod 60, CInt(Math.Floor(RemainingTime.TotalSeconds)) Mod 60).Replace("-", "") 
    End Function 

#End Region 

Answer 1

我认为结束时间你想：

RemainingTime = EndTime.Subtract(Now) 

否则，我不肯定你是如何初始化这些的，但是我做了这个改变：

Dim StartTime As DateTime = DateTime.MinValue ' Tiempo inicio 
Dim EndTime As DateTime = DateTime.MinValue ' Tiempo final 

还有：

If StartTime = DateTime.MinValue Then ' ... etc ' 

但也许一个标志或什么是一个更好的方式来发信号重置。

Answer 2

下面是一个使用定时器和两个标签从10秒倒计时的例子

'example - countdown from 10 secs 
Dim countdown As New TimeSpan(0, 0, 10) 
Dim stpw As New Stopwatch 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If stpw.IsRunning Then 
     stpw.Stop() 
     Timer1.Stop() 
    Else 
     stpw.Stop() 
     stpw.Reset() 
     stpw.Start() 
     Timer1.Interval = 100 
     Timer1.Start() 
    End If 
End Sub 

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 
    'label1 - elapsed time 
    'label2 - time remaining 
    If stpw.Elapsed <= countdown Then 
     Label1.Text = stpw.Elapsed.ToString 
     Label2.Text = (countdown - stpw.Elapsed).ToString 
    Else 
     stpw.Stop() 
     Label1.Text = countdown.ToString 
     Label2.Text = "00:00:00" 
    End If 
End Sub