timing problem - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|625\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> timing problem
Wed, 11 Feb 2009, 15:36
dna	In the code below; Text 10,10,String$("0",2-Len(Str(MINUTES_COUNT)))+MINUTES_COUNT+":"+String$("0",2-Len(Str$(SECONDS_COUNT)))+SECONDS_COUNT+":"+String$("0",2-Len(Str$(FRAMES_COUNT)))+FRAMES_COUNT Text 10,50,(MilliSecs()-REAL_TIME)/1000 If FRAMES_COUNT<29 FRAMES_COUNT=FRAMES_COUNT+1 Else FRAMES_COUNT=1:SECONDS_COUNT=SECONDS_COUNT+1 EndIf If SECONDS_COUNT >59 SECONDS_COUNT=0:MINUTES_COUNT=MINUTES_COUNT+1:FRAMES_COUNT=1 EndIf --v There are two timers running. One runs freely and the other measures each second. What I am trying to do is measure something 30 times a second. It may be a conversion somewhere that I am missing. -=-=- DNA
Fri, 13 Feb 2009, 19:05
dna	Here's another method that I used. SetBuffer BackBuffer() VV#=0.0:REAL_TIME=MilliSecs() While Not KeyDown(1) Text 20,20,VV:Text 20,40,SECS If MilliSecs()-REAL_TIME<1000 VV=VV+.03 Else SECS=SECS+1:REAL_TIME=MilliSecs():;VV=0.0: EndIf If VV>=29.0 VV=0.0: EndIf Flip:Cls Wend --v Where am I making the error in the loop? -=-=- DNA
Fri, 13 Feb 2009, 19:51
dna	Here is the solution that I am using. .THERE For G=1 To 29 If KeyDown(1) Then Delay 250:End HK#=HK#+1.0 If TT>28 HK#=0.0:SECS=SECS+1:TT=0 EndIf TT=Int(HK#) Text 10,10,String$("0",2-Len(Str(MINS)))+MINS+":"+String$("0",2-Len(Str$(SECS)))+SECS+":"+String$("0",2-Len(Str$(Int(TT))))+TT ;Delay 250 ; Just to see if it's missing some. Delay 30 Flip:Cls Next Goto THERE --v Also, when does the millisecs() function start to give errors? 1 millionth of a second? WHen thanks -=-=- DNA
Mon, 16 Feb 2009, 04:13
Teasy	Well, as MilliSecs returns a value in milliseconds, the maximum precision is milliseconds. But you can use any interpolation ('cut up') value which can make it seem as if the precision is higher Below I'll post the stuff I was going to email to you But then I discovered you posted here
Mon, 16 Feb 2009, 04:20
Teasy	As you referred to my Timer System in email, I'll give some examples with and without my Timer System Btw, I've updated my Timer System here at SoCoder to the latest version, with some new handy functions Linky to code snippet Direct copy/paste: ;------------------------------------------------------------------------------- ; * Timer System - Version 4b ; Enhanced MilliSecs wrapper ;------------------------------------------------------------------------------- ; Created by Teasy <TheChange@yahoo.com> ; Last modified on 01 Feb 2009 ;------------------------------------------------------------------------------- ; Use this system to easily keep track of time, ; without the need to access MilliSecs directly, ; with the ability to adjust and pause time. ;------------------------------------------------------------------------------- ; Note: ; These routines require the use of an external global variable called ; MilliSecs which has to be updated regularly, for example each frame. ; See demos for more information and example usage. ; Remark the line below if you wish to handle this differently, ; or perhaps in a different location of your code. Global MilliSecs ;------------------------------------------------------------------------------- ; Algorithm: ; This system uses time-hopping which is very accurate ; but also very math-intensive. ; Very similar to buffered, unsychronized transfers, ; time-hopping makes a variable leap nearest to the current time ; after a timer's interval / duration. ; This without having to regularly update/poll, ; plus knowing the number of times a timer's time has elapsed. ;------------------------------------------------------------------------------- ; Usage: ; handle = NewTimer( interval [, paused ] ) ; Create a timer with specified interval (duration) ; either paused (true) or running (false, default) ; updates = TimerDone( handle ) ; Update timer and return the number of elapses ; You can call this at any time ; ResetTimer handle [, interval [, paused ] ] ; Restart timer from current point in time (interval=0, default) ; Optionally change interval (interval<>0) ; And optionally change pause state (default=false) ; SetTimer handle , interval ; Change timer's interval without altering current point in time ; For example to speed up or slow down ; ElapseTimer handle ; Instantly force elapse of timer at current point in time ; For example to trigger a TimerDone() ; PauseTimer handle ; Pause, remember time ; ResumeTimer handle ; Unpause, restore time ; StopTimer handle ; Disable timer ; StartTimer handle ; Activate timer and run ; DeleteTimer handle ; Delete timer, free from memory ; elapsed = TimerElapsed( handle ) ; Return number of milliseconds since timer last elapsed ; interval = TimerInterval( handle ) ; Return current timer's interval (supplied if needed at all) ; remain = TimerRemain( handle ) ; Return number of milliseconds up to when timer will elapse again ; paused = TimerPaused( handle ) ; Return True if timer is paused, otherwise False ; Is not affected by Stopped state ; stopped = TimerStopped( handle ) ; Return True if timer is not active, otherwise False ; Is not affected by Paused state ; state = TimerState( handle ) ; Return -1 if timer is inactive (no matter if paused) ; Return 0 if timer is paused ; Return 1 if timer is running ;------------------------------------------------------------------------------- ; Note: ; All intervals/durations used (time units and such) are in milliseconds. ;------------------------------------------------------------------------------- ; Known limitations: ; If you are using Blitz3D, all variables used to track time ; are signed 32-bit integers, which means that you can pause a timer ; up to less than ~25 days (2,147,483,647 ms). ; As well as any time differences over less than 25 days ; will wrap around and start from -25 days. ; Example: ; a = 2147483647 + 1 ; max + 1 ms ; b = 0 ; Print a-b ; WaitKey ; End ; It is possible to convert all integers to floats, ; but the timing accuracy will then be compromised. ; For more help or information on using MilliSecs() ; see my elaborate MilliSecs tutorial ; or part 7 of my Blitz Full Foundation tutorial. ;------------------------------------------------------------------------------- ; Example programs: ; Unremark and modify the following line to see the system in action. ;TimerSystem_Example4 ; Example 1: How the system works Function TimerSystem_Example1() Local timer, updates MilliSecs = MilliSecs() timer = NewTimer( 1000 ) Print "Timer is set to 1 second (1000 ms)" Print "Hit <Spacebar> to check timer" Repeat MilliSecs = MilliSecs() If KeyHit( 57 ) ; Space updates = TimerDone( timer ) Write "Number of timer updates" Print " since last spacebar: "+updates End If Until KeyHit( 1 ) ; Esc End End Function ; Example 2: Blinking with FOR Function TimerSystem_Example2() Local timer, updates, update, visible MilliSecs = MilliSecs() timer = NewTimer( 25 ) ; Interval = 25 ms SetBuffer BackBuffer() Repeat MilliSecs = MilliSecs() updates = TimerDone( timer ) For update = 1 To updates visible = Not visible Next If visible Color 255,255,255 Else Color 0,0,0 EndIf Text 0,0 , "[..BLINK..]" Flip Cls Until KeyHit( 1 ) ; Esc End End Function ; Example 3: Blinking with MOD Function TimerSystem_Example3() Local timer, updates, visible MilliSecs = MilliSecs() timer = NewTimer( 1 ) ; Interval = 1 ms ! SetBuffer BackBuffer() Repeat MilliSecs = MilliSecs() updates = TimerDone( timer ) visible = ( visible + updates ) Mod 2 If visible Color 255,255,255 Else Color 0,0,0 EndIf Text 0,0 , "[..BLINK..]" Flip False Cls Until KeyHit( 1 ) ; Esc End End Function ; Example 4: Moving objects Function TimerSystem_Example4() Local timer_object1, timer_object2 Local pos_object1, pos_object2 MilliSecs = MilliSecs() timer_object1 = NewTimer( 10 ) ; 1 pixel per 10 ms timer_object2 = NewTimer( 15 ) ; 1 pixel per 15 ms pos_object1 = 0 pos_object2 = GraphicsWidth()/2 SetBuffer BackBuffer() Repeat ; update time MilliSecs = MilliSecs() ; update input If KeyHit( 57 ) ; space If TimerPaused( timer_object1 ) ResumeTimer timer_object1 ResumeTimer timer_object2 Else PauseTimer timer_object1 PauseTimer timer_object2 EndIf EndIf ; move objects pos_object1 = pos_object1 + TimerDone( timer_object1 ) pos_object2 = pos_object2 + TimerDone( timer_object2 ) ; limit objects If pos_object1 >= GraphicsWidth() pos_object1 = pos_object1 - GraphicsWidth() EndIf If pos_object2 >= GraphicsWidth() pos_object2 = pos_object2 - GraphicsWidth() EndIf ; draw objects Color 255,128,128 Rect pos_object1-50,GraphicsHeight()1/3-50 , 100,100 , False Color 128,128,255 Rect pos_object2-50,GraphicsHeight()2/3-50 , 100,100 , False Color 255,255,255 Text 0,0 , "Press <Space> to pause/resume" Flip False Cls Until KeyHit( 1 ) ; Esc End End Function ;------------------------------------------------------------------------------- ; = TimerSystem Code = ;------------------------------------------------------------------------------- ; (Internal) Low level (No error checking) Type Timer_Object_ Field LastUpdate Field Duration Field Paused,Active Field Difference End Type Global Timer_Object__Count Function Create_Timer_Object.Timer_Object_( Started , Duration , Paused ) Local p.Timer_Object_ = New Timer_Object_ p\LastUpdate = Started p\Duration = Duration p\Paused = Paused p\Active = True p\Difference = 0 Timer_Object__Count = Timer_Object__Count + 1 Return p End Function Function Delete_Timer_Object( p.Timer_Object_ ) Delete p Timer_Object__Count = Timer_Object__Count - 1 End Function ;------------------------------------------------------------------------------- ; (External) Interface (No error checking) Function NewTimer( TimeOut , Paused=False ) Return Handle Create_Timer_Object( MilliSecs , TimeOut , Paused ) End Function Function TimerDone( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Timer must not be paused and must be running If Not p\Paused And p\Active ; How much time has passed Local Difference = MilliSecs - p\LastUpdate ; At least one update must have passed If Difference >= p\Duration ; How many updates in time passed Local Updates = Float Difference / p\Duration ; Set time ahead number of updates done p\LastUpdate = MilliSecs - ( Difference - Updates * p\Duration ) ; Return number of times timer's time has elapsed Return Updates EndIf EndIf End Function Function ResetTimer( Timer_Handle , TimeOut=0 , Paused=False ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Sync time to now p\LastUpdate = MilliSecs ; If change in interval/duration specified If TimeOut <> 0 ; Change interval/duration p\Duration = TimeOut EndIf ; Change pause state (and forget time difference after pause) p\Paused = Paused p\Difference = 0 End Function Function SetTimer( Timer_Handle , TimeOut ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Change interval/duration p\Duration = TimeOut End Function Function ElapseTimer( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Force elapse of timer at current point in time p\LastUpdate = MilliSecs - p\Duration End Function Function PauseTimer( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Can't pause a stopped timer (must be active) If p\Active p\Paused = True ; Remember difference between LastUpdate and MilliSecs (for unpause) p\Difference = MilliSecs - p\LastUpdate EndIf End Function Function ResumeTimer( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Can't unpause a stopped timer (must be active) If p\Active p\Paused = False ; Difference is restored: Timer is set 'Difference' behind MilliSecs p\LastUpdate = MilliSecs - p\Difference EndIf End Function Function StopTimer( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Reset paused (and time difference for unpause) p\Paused = False p\Difference = 0 ; Deactivate timer p\Active = False End Function Function StartTimer( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Reset paused (and time difference for unpause) p\Paused = False p\Difference = 0 ; Activate timer p\Active = True End Function Function DeleteTimer( Timer_Handle ) Delete_Timer_Object Object.Timer_Object_( Timer_Handle ) End Function Function TimerInterval( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) Return p\Duration End Function Function TimerElapsed( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) Return MilliSecs - p\LastUpdate End Function Function TimerRemain( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) Return p\LastUpdate + p\Duration - MilliSecs End Function Function TimerDelta#( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) Return Float ( MilliSecs - p\LastUpdate ) / p\Duration End Function Function TimerState( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) ; Timer is inactive If Not p\Active Return -1 ; Timer is paused ElseIf p\Paused Return 0 ; Timer is running Else Return 1 EndIf End Function Function TimerStopped( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) Return Not p\Active End Function Function TimerPaused( Timer_Handle ) Local p.Timer_Object_ = Object.Timer_Object_( Timer_Handle ) Return p\Paused End Function ;------------------------------------------------------------------------------- ; Updates ;------------------------------------------------------------------------------- ; 05 Nov 2006 ; - added ability to combine with Blitz' default timing system ; 03 May 2007 ; - added settimer that changes duration/interval without resetting time memory ; 03 Jul 2007 ; - added timerinterval to easily retrieve interval if needed ; 10 Aug 2007 ; - updated documentation & demos ; - renamed Duration to Interval (for clarity) ; - added TimerState, TimerStopped and TimerPaused ; 11 Nov 2007 ; - added TimerElapsed to return number of ms since last elapsed ; - added TimerDelta to 'percentage' (0..1) of interval elapsed since last elapsed ; 11 Apr 2008 ; - added Local variables to prevent/fix mismatch/mixing of Global influences ; 09 Sep 2008 ; - added Float fix in TimerDone to prevent division by zero ; 01 Feb 2009 ; - added TimerRemain which returns number of millisecs until next elapse time ;------------------------------------------------------------------------------- --v Some of the examples below take advantage of 2 of these new functions. It's also handy to put a Decls file in the Blitz\UserLibs folder so various functions from custom includes can be Syntax Highlighted in the BlitzIDE (but also other IDE's like IDEal). .lib " " ; * Timer System - Version 4b ; Last modified on 01 Feb 2009 NewTimer( TimeOut , Paused ) TimerDone( Timer_Handle ) ResetTimer( Timer_Handle , TimeOut , Paused ) SetTimer( Timer_Handle , TimeOut ) ElapseTimer( Timer_Handle ) PauseTimer( Timer_Handle ) ResumeTimer( Timer_Handle ) StopTimer( Timer_Handle ) StartTimer( Timer_Handle ) DeleteTimer( Timer_Handle ) TimerElapsed( Timer_Handle ) TimerInterval( Timer_Handle ) TimerRemain( Timer_Handle ) TimerState( Timer_Handle ) TimerStopped( Timer_Handle ) TimerPaused( Timer_Handle ) TimerDelta( Timer_Handle ) --v
Mon, 16 Feb 2009, 04:25
Teasy	Modified your code (from email) to use a single timer at predefined interval. Next example shows the precision. Example 1 Include "TimerSystem 4b.BB" SetBuffer BackBuffer() ; Sychronize time before creating timers MilliSecs = MilliSecs() ; Create a timer at number of FPS Const FPS = 30 ; Hz Local Timer = NewTimer( 1000 / FPS ) ; ms Local VV = 0 Local SECS = 0 While Not KeyDown(1) Text 20,20,VV Text 20,40,SECS ; Update time (global variable) MilliSecs = MilliSecs() ; Update FPS VV = VV + TimerDone( Timer ) ; Limit FPS If VV >= FPS SECS = SECS + 1 ; Reset back to ~0, but keep any remainder intact VV = VV - FPS End If Flip Cls Wend WaitKey End --v
Mon, 16 Feb 2009, 04:27
Teasy	Same as before, but using a higher precision (x10). Note that examples 1 and 2 are very inprecise because they are not directly depending on seconds. See next example for a better approach. The reason why this is inprecise is because 1000 / 30 (or 300) doesn't give a whole number. Example 2 Include "TimerSystem 4b.BB" ; Sychronize time before creating timers MilliSecs = MilliSecs() ; Create a timer at number of FPS Const FPS = 300 ; Hz Local Timer = NewTimer( 1000.0 / FPS ) ; ms Local Frames# Local Seconds Graphics 640,480 , 0,2 SetBuffer BackBuffer() Repeat ; Update time (global variable) MilliSecs = MilliSecs() ; Update FPS Frames = Frames + TimerDone( Timer ) ; Limit FPS If Frames >= FPS ; Wrap around (Reset back to ~0, but keep any remainder intact) Frames = Frames - FPS Seconds = Seconds + 1 End If Cls Text 10,10 , "Frames: "+Frames/10 Text 10,20 , "Seconds: "+Seconds Text 10,30 , "Time: "+CurrentTime() Flip Until KeyHit( 1 ) End --v Note that you can check yourself how accurate a routine is by adding a CurrentTime() display (or something like that)
Mon, 16 Feb 2009, 04:28
Teasy	High precision example, using a timer based on seconds. More CPU intensive though, due to the floating point division (or multiplication, in next example). See example 3b for same as this, but using Delta timing (only 1 line is changed!) Example 3a Include "TimerSystem 4b.BB" ; Sychronize time before creating timers MilliSecs = MilliSecs() ; Create a timer at number of FPS Const FPS = 30 ; Hz Local Timer = NewTimer( 1000 ) ; ms Local Frames# Local Seconds Graphics 640,480 , 0,2 SetBuffer BackBuffer() Repeat ; Update time MilliSecs = MilliSecs() ; Update seconds Seconds = Seconds + TimerDone( Timer ) ; Update FPS ; - Time since last second, divided by FPS value (interpolation) Frames = Float TimerElapsed( Timer ) / FPS Cls ; Use some rounding to keep only 1 decimal after point Text 10,10 , "Frames: "+Float(Int(Frames*10))/10 Text 10,20 , "Seconds: "+Seconds Text 10,30 , "Time: "+CurrentTime() Flip Until KeyHit( 1 ) End --v
Mon, 16 Feb 2009, 04:29
Teasy	Same as example 3a (high precision), but using Delta timing. Only the line with TimerDelta is altered. Example 3b Include "TimerSystem 4b.BB" ; Sychronize time before creating timers MilliSecs = MilliSecs() ; Create a timer at number of FPS Const FPS = 30 ; Hz Local Timer = NewTimer( 1000 ) ; ms Local Frames# Local Seconds Graphics 640,480 , 0,2 SetBuffer BackBuffer() Repeat ; Update time MilliSecs = MilliSecs() ; Update seconds Seconds = Seconds + TimerDone( Timer ) ; Update FPS ; - Time inbetween seconds (0..1), scaled up to FPS value (interpolation) Frames = TimerDelta( Timer ) * FPS Cls ; Use some rounding to keep only 1 decimal after point Text 10,10 , "Frames: "+Float(Int(Frames*10))/10 Text 10,20 , "Seconds: "+Seconds Text 10,30 , "Time: "+CurrentTime() Flip Until KeyHit( 1 ) End --v
Mon, 16 Feb 2009, 04:31
Teasy	Basically the same as example 3, but without any Timers, e.g. everything manually, so you can see what happens 'behind the scenes'. Using maths to find the number of frames, for maximum precision, though more CPU intensive, due to floating point division. Example 4 ; Number of FPS to use Const FPS = 30 ; Hz ; Synchronize time Local Ms = MilliSecs() ; Keep track of when last second started Local LastSec = Ms Local Frames# Local Seconds Graphics 640,480 , 0,2 SetBuffer BackBuffer() Repeat ; Update time Ms = MilliSecs() ; Update seconds If Ms - LastSec >= 1000 ; Sync LastSec to Ms, but keep remainder difference ; - Note: This also works when MilliSecs() wraps around :) LastSec = LastSec + 1000 Seconds = Seconds + 1 End If ; Update FPS (using milliseconds and LastSec offset) ; - Time since last second, divided by FPS value (heavy for CPU) Frames = Float ( Ms - LastSec ) / FPS Cls ; Use some rounding to keep only 1 decimal after point Text 10,10 , "Frames: "+Float(Int(Frames*10))/10 Text 10,20 , "Seconds: "+Seconds Text 10,30 , "Time: "+CurrentTime() Flip Until KeyHit( 1 ) End --v
Mon, 16 Feb 2009, 04:34
Teasy	Another example, but simple, using a Blitz Timer. Also based on the timer itself. The problem here is that the code will wait long times, which is time that could be spent on something else This is due to WaitTimer, which simply sits and waits. But, this is just for illustration It works very well in many scenarios, simple games, etc. Note that WaitTimer also has a slight imprecision. ; Create a timer at number of FPS Const FPS = 30 Local Timer = CreateTimer( FPS ) ; Hz Local Frames Local Seconds Graphics 640,480 , 0,2 SetBuffer BackBuffer() Repeat ; Update FPS Frames = Frames + 1 If Frames >= FPS ; Wrap around (keep remainder) Frames = Frames - FPS Seconds = Seconds + 1 End If Cls Text 10,10 , "Frames: "+Frames Text 10,20 , "Seconds: "+Seconds Text 10,30 , "Time: "+CurrentTime() Flip WaitTimer Timer Until KeyHit( 1 ) End --v I recommend either example 3a, 3b or 4 for 'perfect usage' But example 5 for most easy
Mon, 16 Feb 2009, 07:05
JL235	I don't mean this in a way to discourage posting, because it's clear that your giving lots of help to dna (which is good). But I'd like to recommend that in the future you try to edit and add to your previous post rather then make new ones. Especially if it's only a few minutes old.
Mon, 16 Feb 2009, 21:07
dna	Example 5 is what my original code was based on. It would run, then I could see that it was not correct, but then I found that if I held the menu bar, to move it or to just hold it, the time stood still. The ones you recommended seem correct since I will have other things running, in the mean time. (PUN) My other question was, could 3a,b or 4 keep the right time if programming events internally hog the update cycle? Your Time Library is great. I was beginning to think that BB2D could not keep an accurate REAL TIME at all. I hope I can find your complete tutorial so that can help me further. ** Also, you mention something called the DeCls? I have no idea what that is and my version of BB does not have the folder userlibs. -=-=- DNA
Wed, 18 Feb 2009, 07:26
Teasy	Yes, that's the beauty of examples 3a, 3b and 4 Enjoy Well, I have some more tutorials and stuff on my Blitz website: Linky I think Decls (userlib declarations) are only available in later versions of Blitz3D and BlitzPlus. Maybe also Blitz2D, I don't remember, but Google will know
Wed, 18 Feb 2009, 08:17
Hotshot	Hey Teasy, Yes Timing is important on any programming language. How did you get on with X-NON?
Thu, 19 Feb 2009, 10:07
Teasy	Off-topic: Following rules Hey Hotshot m8 You are a mindreader! Only a few days before you wrote that I was working on it It's progressing, but slowly I guess I could post some first chapters somewhere if you'd like. Please PM or email me about this
Mon, 23 Feb 2009, 12:25
dna	I modified your non library example and found that it's keeping the correct time per second, but the number of ticks is 33, not 30. AppTitle"TIME" FT#=(1/30.0) ;Print FT:Print FT30WaitKey:End ; Number of FPS to use Const FPS = 30 ; Hz ; Synchronize time Local Ms = MilliSecs() ; Keep track of when last second started Local LastSec = Ms Local Frames#,Seconds Graphics 640,480,0,2:SetBuffer BackBuffer() Repeat ; Update time Ms = MilliSecs() ; Update seconds If Ms - LastSec >= 1000 ; Sync LastSec to Ms, but keep remainder difference ; - Note: This also works when MilliSecs() wraps around :) LastSec = LastSec + 1000 Seconds = Seconds + 1 End If ; Update FPS (using milliseconds and LastSec offset) ; - Time since last second, divided by FPS value (heavy for CPU) Frames = Float ( Ms - LastSec ) / FPS If MilliSecs()-FR>=33;FT# THEFRAME#=THEFRAME#+1:FR=MilliSecs() If THEFRAME>30 THEFRAME#=1.0 EndIf EndIf ; THEFRAME#=THEFRAME+((MilliSecs() Cls:If THEFRAME > LARGE Then LARGE = THEFRAME:;Delay 300 ; Use some rounding to keep only 1 decimal after point Text 10,10 , "Frames: "+Float(Int(Frames10))/10 Text 10,25 , "Seconds: "+Seconds Text 10,40 , "Time: "+CurrentTime() Text 10,55,"FRAME2: "+THEFRAME Flip Until KeyHit( 1 ) SetBuffer FrontBuffer():Text 10,70,LARGE:Delay 1400 End --v Here's another one. AppTitle"MORETIME" SetBuffer BackBuffer() FPS#=30.0 ;Print StringWidth(Str$(CurrentTime())):WaitKey:End FT#=(1/FPS#) TIME=MilliSecs() While Not KeyDown(1) ;THEFRAME#=1.0 Text 20,40,CurrentTime() ;THEFRAME=THEFRAME+((MilliSecs()-TIME)/FT) THEFRAME=THEFRAME+Int((FT#/100)100):FT#=FT#+(1/FPS#) Text 20+StringWidth(Str$(CurrentTime()))+10,40,FT#10:Text 20,70,LARGE# If LARGE#<FT# Then LARGE=FT If (MilliSecs()-TIME)>=1000 TIME=MilliSecs():FT#=1.0 EndIf Flip:Cls Wend Text 20,115,LARGE:WaitKey:End --v This one is close but drifts out 10ms. -=-=- DNA
Tue, 24 Feb 2009, 08:48
Teasy	Well, I guess that's because 1000 / 30 = 33.3 E.g. Frames, ticks, seconds, FPS (Hz), etc. Ah, to make the 2nd program more precise, try change this: If (MilliSecs()-TIME)>=1000 TIME=MilliSecs():FT#=1.0 EndIf --v Into this: Difference = MilliSecs() - TIME Interval = 1000 If Difference >= Interval ; update, but keep variations in ; (as described in previous examples) TIME = TIME + Interval FT# = 1.0 EndIf --v I think that should work.
Thu, 26 Feb 2009, 20:02
dna	Thst did it TC. But is there a tutorial that explains why it works? My reason for better understanding how it works would help me use it in other ways that might be similar but not the same. -=-=- DNA
Mon, 02 Mar 2009, 04:56
Teasy