Wie man verstrichene Zeit in Millisekunden

Da die Leistung des string-Verkettung ist sehr schwach in VB6 Teste ich mehrere StringBuilder-Implementierungen. Um zu sehen, wie lange Sie läuft, ich nutze derzeit den integrierten

Timer

Funktion, die nur gibt mir die Anzahl der Sekunden nach Mitternacht.

Gibt es eine Möglichkeit (ich denke, durch importieren einer system-Funktion), um etwas mit Millisekunden-Präzision?

InformationsquelleAutor RobertB | 2009-07-02

12

Ja, Sie können die Win32-API verwenden:
```
DWORD WINAPI GetTickCount(void);
```
Importieren es in VB6 erklären es so:
```
Private Declare Function GetTickCount Lib "kernel32" () As Long
```
Nennen Sie es vor der operation und nach und dann berechnen Sie den Unterschied in der Zeit bestanden.

GetTickCount hat nur 10ms Genauigkeit, wenn Sie mehr Präzision, diese sollten Sie verwenden, QueryPerformanceCounter
Siehe blogs.msdn.com/oldnewthing/archive/2005/09/02/459952.aspx
msdn sagt nichts über 10ms, aber er sagt: "Die resolution beschränkt sich auf die Auflösung des system-Timers. Dieser Wert ist auch betroffen von den Anpassungen durch die GetSystemTimeAdjustment Funktion." also vielleicht 10ms ist für Ihre spezielle Maschine?
GetTickCount ist gut genug für die meisten Zwecke, so lange wie Sie wissen, wenn Ihre Grenzen stoßen, versuchen Sie den code in support.microsoft.com/kb/172338 allerdings, vergewissern Sie sich, dass 10ms Genauigkeit ist die beste, du wirst auf jedem Windows-system
Ja, Raymond ist der Artikel von blogs.msdn.com/oldnewthing/archive/2005/09/02/459952.aspx ist nett, er bezieht sich noch auf eine Auflösung des system-Timers, aber er berät Sie auch QueryPerformanceCounter, die auch einige Zeit dauert bis das execute - also gibt es Nachteile. Aber gut zu wissen.

InformationsquelleAutor justadreamer

Fügen Sie den folgenden code in eine Stopwatch-Klasse:

Option Explicit

Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean

Private m_startTime As Currency
Private m_freq As Currency
Private m_overhead As Currency

Public Sub start()
    QueryPerformanceCounter m_startTime
End Sub

Public Function ElapsedSeconds() As Double
    Dim currentTime As Currency
    QueryPerformanceCounter currentTime
    ElapsedSeconds = (currentTime - m_startTime - m_overhead) / m_freq
End Function

Public Function ElapsedMilliseconds() As Double
    ElapsedMilliseconds = ElapsedSeconds * 1000
End Function

Private Sub Class_Initialize()
    QueryPerformanceFrequency m_freq
    Dim ctr1 As Currency
    Dim ctr2 As Currency
    QueryPerformanceCounter ctr1
    QueryPerformanceCounter ctr2
    m_overhead = ctr2 - ctr1
End Sub

Können Sie es verwenden, wie folgt:

Dim sw as StopWatch
sw = New StopWatch
sw.Start

' Code you want to time

Debug.Print "Code took " & sw.ElapsedMilliseconds " ms"

Das ist auch ganz nett für die Sammlung einige debug-Statistiken oder die Implementierung einer performance-logger.

InformationsquelleAutor Patrick McDonald

2

Könnten Sie auch erwägen, einen anderen Ansatz. Versuchen Sie den Aufruf der Routinen aus einer Schleife mit genug Iterationen, um Ihnen einen messbaren Zeitdifferenz.

InformationsquelleAutor jac
1

Können Sie zwei Win32-APIs:
- QueryPerformanceCounter: Um die Anzahl zu Beginn und am Ende der Veranstaltung.
- QueryPerformanceFrequency: Um die Anzahl der ticks pro Sekunde.
Diese verwenden LARGE_INTEGER darstellen, 64-bit-zahlen.

VB6 code in diesem MSDN-KnowledgeBase-Artikel: support.microsoft.com/kb/172338

InformationsquelleAutor Richard
1

Gibt es code und eine Erklärung in der MSDN KB-Artikel Q172338 Wie Zu Verwenden QueryPerformanceCounter Time Code

InformationsquelleAutor MarkJ
1

Gibt es einen Thomas Edison Geschichte, wo er interviewt einige angehende Ingenieure.

Bittet er Sie, bestimmen Sie das Volumen einer Glühbirne. Kandidat A Maßnahmen, die Sie und benutzt dann die Formel für das Volumen einer Kugel, und eine andere Formel für das Volumen des Halses, und so weiter. Kandidat B füllt es mit Wasser und gießt es in einen Messbecher. Wer denkst du, wer den Auftrag bekam?

Führen Sie es 1000 mal und schauen Sie auf Ihre Uhr vor und nach. Sekunden = Millisekunden.

InformationsquelleAutor Mike Dunlavey

Ich immer verwenden Sie diese in ein Modul irgendwo (in einer Klasse). Dieser code ermöglicht Ihnen die Verwaltung von bis zu sechs Timer, mit hoher Genauigkeit:

Option Explicit

Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long
Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long

Private cFrequency As Currency
Private cCounters(0 To 5) As Currency

Public Sub StartCounter(Optional lCounterIndex As Long)
    QueryPerformanceFrequency cFrequency
    QueryPerformanceCounter cCounters(lCounterIndex)
End Sub

Public Function GetCounter(Optional lCounterIndex As Long) As Double
    Dim cCount As Currency

    QueryPerformanceFrequency cFrequency
    QueryPerformanceCounter cCount
    GetCounter = Format$((cCount - cCounters(lCounterIndex) - CCur(0.0008)) / cFrequency, "0.000000000")
End Function

Public Function Scientific(ByVal dValue As Double) As String
    Dim lMultiplier As Long
    Dim vNames As Variant

    lMultiplier = 5
    vNames = Array("peta", "tera", "giga", "mega", "kilo", "", "milli", "micro", "nano", "pico", "femto")
    If Abs(dValue) < 1 Then
        While Abs(dValue) < 1
            dValue = dValue * 1000
            lMultiplier = lMultiplier + 1
        Wend
    ElseIf Abs(dValue) >= 1000 Then
        While Abs(dValue) >= 1000
            dValue = dValue / 1000
            lMultiplier = lMultiplier - 1
        Wend
    End If

    Scientific = Format$(dValue, "0.000") & " " & vNames(lMultiplier)
End Function

InformationsquelleAutor Guillermo Phillips

-2

Können Sie versuchen, mit den System::Diagnostics::Stoppuhr
```
Imports System.Diagnostics

Dim sw As New Stopwatch()
sw.Start()
// do something
LOG("Elapsed " + sw.ElapsedMilliseconds + " ms")
```
Dies ist .NET-code, das hat er ausdrücklich gesagt VB6 (das war der Letzte release vor .NET 1.0 veröffentlicht wurde)
Sorry, mein Fehler. Dann die GetTickCount ist der Weg zu gehen in VB6, wie es ist die alternative zu clock_t-Objekt in C/C++
.NET Stoppuhr verwendet QueryPerformanceCounter/QueryPerformanceFrequency in den hintergrund, wo möglich (Sie können herausfinden, wenn es verwendet wird, durch untersuchen der IsHighResolution Eigentum der Stoppuhr)

InformationsquelleAutor Ezekiel Rage

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.