Calculator Community > Other Calc-Related Projects and Ideas
My clock PRGM for TI-68k [Feedback Appreciated]
(1/1)
Izder456:
In the https://www.cemetech.net/forum/viewtopic.php?t=15381 (original post) i tried to convert this code to Ti-84/83 BASIC but failed miserably. During posting this forum topic I was locked out of this account I am posting that with, so the user redsn0w is me.
anyways here's the code:
--- Code: ---clock()
Prgm
//Setup Code
StoGDB a
ClrDraw
ClrIO
ClrHome
FnOff
setGraph(“axes”,”off”)
//Set Window
1.3->xmax
1.3->ymax
⁻1.3->xmin
⁻1.3->ymin
ZoomSqr
setMode(“Angle”,”RADIAN”)
//Draw Clock Base
Circle 0,0,1
PtText “12”,⁻.15,1.2
PtText “6”,⁻.08,⁻1.05
PtText “9”,⁻1.2,.08
PtText “3”,1.05,.08
//Draw 3 hour,5 minute, and 1 minute tick marks
For b,0,60*π/30,π/30
Line .925*cos(b),.925*sin(b),cos(b),sin(b)
EndFor
For b,0,12*π/6,π/6
Line .85*cos(b),.85*sin(b),cos(b),sin(b)
EndFor
For b,0,4*π/2,π/2
Line .8*cos(b),.8*sin(b),cos(b),sin(b)
EndFor
//Repeats until a key is pressed
While getKey()=0
//Split time List Var into two INT vars
getTime()->l1
l1[1]->h
l1[2]->m
//Draw and erase hands
Line 0,0,.5*sin((h-1)*π/6),.5*cos((h-1)*π/6),0
Line 0,0,.5*sin(h*π/6),.5*cos(h*π/6),1
Line 0,0,.7*sin((h-1)*π/30),.7*cos((h-1)*π/30),0
Line 0,0,.7*sin(h*π/30),.7*cos(h*π/30),1
EndWhile
FnOn
RclGDB a
EndPrgm
--- End code ---
this is also on tibasicdev, http://tibasicdev.wikidot.com/forum/t-10610363/looking-for-beta-testers-clock-program-for-68k-in-basic
Eeems:
--- Quote from: Izder456 on March 13, 2019, 05:47:30 pm ---During posting this forum topic I was locked out of this account I am posting that with, so the user redsn0w is me.
--- End quote ---
There is no user registered with the name "redsn0w". If you would like your display name changed, please send me a private message.
All that aside, what was the issue you were running into when you attempted to port this to TI-83 Basic?
Izder456:
resolved on original topic.
Navigation
[0] Message Index
Go to full version