Как сделать ограничитель кадров?

[Don Leno]

Есть простой цикл:

Код: Выделить всё

   
Do Until rendering = False
        'Здесь выполняется нужный код
        FPS = FPS + 1
        DoEvents
    Loop
    End


Так вот мне нужно сделать ограничение кадров за секунду. К примеру =50. Как это правильно в коде оформить?

[The trick]

https://www.cyberforum.ru/post5536175.html

[Mikle]

мне нужно сделать ограничение кадров за секунду. К примеру =50. Как это правильно в коде оформить?

Если не очень важна точность, то можно обойтись Sleep.

Код: Выделить всё

Do Until rendering = False

Эта строка эквивалентна такой:

Код: Выделить всё

Do While rendering

[The trick]

Можно еще ограничить по vsync. https://www.vbforums.com/showthread.php ... ost5467901

Код: Выделить всё

' //
' // VSync
' // Vista and later
' // By The trick
' //

Option Explicit

Private Type LUID
    LowPart         As Long
    HighPart        As Long
End Type

Private Type D3DKMT_OPENADAPTERFROMHDC
    hDC             As Long
    hAdapter        As Long
    AdapterLuid     As LUID
    VidPnSourceId   As Long
End Type

Private Type D3DKMT_WAITFORVERTICALBLANKEVENT
    hAdapter        As Long
    hDevice         As Long
    VidPnSourceId   As Long
End Type

Private Type D3DKMT_CLOSEADAPTER
    hAdapter        As Long
End Type

Private Declare Function D3DKMTOpenAdapterFromHdc Lib "gdi32" ( _
                         ByRef tAdapter As D3DKMT_OPENADAPTERFROMHDC) As Long
Private Declare Function D3DKMTWaitForVerticalBlankEvent Lib "gdi32" ( _
                         ByRef tEvt As D3DKMT_WAITFORVERTICALBLANKEVENT) As Long
Private Declare Function D3DKMTCloseAdapter Lib "gdi32" ( _
                         ByRef tAdapter As D3DKMT_CLOSEADAPTER) As Long

Private m_bIsRunning    As Boolean
Private m_lFPSCounter   As Long

Private Sub cmdStop_Click()
    m_bIsRunning = False
End Sub

Private Sub Form_Load()
    Dim tAdapterOpen    As D3DKMT_OPENADAPTERFROMHDC
    Dim tWaitVSync      As D3DKMT_WAITFORVERTICALBLANKEVENT
    Dim tAdapterClose   As D3DKMT_CLOSEADAPTER
    Dim lCounter        As Long
   
    Me.Show
   
    ' // Open adapter from HDC
    tAdapterOpen.hDC = Me.hDC
   
    If D3DKMTOpenAdapterFromHdc(tAdapterOpen) < 0 Then
        MsgBox "Unable to open adapter", vbCritical
        Exit Sub
    End If
   
    m_bIsRunning = True
   
    ' // Set wait event param
    tWaitVSync.hAdapter = tAdapterOpen.hAdapter
    tWaitVSync.VidPnSourceId = tAdapterOpen.VidPnSourceId
   
    Do While m_bIsRunning
       
        ' // Wait until vsync
        If D3DKMTWaitForVerticalBlankEvent(tWaitVSync) < 0 Then
            MsgBox "Unable to ait vsync", vbCritical
            Exit Do
        End If
       
        m_lFPSCounter = m_lFPSCounter + 1
       
        ' // To update timer
        DoEvents
       
    Loop
   
    ' // Close adapter
    tAdapterClose.hAdapter = tAdapterOpen.hAdapter
   
    D3DKMTCloseAdapter tAdapterClose
   
End Sub

' // Timer interval = 1000 ms
Private Sub tmrFPS_Timer()
    Me.Caption = "FPS: " & m_lFPSCounter
    m_lFPSCounter = 0
End Sub

[Don Leno]

Mikle, Trick!
Thanx за ваши коды и примеры. Как всегда выручили.

[Хакер]

Так вот мне нужно сделать ограничение кадров за секунду. К примеру =50. Как это правильно в коде оформить?

Так к делу не подходят.

Задавая такие вопросы, нужно уточнять, с какой точностью требуется выдерживать заданный FPS, а также требования по стабильности частоты обновления экрана/холста, потому что под FPS=50 может скрываться ситуация, когда за 800 мс выводится всего 8 кадров (что составляет эквивалентно 8 FPS), а за оставшиеся 200 мс отрисовываются недостающие 42 кадра, что даёт FPS=50, но ужасно дёрганную картинку.

Исходя из этих требований уже нужно будет выбирать между разными инструментами, дающими разную меру точности и контроля над ситуацией.

Плюс, нужно уточнять, на какой инструментарий уже завязана разрабатываемая программа. Если на Direct3D, то там тебе и VSync и spap chain — проблема стабилизации частоты вывода кадров побудила сделать для прикладных разработчиков такие плюшки, без которых, поскольку у нас не ОС реального времени, выдерживать допуски по частоте и стабильности частоты не так-то просто.

[Don Leno]

Согласен, Хакер.
Невозможно сделать необходимое не зная точной задачи. Я нацелеваюсь на простейшую игру. К примеру, чтобы игра на всех компьютерах разной мощности работала с одинаковой частотой. В играх есть такая практика...правда опциональная. Там можно включить ограничитель кадров или даже самому выставлять необходимую частоту.
Direct3D не использую.

[Хакер]

К примеру, чтобы игра на всех компьютерах разной мощности работала с одинаковой частотой.

А зачем? Пусть работает с разной. Даром что ли мощность у них разная?

[Don Leno]

Хорошо, Хакер)
Видно я чего то не понимаю (либо меня ввели в заблуждение). Иногда бывает такое в играх, когда скорость анимации и других увеличивается (сам было дело сталкивался). То есть все на экране двигается в очень бешенном темпе! Хотя игра работает исправно, и как я тогда понял ошибка была в том, что игра была старенькой, а компьютеры уже стали помощнее и в результате они справлялись со своей задачей сверхположенного)) И тогда не было функции ограничения кадров)) Надеюсь я правильно смог изложить свою мысль))
И чтобы такого не происходило, хотелось бы добавить опционально такую плюху))

[Mikle]

Для простой игры достаточно обычного таймера. Для таких целей он и создан. Выставить его на 20-30 мс.

[Хакер]

И чтобы такого не происходило, хотелось бы добавить опционально такую плюху))

Для этого надо не частоту кадров ограничивать, а во всех расчётах (касающихся анимации, движения и любых других процессов, скорость которых должна не зависеть от кадровой частоты) использовать время, прошедшее между двумя tick-ами, замеренное с требуемой точностью.

Если условная «ракета» летит со скоростью VEL, то её текущее положение надо обновлять по формуле POS = POS + VEL×DeltaTime, где DeltaTime — интервал между предыдущим тиком и текущим.

[Don Leno]

Хакер, а можно по подробнее?
Как вычислить Дельту?

[Mikle]

Как вычислить Дельту?

Её нужно не вычислять, а замерять, типа такого:

Код: Выделить всё

Do 'Игровой цикл
  DoEvents
  tOld=t
  t=GetTime
  Delta=t-tOld
  'Здесь считаем физику
Loop

[Don Leno]

Thanx, Mikle, Хакер.

[Хакер]

Thanx, Mikle, Хакер.

Но нужно учитывать, что на многоядерных/многопроцессорных системах, если не установить аффинность потока, некоторые способы замера текущего времени будут давать результат с «джиттером», от чего дельта-тайм может становится даже отрицательной. Но есть ещё особенности VB, которые тоже вызывают проблему.

Подробный топик об этом: viewtopic.php?f=1&t=56115