.net随笔-vb.net 系统计时器

版权声明:本博客所有文章版权归博主刘兴所有,转载请注意来源 https://blog.csdn.net/AI_LX/article/details/88826118

TickCount属性提供对计算机的系统计时器的访问,从计算机的系统计时器获取毫秒计数。
该计时器在计算机处于活动状态时运行。定时器的分辨率不小于500毫秒。
您可以使用此属性使您的应用程序的行为依赖于它运行的时间长度,或者您可以使用它来标记事件,这两者都独立于计算机的时钟。
谨慎
当TickCount属性的值达到最大整数值(MaxValue)时,它会跳转到最小整数值(MinValue),一个负数,并继续递增。
如果计算机连续运行,TickCount在大约24.9天内从0增加到最大值。
TickCount属性仅在操作系统运行时递增;当电脑进入待机或休眠等特定的节能模式时,它会暂停。TickCount属性与计算机的时钟设置无关。

Public Class Form1
    Dim startTicks As Integer
    Dim endTicks As Integer

    Private Function getTimes(startTick, endTick)
        Dim uStart As UInteger = CUInt(CLng(startTick) - Integer.MinValue)
        Dim uEnd As UInteger = CUInt(CLng(endTick) - Integer.MinValue)
        Return uEnd - uStart
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        startTicks = My.Computer.Clock.TickCount
        Button2.Enabled = True
        Button1.Enabled = False
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        endTicks = My.Computer.Clock.TickCount
        Dim msTotalTime = getTimes(startTicks, endTicks)
        Dim msTime = CInt(msTotalTime Mod 1000) '毫秒
        Dim sTime = CInt((msTotalTime / 1000) Mod 60) '秒
        Dim mTime = CInt(sTime / (1000 * 60)) '分
        Label1.Text = CStr(mTime) & ":" & CStr(sTime) & ":" & CStr(msTime)
        Button2.Enabled = False
        Button1.Enabled = True
    End Sub
End Class

在这里插入图片描述

展开阅读全文

没有更多推荐了,返回首页