[DBP] - elapsed time in a formatted stirng

Author

Message

JRNTexas

12

Years of Service

User Offline

Joined: 24th May 2011

Location: Austin, Texas

Posted: 19th Aug 2011 10:46

Link

Here's my first contribution to "Code Snippets."

I needed to display the elapsed time in my game and didn't find this time on the site"

Here is the code that calls the function:

+ Code Snippet

	startTime = timer()
	do
		cls
	 	elapsedTime$ = elapsedTime(startTime)
		text 10, 10, elapsedTime$
	loop

Here is the function:

+ Code Snippet



function elapsedTime(timeStart)
	currentTime=TIMER()
	currentTime = currentTime - timeStart
	currentTime = currentTime / 1000
	remainingSeconds = currentTime mod 360
	if remainingSeconds > 59 rem at least a minutes' worth of seconds
		minutes = remainingSeconds /  60
		seconds = remainingSeconds mod 60
	else
		seconds = remainingSeconds
	endif
	if currentTime > 359 rem at least an hours' worth of seconds
		hours = currentTime / 360
	endif 
	hours$ = str$(hours)
	minutes$ = str$(minutes)
	seconds$ = str$(secondS)
	if len(hours$) < 2 then hours$ = "0" + hours$
	if len(minutes$) < 2 then minutes$ = "0" + minutes$
	if len(seconds$) < 2 then seconds$ = "0" + seconds$
	dispTime$ = hours$ + ":" + minutes$ + ":" + seconds$
endfunction dispTime$

Hope someone fins it useful.

Back to top

Profile PM Email Website

JRNTexas

12

Years of Service

User Offline

Joined: 24th May 2011

Location: Austin, Texas

Posted: 20th Aug 2011 00:40

Link

My first time to contribute and I copied the code with a mistake in it . The 359 should have been 3599 and the 360 should have been 3600.

So here is the corrected code:

+ Code Snippet


function elapsedTime(timeStart)
	
	currentTime=TIMER()
	currentTime = currentTime - timeStart
	currentTime = currentTime / 1000
	remainingSeconds = currentTime mod 3600
	if remainingSeconds > 59 rem at least a minutes' worth of seconds
		minutes = remainingSeconds /  60
		seconds = remainingSeconds mod 60
	else
		seconds = remainingSeconds
	endif
	if currentTime > 3599 rem at least an hours' worth of seconds
		hours = currentTime / 3600 
	endif 
	hours$ = str$(hours)
	minutes$ = str$(minutes)
	seconds$ = str$(secondS)
	if len(hours$) < 2 then hours$ = "0" + hours$
	if len(minutes$) < 2 then minutes$ = "0" + minutes$
	if len(seconds$) < 2 then seconds$ = "0" + seconds$
	dispTime$ = hours$ + ":" + minutes$ + ":" + seconds$
endfunction dispTime$

Back to top

Profile PM Email Website

Bluespark

13

Years of Service

User Offline

Joined: 18th Mar 2011

Location:

Posted: 20th Aug 2011 18:59

Link

No worries.
You did know that you could use Copy and Paste instead of copying by hand?

Back to top