Klasse für das Messen von Frameraten(FPS) oder sonstigen periodischen Events

    • VB.NET

      Klasse für das Messen von Frameraten(FPS) oder sonstigen periodischen Events

      Hallo VB-Paradise Community :)

      Hab wegen einem Spiel kürzlich einen FPS-Messer gebraucht. Da für mich auch die Berechnung der durschnittlichen Frame Rate interessant war, hab ich diese Funktion auch eingebaut. Ich weiß ein sehr simpler Zweck, da ich aber im Inet nur FPS-Meter in VB für die aktuelle bzw. max. und min. Framerate gefunden haben, dachte ich es wäre interessant den Code hier für die Nachwelt zu teilen.

      Natürlich kann man damit alle möglichen Aktualisierungsintervalle messen!

      Hier die Klasse:

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Option Strict On
      3. Public Class FPS_Measure
      5. ' api declare
      6. Public Declare Function GetTickCount Lib "kernel32" () As Long
      7. ' is one sec. ?
      8. Private FPS_LastCheck As Long
      9. ' FPS were counted
      10. Private FPS_Count As Long
      11. ' here is the actual FPS number
      12. Public FPS_Current As Integer
      13. ' AVG FPS
      14. Public FPS_AVG As Double
      15. ' highest FPS
      16. Public FPS_Highest As Integer
      17. ' lowest FPS
      18. Public FPS_Lowest As Integer
      20. Public Sub Measure_FPS(ByVal calcHighest As Boolean, ByVal calcLowest As Boolean, ByVal calcAVG As Boolean)
      22. If GetTickCount() - FPS_LastCheck >= 1000 Then
      23. FPS_Current = CInt(FPS_Count)
      24. FPS_Count = 0 ' set the counter
      25. FPS_LastCheck = GetTickCount()
      26. End If
      28. If calcHighest Then
      29. measure_FPS_Highest()
      30. End If
      32. If calcLowest Then
      33. measure_FPS_Lowest()
      34. End If
      36. If calcAVG Then
      37. measure_FPS_AVG()
      38. End If
      40. FPS_Count = FPS_Count + 1
      42. End Sub
      44. Private Sub measure_FPS_Highest()
      45. ' highest FPS
      46. If FPS_Current > FPS_Highest Then
      47. FPS_Highest = FPS_Current
      48. End If
      49. End Sub
      51. Private Sub measure_FPS_Lowest()
      52. ' lowest FPS
      53. If FPS_Current < FPS_Lowest Then
      54. FPS_Lowest = FPS_Current
      55. End If
      56. End Sub
      58. ' the last n FPSs
      59. Private FPS_HISTORY_NR As Integer = 10
      60. ' is one sec. ?
      61. Private FPS_AVG_LastCheck As Long
      62. ' values of the last fps
      63. Private FPS_AVG_last_readings(FPS_HISTORY_NR) As Double
      64. 'we'll be reading the stats every second
      65. Private STAT_INTERVAL As Integer = 1000 ' ms
      66. ' Index of last status stored
      67. Private idx_lastStatusStored As Integer = 0
      69. '10 Messwerte --> FPS_HISTORY_NR und das erfassen eines neuen alle 1000 ms --> STAT_INTERVAL sind die besten Konfigurationseinstellungen.
      71. Private Sub measure_FPS_AVG()
      72. 'Works with ring buffer principle
      73. If GetTickCount() - FPS_AVG_LastCheck >= STAT_INTERVAL Then
      75. FPS_AVG_last_readings(idx_lastStatusStored) = FPS_Current
      77. If idx_lastStatusStored >= FPS_HISTORY_NR Then
      78. idx_lastStatusStored = 0
      79. Else
      80. idx_lastStatusStored += 1
      81. End If
      83. Dim sum As Double = 0
      85. For i As Integer = 0 To FPS_HISTORY_NR - 1
      86. sum += FPS_AVG_last_readings(i)
      87. Next
      89. FPS_AVG = sum / FPS_HISTORY_NR
      91. FPS_AVG_LastCheck = GetTickCount()
      92. End If
      94. End Sub
      96. End Class


      Verwendungsbeispiel, kleine DirectX Anwendung:

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Private Sub draw()
      2. drawfont = New Direct3D.Font(d3ddev, New System.Drawing.Font("IMPACT", 32, FontStyle.Regular, GraphicsUnit.Pixel))
      3. Dim fps_measure As New FPS_Measure 'Unsere in einer eigenen vb-Datei definierte Klasse
      5. Do While gamerun 'Game Loop also zyklisch aufgerufener Code Abschnitt, dessen Aktualisierungsintervall wir messen wollen!
      6. Dim cursorposx As Integer = Cursor.Position.X
      7. Dim cursorposy As Integer = Cursor.Position.Y
      8. d3ddev.Clear(ClearFlags.Target Or ClearFlags.ZBuffer, bkgcolor, 1, 0)
      10. d3ddev.BeginScene()
      12. 'Bei diesem Beispiel zeichnen wir einen Namen auf den Screen. Die spezifischen Werte werden auch auf den Bildschirm gezeichnet.
      13. 'hier werden die Variablen die die jeweiligen Werte enthalten gleich direkt als String verwendet. Eben abhängig vom Anwendungdzweck
      15. drawfont.DrawText(Nothing, "ALEX", cursorposx, cursorposy, Color.DarkCyan)
      16. drawfont.DrawText(Nothing, "FPS Current: " & fps_measure.FPS_Current, 0, 0, Color.DarkCyan)
      17. drawfont.DrawText(Nothing, "FPS Average: " & fps_measure.FPS_AVG.ToString("0.00"), 0, 36, Color.DarkCyan)
      18. drawfont.DrawText(Nothing, "FPS Highest: " & fps_measure.FPS_Highest, 0, 72, Color.DarkCyan)
      19. drawfont.DrawText(Nothing, "FPS Lowest: " & fps_measure.FPS_Lowest, 0, 108, Color.DarkCyan)
      21. d3ddev.EndScene()
      22. d3ddev.Present()
      23. Windows.Forms.Application.DoEvents()
      25. fps_measure.Measure_FPS(True, True, True) 'Aufruf unserer Messfunktion mittels 3 Parametern: Ob er die Höchste, Niedrigste und Durchschnittsanzahl berechnen soll --> bei False minimalste Performence Unterschiede
      27. Loop
      28. End Sub


      Hoffe vll kann ich irgendjemanden mal damit helfen.

      LG Kryo4lex

    Facebook
    Telefonspende