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 this 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



this is also on tibasicdev, http://tibasicdev.wikidot.com/forum/t-10610363/looking-for-beta-testers-clock-program-for-68k-in-basic
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement