Initial

Backup/EDOKA/Utils/clsXTimer.vb

@@ -0,0 +1,87 @@
+Option Strict Off
+Option Explicit On
+Friend Class clsXTimer
+
+    Private Sub CODFORCOPY_PAST()
+        '===============================================================================
+        'Dieser Codteil wird für die Messung gebraucht
+        '===============================================================================
+        Dim m_clsXTime As New clsXTimer()
+        m_clsXTime.Calibrate()
+        m_clsXTime.StartTimer()
+        'Zu messender Code go's here
+        m_clsXTime.StopTimer()
+
+    End Sub
+
+
+
+#Region " Class Constructor "
+    Public Sub New()
+        MyBase.New()
+        Class_Initialize_Renamed()
+    End Sub
+
+#End Region
+
+#Region " Deklarationen "
+    Private Declare Function QueryPerformanceCounter Lib "kernel32" (ByRef lpPerformanceCount As clsXTimer.LARGE_INTEGER) As Integer
+    Private Declare Function QueryPerformanceFrequency Lib "kernel32" (ByRef lpFrequency As clsXTimer.LARGE_INTEGER) As Integer
+    Private Structure LARGE_INTEGER
+        Dim lowpart As Integer
+        Dim highpart As Integer
+    End Structure
+
+    Private m_liStart As clsXTimer.LARGE_INTEGER
+    Private m_liEnd As clsXTimer.LARGE_INTEGER
+    Private m_liFreq As clsXTimer.LARGE_INTEGER
+    Private m_dblCalibr As Double
+
+#End Region
+
+#Region " Eigenschaften "
+    Public ReadOnly Property RunTime() As Object
+        Get ' ms
+            RunTime = Math.Abs((Calibr(m_liEnd) - Calibr(m_liStart)) / Calibr(m_liFreq) * 1000 - m_dblCalibr)
+            If RunTime < 0 Then RunTime = 0
+        End Get
+    End Property
+
+#End Region
+
+#Region " Timer "
+    Public Sub Calibrate()
+        Call QueryPerformanceCounter(m_liStart)
+        Call QueryPerformanceCounter(m_liEnd)
+        m_dblCalibr = (Calibr(m_liEnd) - Calibr(m_liStart)) / Calibr(m_liFreq) * 1000 ' Millisekunden.
+    End Sub
+
+    Public Sub StartTimer()
+        Call QueryPerformanceCounter(m_liStart)
+    End Sub
+
+    Public Sub StopTimer()
+        Call QueryPerformanceCounter(m_liEnd)
+        MsgBox("Verstichene Zeit=" & Format(RunTime, "0.00 ms"))
+    End Sub
+
+    Public Function Stop_nd_GetTime() As String
+        Call QueryPerformanceCounter(m_liEnd)
+        Return Format(RunTime, "0.00 ms")
+    End Function
+
+    Private Function Calibr(ByRef liX As clsXTimer.LARGE_INTEGER) As Double
+        Calibr = liX.lowpart + liX.highpart * 4294967296.0#
+    End Function
+
+    Private Sub Class_Initialize_Renamed()
+        Call QueryPerformanceFrequency(m_liFreq)
+    End Sub
+
+#End Region
+
+
+
+
+
+End Class