- [Hybrid BASIC] Timer Program
- 10 Jun 2015 10:58:13 am
- Last edited by readroof2 on 18 Jun 2015 03:32:23 pm; edited 3 times in total
A basic timer in full color. Pausing is almost finished. Here is the current program. http://www.cemetech.net/programs/index.php?mode=file&path=/84pcse/basic/programs/ColorTimer.zip
I just finished adding pausing to my timer program, which was really easy, but I don't know what I should display to let the user know that the timer actually did pause when they press enter without waiting for a second to see that the time is not increasing. I have included the code, but you could just download ColorTimer from the archives to see the program without pausing if you want. What should I display (in color) when the timer is paused? I would like it to be some kind of image implying pausing a timer on the right hand side of the screen. Thanks!
Code:
I just finished adding pausing to my timer program, which was really easy, but I don't know what I should display to let the user know that the timer actually did pause when they press enter without waiting for a second to see that the time is not increasing. I have included the code, but you could just download ColorTimer from the archives to see the program without pausing if you want. What should I display (in color) when the timer is paused? I would like it to be some kind of image implying pausing a timer on the right hand side of the screen. Thanks!
Code:
:DCS
"33333333333333333333332222233333333322CB1BC2233333322BBB1BBB22333332B1BBBBB1B233332CBBBBBBBBBC23332BBBBBBBBBBB23332B1BBB23333B23332BBBB3BBBBBB23332CBB3BBBBBBC233332BBBBBBB1B23333322BBB1BBB2233333322CBBBC22333333333222223333333333333333333333333333333333333
If 80>det([[20:Then:Disp "Get Doors CSE to run this:","http://dcs.cemetech.net":Return:End
ClrHome
1->G
real(0,1,1
real(0,3,4,103,1
real(0,3,4,103,1
real(0,1,0
DelVar SDelVar MDelVar H
det(12,Black,LtBlue
For(X,9,1,~1
Output(X,3," "
End
Output(4,11,"Timer!"
Output(6,8,"By Gavin Vogt"
For(X,1,500
End
Output(4,11," "
Output(6,8," "
Output(1,10,"-------"
Output(2,10,"-Timer-"
Output(3,10,"-------"
det(12,Black,Red
Output(9,3," By Gavin Vogt "
det(12,Black,LtBlue
Output(5,8,"Hours:"
Output(6,8,"Minutes:"
Output(7,8,"Seconds:"
startTmr->T
0->A
For(theta,1,92,.001
getKey->K
If Ans=45
92->theta
If K!=45
1->theta
If K=105
Then
E->A
Repeat Ans=105
getKey
End
startTmr->T
End
checkTmr(T)+A->E
iPart(E/3600)->H
iPart((E-3600H)/60)->M
E-3600H-60M->S
If S=0 and G=1
Then
Output(7,17," "
Output(6,17," "
2->G
End
If S=1
Then
1->G
End
Output(5,14,H
Output(6,16,M
Output(7,16,S
End
ClrHome