Question

我正在尝试制作一个从特定时间开始运行的时钟 - 例如用户将时间设置为17.35并从那里运行。最简单的方法是什么？我尝试用Timeserial设置时间，但无法弄清楚如何为它增加时间，所以它没有让我到任何地方。

想法？

编辑：该程序背后的想法是向用户显示已经加速的正常数字时钟。

Answer 1

创建一个带有计时器的表单。将计时器设置为1000毫秒并启用它。昏暗的三个变量小时，分钟，秒。在计时器事件中，增加秒数。当secs = 60时，设置secs = 0并递增分钟;同上几分钟，然后以您选择的格式显示小时：分钟：秒。添加一个按钮，允许用户输入小时，分钟，秒的起始值。根据你所说的'加速'的意思，你可以减少计时器的延迟，如果你想让它运行得更快，而不是超过当地时间。

Answer 2

在表单中添加Label和Timer组件，并设置开始日期和时间（日期将不可见）。因此，如果您设置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

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

2 个答案: