Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

I dug around a bit and did not find a simple and clear implementation of countdown stopwatch in Mathematica. I am looking for a function that takes as an input a certain integer and then counts down by 1 every second till 0 is reached. I think it could be an important part for some examples. Kernel or Front End implementations are both acceptable. Here is my take on it:

timer[s_] := Module[{x = AbsoluteTime[], y = AbsoluteTime[]}, 
              RunScheduledTask[y = AbsoluteTime[], {1, s}];
              Dynamic[s - Floor[y - x]]]

It's a bit hacky but works ;-) I have seen the following questions already:

but I do not think they do what I was looking for. They either run time forward, are too complex, or something else. Did I miss anything? Does anyone have better ideas?

share|improve this question
add comment

1 Answer

up vote 7 down vote accepted

What about

timer[s_] := Dynamic[s - Clock[{0, s, 1}, s, 1]]
share|improve this answer
    
+1 Very nice ;) I wonder if there are any other solutions. –  Vitaliy Kaurov Jul 22 '12 at 2:32
    
@Rojo Anolther question, but... is it possible to forse Mathematica to play a sound when 0 is reached? –  Alexey Popkov Jul 22 '12 at 6:36
1  
@AlexeyPopkov it seems like Clock updates one extra time when it stops. But we can always do timer[s_] := DynamicModule[{guard = True}, Dynamic[ If[guard && # === 0, Beep[]; guard = False; #, #] &[ s - Clock[{0, s, 1}, s, 1]]]] –  Rojo Jul 22 '12 at 12:09
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.