Sorry your browser is not supported!

` Get Accurate Elasped Time
` BY: Todd Riggins - ExoDev.Com - Nov 12,2010


Kernel32 =1
load dll "kernel32.dll",Kernel32

global freq as double integer
global elaspedTime as double float
global oldTime as double integer
oldTime = perftimer()

 memptr = make memory(16)
call dll Kernel32, "QueryPerformanceFrequency", memptr

freq = *memptr

set window on
sync on
sync rate 30

   make camera 1
   position camera 1,0,15,-400
   color backdrop 1, rgb(32,64,64)

repeat
   GetElapsedTime()
   text 10, 30, "freq: "+str$(freq)
   text 10, 50, "elaspedTime: "+str$(elaspedTime)
   text 10, 70, "perftimer(): "+str$(perftimer())

   sync
until escapekey()=1

end

Function GetElapsedTime()
   local current as double integer
   local loca as double float
   local locb as double float
   local locc as double float
   current = perftimer()
   loca=current
   locb=oldTime
   locc=freq
   elaspedTime = (loca-locb)/locc
   oldTime = perftimer()
   if elaspedTime<0.0 then elaspedTime = 0.0
EndFunction

global _freq     as double integer
global _cur      as double integer
global _last     as double integer
global _delta    as double float

load dll "kernel32.dll", 1
    _ptr        = make memory(16)
    null        = call dll(1, "QueryPerformanceFrequency", _ptr )
    _freq       = (*_ptr)
    null        = call dll(1, "QueryPerformanceCounter", _ptr )
    _cur        = (*_ptr)

do : cls

    null = call dll(1, "QueryPerformanceCounter", _ptr )
    _last = (*_ptr)
    _delta = (_last-_cur) / (1.0 * _freq)
       
    text 0,0,str$(_delta)

loop

global elaspedTime as double float
global oldTime as double integer
oldTime = PERFTIMER()

set window on
sync on
sync rate 30

make camera 1

repeat
   UpdateElapsedTime()
   text 10, 30, "perffreq(): "+str$(perffreq())
   text 10, 50, "elaspedTime: "+str$(elaspedTime)
   text 10, 70, "perftimer(): "+str$(PERFTIMER())

   sync
until scancode()>0

end

Function UpdateElapsedTime()
   local currentTime as double integer
   local dflt as double float
   currentTime = PERFTIMER()
   dflt=PERFFREQ()
   elaspedTime = (currentTime-oldTime)/dflt
   oldTime = currentTime
   if elaspedTime<0.0 then elaspedTime = 0.0
EndFunction