.Net CF下精確的計(jì)時(shí)器怎么使用

這篇文章主要講解了“.Net CF下精確的計(jì)時(shí)器怎么使用”，文中的講解內(nèi)容簡(jiǎn)單清晰，易于學(xué)習(xí)與理解，下面請(qǐng)大家跟著小編的思路慢慢深入，一起來(lái)研究和學(xué)習(xí)“.Net CF下精確的計(jì)時(shí)器怎么使用”吧！

.Net CF下精確的計(jì)時(shí)器

用法：

Dim t as New AtomicCF.Timer
t.start()
....'Some functions here
Dim TimeLapsed as Long = t.stop()

代碼：

Imports System.Runtime.InteropServices
Namespace AtomicCF

Public Class Timer
<DllImport("coredll.dll", EntryPoint:="QueryPerformanceCounter")> _
Public Shared Function QueryPerformanceCounter(ByRef perfCounter As Long) As Integer
End Function

<DllImport("coredll.dll", EntryPoint:="QueryPerformanceFrequency")> _
Public Shared Function QueryPerformanceFrequency(ByRef frequency As Long) As Integer
End Function

Private m_frequency As Int64
Private m_start As Int64

Public Sub New()
If QueryPerformanceFrequency(m_frequency) = 0 Then
Throw New ApplicationException
End If
'Convert to ms.
m_frequency = CLng(m_frequency / 1000)
End Sub

Public Sub Start()
If QueryPerformanceCounter(m_start) = 0 Then
Throw New ApplicationException
End If
End Sub


            Public Function [Stop]() As Int64
                Dim lStop As Int64 = 0
                If QueryPerformanceCounter(lStop) = 0 Then
                    Throw New ApplicationException
                End If
                Return CLng((lStop - m_start) / m_frequency)
            End Function
        End Class
    End Namespace

感謝各位的閱讀，以上就是“.Net CF下精確的計(jì)時(shí)器怎么使用”的內(nèi)容了，經(jīng)過(guò)本文的學(xué)習(xí)后，相信大家對(duì).Net CF下精確的計(jì)時(shí)器怎么使用這一問題有了更深刻的體會(huì)，具體使用情況還需要大家實(shí)踐驗(yàn)證。這里是億速云，小編將為大家推送更多相關(guān)知識(shí)點(diǎn)的文章，歡迎關(guān)注！