制作一个从特定时间开始运行的时钟

Question

我正在努力制作一个时钟，它将从特定的时间开始运行，例如，用户将时间设置为17.35，然后从那里运行。最简单的方法是什么？我试着用Timeserial设定时间，但不知道如何给它增加时间，所以它没有给我带来任何好处。

想法？

编辑:这个程序背后的想法是向用户展示一个正常的数字时钟，它已经加速了。

Answer 1

在表单中添加标签和计时器组件，并设置起始日期和时间(日期将不可见)。因此，如果您设置17:35:00，那么时间将从那一刻开始，并像时钟一样每秒钟更新一次。

Public Class Form1

    Dim startTime As DateTime

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        startTime = New DateTime(2014, 1, 1, 17, 35, 0) 'setting time at 17:35:00
        Label1.Text = startTime.ToString("HH:mm:ss")

        Timer1.Interval = 1000 '1 tick every second
        Timer1.Start()

    End Sub


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        startTime = startTime.AddSeconds(1)
        Label1.Text = startTime.ToString("HH:mm:ss")
    End Sub
End Class

Answer 2

创建一个带有计时器的表单。将计时器设置为1000 it并启用它。调暗三个变量小时，分钟，秒。在timer事件上，增加secs。当secs = 60时，将secs =0设置为mins；将mins设置为小时，然后以您选择的格式显示hrs:mins:secs。添加一个按钮，允许用户输入小时、分钟、秒的起始值。根据您所说的“加速”的含义，如果您希望计时器运行得更快，则可以减少它的延迟，而不是在本地时间之前。