How to use precise timer under .net CF

This article mainly explains "how to use accurate timer under .net CF". The content in the article is simple and clear, and it is easy to learn and understand. Please follow Xiaobian's train of thought to study and learn "how to use accurate timer under .net CF".

Precise timer under .net CF

Usage:

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

Code:

Imports System.Runtime.InteropServicesNamespace AtomicCFPublic Class Timer _ Public Shared Function QueryPerformanceCounter (ByRef perfCounter As Long) As IntegerEnd Function _ Public Shared Function QueryPerformanceFrequency (ByRef frequency As Long) As IntegerEnd FunctionPrivate m_frequency As Int64Private m_start As Int64Public Sub New () If QueryPerformanceFrequency (m_frequency) = 0 ThenThrow New ApplicationExceptionEnd If'Convert to ms.m_frequency = CLng (m_frequency / 1000) End SubPublic Sub Start () If QueryPerformanceCounter (m_start) = 0 ThenThrow New ApplicationExceptionEnd IfEnd SubPublic 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 Thank you for your reading This is the content of "how to use accurate timers under .net CF". After the study of this article, I believe you have a deeper understanding of how to use accurate timers under .net CF, and the specific use needs to be verified in practice. Here is, the editor will push for you more related knowledge points of the article, welcome to follow!