Zeit mit hoher Auflösung messen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Dasive.

    Zeit mit hoher Auflösung messen

    Guten Abend

    Ich habe mir eine Klasse gebaut um die Zeit zu messen, die bestimmte Vorgänge in meinem Programm benötigen.
    Diese werden anschließend in eine Textdatei geschrieben (log.txt).

    Um verschaltete Vorgänge messen zu können habe ich das ganze so aufgebaut, dass mehrere Zeiten gleichzeitig erfasst werden können.
    Ausgegeben wird einfach immer die letzte, aber das ist alles was ich brauche.

    Mein Problem ist das der Gesamtvorgang anscheinend nicht mehr Zeit benötigt als die "Sub-Vorgänge" was nicht möglich sein kann :huh:

    Die Messung mit einer StopWatch wahr mir zu ungenau, deshalb griff ich zu dieser Methode.

    Infos:
    Spoiler anzeigen
    Zeitmessungen:

    VB.NET-Quellcode

    1. Module time_management
    2. Dim measurements As New List(Of Long)
    4. Public Sub start_measurement()
    5. measurements.Add(Date.Now.Ticks)
    6. End Sub
    8. Public Function stop_measurement(Optional resolution_multiplier As Byte = resolution_multipliers.Microseconds) As Long
    9. Dim measurement As Long = CLng(Now.Date.Ticks - measurements.Item(measurements.Count - 1) / 1000)
    10. measurements.RemoveAt(measurements.Count - 1)
    11. For i As Integer = 0 To resolution_multiplier
    12. measurement = CLng(measurement / 1000)
    13. Next
    14. Return measurement
    15. End Function
    17. Public Enum resolution_multipliers As Byte
    18. Nanoseconds = 3
    19. Microseconds = 4
    20. Miliseconds = 5
    21. End Enum
    22. End Module


    Aufruf:

    VB.NET-Quellcode

    1. time_management.start_measurement()
    3. projects.Clear()
    4. check_directory(My.Settings.path_projects_di_ending)
    5. For Each project As String In My.Computer.FileSystem.GetDirectories(My.Settings.path_projects_di_ending)
    6. time_management.start_measurement()
    7. Dim project_info = My.Computer.FileSystem.GetDirectoryInfo(project)
    9. Dim new_project As New project_class
    10. With new_project
    11. .name = project_info.Name
    12. .created = project_info.CreationTime
    13. .last_edit = project_info.LastAccessTime
    14. .last_read = project_info.LastWriteTime
    15. .description = get_project_description(.name)
    16. End With
    18. projects.Add(new_project)
    19. log.write("PROJECT LOADED (" & time_management.stop_measurement & "µs)")
    20. Next
    22. log.write("ALL PROJECTS LOADED (" & time_management.stop_measurement & "µs)")


    Ausgabe (log.txt):

    Quellcode

    1. PROJECT LOADED (634µs)
    2. PROJECT LOADED (634µs)
    3. PROJECT LOADED (634µs)
    4. ALL PROJECTS LOADED (634µs)

    Ist es den möglich mit einer StopWatch eine Auflösung von ca 10'000stel Sekunden zu erreichen?

    Ich dachte es wären nur Milisekunden möglich.


    Nebenbei hat nicht jeder hier jahrelange Erfahrung oder eine Ausbildung absolviert, es gibt auch Anfänger.

    msdn.microsoft.com/de-de/libra….stopwatch.frequency.aspx
    eine Auflösung von 0.5µs hört sich doch schon sehr genau an - wenn die frequenz passt. Neben Miliskeunden gibts ja auch noch die Ticks^^

    Edit:
    Bei mir hat die Stopwatch ne Frequency von 3.215.400 Ticks pro Sekunde. Ein Tick entspricht also ca. 0.31µs.

    Vergangene Zeit in Sekunden = ElapsedTicks / Frequency

    also doch überaus genau

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FreakJNS“ ()