[vb] how come i get 0 fps???? -[RESOLVED]-

[nareth]

Public Sub Draw()
    Dim Frames As Long
    Dim FTime As Long
    
    Do Until Not IsPressed
        If Events Then
            DoEvents
        End If
    
        Call D3DD.Clear(0, ByVal 0, D3DCLEAR_TARGET, RGB(0, 0, 0), 0, 0)
        Call D3DD.BeginScene
            
        Call D3DD.EndScene
        Call D3DD.Present(ByVal 0, ByVal 0, 0, ByVal 0)
        
        Let Frames = Frames + 1
        If GetTickCount - FTime >= 1000 Then
            Debug.Print Frames
            Let Frames = 0
            Let FTime = GetTickCount
        End If
    Loop
End Sub

removed alot of 0's

0
1
0
...
0
62
0
...
0

[Electroman]

That code doesn't look like it will cause 0 FPS, you've put the Resolved Icon on this, did you edit the code after you fixed it or is it not fixed yet?

[nareth]

in other function i putted a debug.print my mistake