VSync para 12.x

» 02 Ago 2011 19:06

Antes de implementar el código se debe quitar cualquier método que usen para limitar los FPS.
Basándome en el aportado por Standelf, lo adapté para 12.x y se los dejo funcional:

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

SwapEffect = D3DSWAPEFFECT_COPY

Y lo reemplazamos por:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

      If MsgBox("¿Desea limitar los FPS con VSync?", vbYesNo) = vbYes Then
            .SwapEffect = D3DSWAPEFFECT_COPY_VSYNC
            VSyncON = True
        Else
            .SwapEffect = D3DSWAPEFFECT_COPY
            VSyncON= False
        End If

Al final del Public Sub Engine_Init() agregamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

    If Not VSyncON Then
            While (GetTickCount - fpsLastCheck) \ 10 < FramesPerSecCounter
                Sleep 5
            Wend
        End If