为什么我用VB写的定时器程序不准确？

Question

我一直在尝试使用 VB 2010 创建一个精确到 0.05 秒（如果可能，0.01 秒）的计时器程序

我在表单中插入了一个计时器 (Timer1, Interval - 50)。

定时器计时的代码：

    intdsecond = intdsecond + 5
    If intdsecond > 99 Then
        intdsecond = intdsecond - 100
        intsecond = intsecond + 1
    End If

    If intsecond > 59 Then
        intsecond = intsecond - 60
        intminute = intminute + 1
    End If

注意：intdsecond、intsecond 和 intminute 是全局变量，用于记录 0.01s、1s 和 1min 时间。

但是当我运行计时器 1 分钟时，记录的时间是 48.05 秒

如何让我的计时器更准确？代码有什么我做错了吗？

额外信息：我使用的是 Windows 7、vb 2010、.Netframework 4 客户端配置文件。

Answer 1

如果这是System.Windows.Forms.Timer，则不精确到50毫秒：

Windows 窗体计时器组件是单线程的，精度限制为 55 毫秒。如果您需要更准确的多线程计时器，请使用 System.Timers 命名空间中的 Timer 类。

请参阅System.Windows.Forms.Timer 文档中的备注。

您也可以考虑System.Diagnostics.Stopwatch。当间隔过去时它不会引发事件，但如果您只关心经过的总时间，它确实提供了一些方便的属性（例如ElapsedMilliseconds）。

Answer 2

您不应在编写计时器逻辑时期望间隔完全准确。有多种因素可以延迟计时器（线程优先级、代码中的延迟等）。间隔越短，感知到的错误就越大（50 毫秒非常短）。相反，您应该始终将当前时间与开始时间进行比较（预先存储开始时间并与之进行比较）并将其用于显示目的。