Breadcrumbs

[NecroPhis]

MY First Tutorial Since I Came Back clapper; cooll; goofy;

here is a simple tutorial that shows Frame Per Second
i released this code b4 for some other sites

so if u c it on another page don't say leeched and sth like that

Credits :aku ( my friend )

First add a module And Module Code :

Code: Select all

  Public Declare Function GetTickCount Lib "kernel32" () As Long 


    Public LastFPS As Long 


    Public CountFPS As Long 


    Public CurFPS As Integer 


    Public HighestFPS As Integer  

Add a timer on forum ( Interval Max : 25 / Min : 1 Enabled = true )

And timer's Code :

Code: Select all

If GetTickCount() - LastFPS >= 1000 Then 
            CurFPS = CountFPS 
            CountFPS = 0  set the counter 
            LastFPS = GetTickCount() 

         
            If CurFPS > HighestFPS Then 
                HighestFPS = CurFPS 
            End If 
        End If 

        CountFPS = CountFPS + 1 
      
        Me.Text = CurFPS  

with this code , Current FPS will appear in Form's text
u can add it to label , textbox or another thing

Have a good day

[mandai]

Since when does GetTickCount relate to the video frames that are drawn on screen?

[NecroPhis]

hmm i want to answer your question my english is bad i couldnt understandvery well
but as i can understand , yes its something like that

[Axel]

How is the time the computer is running related to the fps?
if you want a real fps thing then you should calculate it by the form_paint event or so

[zachman61]

hmm i want to answer your question my english is bad i couldnt understandvery well
but as i can understand , yes its something like that

I've seen this tutorial alot of times.
I doubt your english is bad you just copied/pasted.

[NecroPhis]

nah myfriend gave me the codes :O
and i released it on some sites
he told me he made it