Countdown Timer

[Zradene]

Hi Guys, I am trying to find a sample application I see on here a while back.
It's a Timer / Counter that changed the background colour as the seconds dropped below 10, then below 5 from what I remember.

Anyone see it on here ?

Thanks

[Steve Workings]

Re: Countdown Timer

I built one that monitors dolphins' breathing, and turns the background red if no breath for one minute - you may have seen that. Here's a picture. Is this what you saw?

[Zradene]

Re: Countdown Timer

Hi Steve, no is was not this one. Looks a great looking application though I must say......
I am looking for something to count down seconds when players are taking their shots in Pool Matches.
Set Timer, Stop Timer, Start Timer, Reset Timer etc.
The background changed colour and an alarm bell sounded from what I remember.
Maybe your application does this too ?

Best regards
Fred

[Steve Workings]

Re: Countdown Timer

You could modify what I have here. But first I'd look around the web for some kind of timer for pool or chess players -- there must be couple out there.

We're in the desktop forum, so I'll note that most of what I have in mind would be written with javascript, but that can certainly run in a desktop environment.

[martinwcole]

Re: Countdown Timer

who starts and stops the timer? is is controlled by a button on a form?

[Mike Wilson]

Re: Countdown Timer

Try this and see if this might be close to what you want

dim dlg_title as C="action_timer"
dim dlg_body as C
dim dlg_code as C
dim vsysR as C
dim vn_user_time as N
dim vcountdown as C
dim vstop_state as C="off"
dim vtimer_state as C="active"

dim vn_ko_count_start as N=20
dim vn_ko_count as N
vn_ko_count=vn_ko_count_start

dim vn_alert_time as N=15
dim vn_seq_time as N=0
vcountdown=space(5)+totime(vn_ko_count,2,0)

dim z1 as C
dim z2 as C

font_color = "Dark Blue"
background_color = "Win3d"
formatted_text = "{B="+background_color+"}" + "{C="+font_color+"}" + vcountdown
flag=.t.

z1=<<%dg1%
{timer=rotate}{interval=1}{nocaption}{position=10,1}{font=arial,12,b}
%dg1%


z2=<<%dg2%
{lf};
{justify=center}{text=%O={@@}%20,2:formatted_text?flag}; ; 
{lf};
{font=arial,10}
<Start> <Stop> <Close>
%dg2%

dlg_body=z1+dlg_color+z2

dlg_code=<<%code%
	if a_dlg_button="rotate" then
		if vtimer_state="active"
			formatted_text = "{B="+background_color+"}" + "{C="+font_color+"}" + vcountdown
			if vn_ko_count=0
				vtimer_state="inactive"
				vstop_state="on"
				ui_beep(UI_CRITICAL_BEEP)
			end if
	
			if vstop_state="off"
				vn_seq_time=vn_seq_time+1
				vn_ko_count=vn_ko_count-1
				vcountdown=space(5)+totime(vn_ko_count,2,0)

				if vn_seq_time=vn_alert_time
					background_color = "red"
					font_color="white"
					vyg_user_time=convert_type(totime(vn_user_time,2,0),"c")
				end if	

			end if
		end if
	end if
	
	if a_dlg_button="start"
		vstop_state="off"
		vtimer_state="active"
		font_color = "Dark Blue"
		background_color = "Win3d"
		vn_ko_count=vn_ko_count_start
		vn_seq_time=0
		vcountdown=space(5)+totime(vn_ko_count,2,0)
	end if

	if a_dlg_button="stop"
		vstop_state="on"
	end if


	if a_dlg_button="close"
		ui_modeless_dlg_close("action_timer")
	end if
%code%

	ui_modeless_dlg_box(dlg_title,dlg_body,dlg_code)

[Ray in Capetown]

Re: Countdown Timer

What to declare dlg_color value?

[Zradene]

Re: Countdown Timer

Hi Martin, button on form.

[Zradene]

Re: Countdown Timer

Hey Mike, that worked.

Great stuff.

Many thanks.
Fred

[Zradene]

Re: Countdown Timer

Mike, I now need to add a (bleep) for every second the counter goes down from to 10 seconds to 1 second . Also I need to be able to Re-Start the counter too.
There is a short delay when I click the stop button which I need to address. I need the clock to stop instantly if at all possible.
Can you help here Mike ?

Thank you

[Mike Wilson]

Re: Countdown Timer

This is all doable. It just takes time (pun intended!!)

[Zradene]

Re: Countdown Timer

Cool, "Time is on my side"....Rolling Stones.

[Zradene]

Re: Countdown Timer

Hi Steve, I need to do this within A5 as I will be using one of my scoring systems with the timer.

[Steve Workings]

Re: Countdown Timer

What I'd suggested was that you find a javascript timer that would do the job for you. Mine is all javascript. You could also run this from a desktop app, and use AJAX callbacks to interact with your data. I didn't invent the basics of the timer I posted here -- I found a model and modified it to fit my needs.

[Zradene]

Re: Countdown Timer

Hi Steve, yes that is exactly what I am hoping to do, find something and modify it to suit. Our good friend Mike Wilson has created some script for me to look at which has given me some good idea's if I can modify the code to include some other options, but yes I am always looking for other useful samples to help me on my way in case you have something that may be helpful.

Many thanks