Stopwatch: Loop only needs repeated once a second

Forum Attachments

Stopwatch: Loop only needs repeated once a second

abier93 19 Feb 2011 17:06

I was bored in calculus class so I thought I would give my shot at making a program. I was kind of messing around and though I would just make it so that I could hit enter to start and enter to stop so it would tell me how much time passed. After I got that pretty good, I decided I wanted it to display the time so I can see how much time has passed before I stop it. I know this probably isn't the best way to do things and probably contains unneeded code. The program works how I want it to, the only problem is that while inside of the loop, the display that shows the time increasing refreshes five or six times a second, making it barely readable. I was wondering if I could get any advice to make the code inside of the loop update once a second instead of five or six times a second. How can I slow a loop down to only repeat once a second? Thank you in advance.

---

ClrHome
Disp "PRESS ENTER TO"
Disp "START"
ClockOn
Pause
getTime→L₂
startTmr→T
ClrHome
Repeat getKey
Disp "PRESS ANY KEY"
Disp "TO STOP"
Disp ""
checkTmr(T)→C
timeCnv(C)→L₄
If L₄(3)≠0
Output(4,10,L₄(3)0
Output(6,1,"SECONDS: ")
Output(6,10,L₄(4))
ClrHome
End
getTime→L₁
(L₁-L₂)→L₃
ClrHome
Disp "TOTAL TIME"
If L₃(3)<0
(L₃(2)-1)→L₃(2)
If L₃(3)<0
(60+L₃(3))→L₃(3)
If L₃(2)≠0
Output(4,10,L₃(2))
If L₃(2)≠0
Output(4,1,"MINUTES: ")
Output(6,10,L₃(3))
Output(6,1,"SECONDS: ")
Pause
DelVar L₁
DelVar L₂
DelVar L₃
DelVar L₄
ClrHome
Stop

---

Re: Stopwatch: Loop only needs repeated once a second

Xeda Elnara 19 Feb 2011 21:04

I don't know if this helps, but here is an example I put together. All it does is display the time:

ClrHome
Repeat getKey
getTime→L1
For(A,1,3
L1(A
Output(1,3A-2+(Ans≤9),Ans           ;Boolean logic is used. Ans≤9 returns 1 if true, 0 if false
If Ans≤9
Output(1,3A-2,"0
If A≠3
Output(1,3A,":
End
End

It doesn't do much, but it shows how you can play with logic and time :)

---

47%? Take a look and try to imagine how cool 100% will be. This has won zContest 2011 and made news on TICalc. This compromise between Assembly and BASIC parses like BASIC and is fast like assembly. Grammer 2

Re: Stopwatch: Loop only needs repeated once a second

BlakPilar 19 Feb 2011 21:37

Well, you actually don't need to use the clock at all in the first place. I found a timer program that I made a while ago. It ONLY updates variables every second on the second, and it has a pause feature. Here is the code:

ClrHome
ClrDraw
checkTmr(0→A
A→B
DelVar SDelVar M
Repeat K=45
getKey→K
If K=105:Then
Pause
checkTmr(0→A
A→B
End
checkTmr(0→A
If A=B+1:Then
B+1→B
S+1→S
End
If S=60:Then
DelVar SM+1→M
End
               ;Now we begin to display
If M<10 and S<10
Text(-1,27,5,"0",M,":0",S
If M<10 and S>=10  ;">=" is greater than or equal to
Text(-1,27,5,"0",M,":",S
If M>=10 and S<10
Text(-1,27,5,M,":0",S
If M>=10 and S>=10
Text(-1,27,5,M,":",S
End

---

Projects: BexIDE (hold), Hadean.NET, Legend of Zelda: Link to the Future

Re: Stopwatch: Loop only needs repeated once a second

Timothy Foster 20 Feb 2011 05:27

You could also look at this page for timers featured on this site. The first one counts up until stopped, and the other counts down from a specified time to 0 or until stopped.

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Re: Stopwatch: Loop only needs repeated once a second

BlakPilar 20 Feb 2011 13:41

The two on that page use the clock, which some people, like me, don't like to have on (to save battery). The one I posted uses checkTmr( which, though it remains 84+/SE only, does not turn the clock on but still keeps an accurate measure of time. It can also be easily tweaked to count down or only count up to a specific time.

---

Projects: BexIDE (hold), Hadean.NET, Legend of Zelda: Link to the Future

Last edited on 20 Feb 2011 13:42 by BlakPilar Show more

Re: Stopwatch: Loop only needs repeated once a second

Timothy Foster 20 Feb 2011 13:56

Actually, the timers on that page also only use startTmr and checkTmr( and don't use the clock at all. Apparently back then, I was under the notion that the clocks had to be on to use those commands, but testing them today, the clock is entirely unnecessary, thus making the validations irrelevant. That shrinks up the code quite a bit.

Well played (:

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Re: Stopwatch: Loop only needs repeated once a second

abier93 22 Feb 2011 03:23

Thank you for all of your help. I solved my problem by using For(A,1,6 inside of my Repeat getKey loop. I also rewrote my program to only use checkTmr( instead of the clock. Thanks!!

Re: Stopwatch: Loop only needs repeated once a second

Forgemaster 02 Mar 2011 16:48

I have about 26 lines I need to repeat 3 times. Should I use For(A,1,3 then the code then enter? Or should I use Repeat?

---

Tom R.
Blacksmith, woodsman, patriot, and programmer.

Re: Stopwatch: Loop only needs repeated once a second

Xeda Elnara 02 Mar 2011 18:10

the For(A,1,3 would probably be better. What exactly is happening in those 26 lines?

---

47%? Take a look and try to imagine how cool 100% will be. This has won zContest 2011 and made news on TICalc. This compromise between Assembly and BASIC parses like BASIC and is fast like assembly. Grammer 2

Re: Stopwatch: Loop only needs repeated once a second

BlakPilar 02 Mar 2011 20:54

Programmer's Tip*: If you have something that repeats a specific amount of times, always use For. If you're going until something happens use, in the case of TI-BASIC, While or Repeat.

*This goes for all kinds of programming, as it is "faster" and the variable is incremented for you.

---

Projects: BexIDE (hold), Hadean.NET, Legend of Zelda: Link to the Future

Re: Stopwatch: Loop only needs repeated once a second

Qwerty_55 05 Mar 2011 01:35

There are exceptions to every rule. I've found IS>( and DS<( commands to be useful at times where a For( loop would have been rather inappropriate.

Yes, I'll admit to being guilty of abusing IS>( for looping.

---

(∂²Ψ)/(∂x²) = -(2m(V(x)-E)Ψ/( ℏ²Ψ)

Last edited on 05 Mar 2011 01:38 by Qwerty_55 Show more

Re: Stopwatch: Loop only needs repeated once a second

BlakPilar 05 Mar 2011 01:55

Shame on you!

Just kidding. Yeah, I know there are often many exceptions to rules, but rules are meant to be broken, right?

---

Projects: BexIDE (hold), Hadean.NET, Legend of Zelda: Link to the Future

Last edited on 05 Mar 2011 01:56 by BlakPilar Show more