Code Problems
This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. TI-Basic => TI-BASIC
Code Problems
United-TI Archives -> TI-Basic
 
    » Goto page 1, 2  Next
» View previous topic :: View next topic  
Author Message
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 06 Feb 2004 04:54:38 pm    Post subject:
ClrHome
ClrDraw
Horizontal ú5
Horizontal ú8
"Welcome to Cheat Central....Copyright 2004....All Rights Reserved "üStr1
" "+Str1+" "üStr1
length(Str1üB
Repeat 0
1üA
For(A,1,B-15
For(X,1,1
End
Text(ú1,48,0,sub(Str1,A,16
End
ClrHome
ClrDraw
While 1
getKeyüK
If K=34
Goto 2
Lbl 1
Text(4,17,"License Agreement
Text(12,5,"By using Cheat Central you
Text(18,13,"agree to abide by the
Text(24,13,"following provisions:
Text(36,0,"1.LICENSE: grants you use of
Text(42,0,"this program.
Text(54,0,"2.RESTRICTIONS: you may
Pt-On(8.7,ú7.7
Pt-On(8.7,ú8
Pt-On(8.7,ú8.3
Pt-On(8.7,ú7.0
Pt-On(8.7,ú6.7
Pt-On(8.7,ú7.4
Pt-On(8.5,ú8.3
Pt-On(8.2,ú8
Pt-On(8.9,ú8.3
Pt-On(9.1,ú8
Pt-On(8.7,ú8.7
End
Lbl 2
ClrDraw
While 1
getKeyüK
If K=25
Goto 1
Text(0,0,"not reverse assemble or
Text(6,0,"reverse compile the
Text(12,0,"portion of the Licensed
Text(18,0,"Materials that are provided
Text(24,0,"in object code format.
Text(36,0,"COPYRIGHT: do not delete the
Text(42,0,"copyright notice,
Text(48,0,"trademarks or protective
Text(54,0,"notice.
Pt-On(8.2,9.3
Pt-On(8,9
Pt-On(7.8,8.7
Pt-On(8.5,9
Pt-On(8.7,8.7
Pt-On(8.2,9
Pt-On(8.2,8.7
Pt-On(8.2,8.3
Pt-On(8.2,8
Pt-On(8.2,7.7
Pt-On(8.2,7.4


My problem is when you press down it will take you to the screen,but if you press up it wont take you back whats wrong? Also is there a shorter way than doing point on to draw an arrow? Smile Those U things are actually store ->. The U in front of the one is a subtract sign.

Last edited by Guest on 06 Feb 2004 04:57:06 pm; edited 1 time in total
Back to top
Fr0sty


Member


Joined: 27 Nov 2003
Posts: 202
Posted: 06 Feb 2004 05:03:36 pm    Post subject:
I think I figured it out:
First off you could just use the Greater > than or Less than sign <
Second. On your first label, your Getkey is BEFORE the label. On your second, the Getkey is AFTER the label. The While 1 statements makes it run forever on that one thing. Try putting an End statement in there after Label 2?
Back to top
DarkerLine
ceci n'est pas une |


Super Elite (Last Title)


Joined: 04 Nov 2003
Posts: 8328
Posted: 06 Feb 2004 05:32:22 pm    Post subject:
Also, I'd suggest you use pxl-on instead of pt-on. And you don't need 1->A before For(A,1,...
You don't need to ClrHome if you're drawing on the graph screen only either.
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 06 Feb 2004 08:22:13 pm    Post subject:
What does pxl on do better than pt on?
Back to top
X1011
10100111001


Active Member


Joined: 14 Nov 2003
Posts: 657
Posted: 06 Feb 2004 08:30:09 pm    Post subject:
It's faster and you don't need to set the window ranges
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 06 Feb 2004 08:47:24 pm    Post subject:
Does not work.
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 06 Feb 2004 09:55:37 pm    Post subject:
ClrHome
ClrDraw
Horizontal ú5
Horizontal ú8
"Welcome to Cheat Central....Copyright 2004....All Rights Reserved "üStr1
" "+Str1+" "üStr1
length(Str1üB
Repeat 0
1üA
For(A,1,B-15
For(X,1,1
End
Text(ú1,48,0,sub(Str1,A,16
End
ClrHome
ClrDraw
While 1
getKeyüK
If K=34
Goto 2
Lbl 1
Text(4,17,"License Agreement
Text(12,5,"By using Cheat Central you
Text(18,13,"agree to abide by the
Text(24,13,"following provisions:
Text(36,0,"1.LICENSE: grants you use of
Text(42,0,"this program.
Text(54,0,"2.RESTRICTIONS: you may
Pt-On(8.7,ú7.7
Pt-On(8.7,ú8
Pt-On(8.7,ú8.3
Pt-On(8.7,ú7.0
Pt-On(8.7,ú6.7
Pt-On(8.7,ú7.4
Pt-On(8.5,ú8.3
Pt-On(8.2,ú8
Pt-On(8.9,ú8.3
Pt-On(9.1,ú8
Pt-On(8.7,ú8.7
End
Lbl 2
ClrDraw
While 1
getKeyüK
If K=25
Goto 1
Text(0,0,"not reverse assemble or
Text(6,0,"reverse compile the
Text(12,0,"portion of the Licensed
Text(18,0,"Materials that are provided
Text(24,0,"in object code format.
Text(36,0,"COPYRIGHT: do not delete the
Text(42,0,"copyright notice,
Text(48,0,"trademarks or protective
Text(54,0,"notice.
Pt-On(8.2,9.3
Pt-On(8,9
Pt-On(7.8,8.7
Pt-On(8.5,9
Pt-On(8.7,8.7
Pt-On(8.2,9
Pt-On(8.2,8.7
Pt-On(8.2,8.3
Pt-On(8.2,8
Pt-On(8.2,7.7
Pt-On(8.2,7.4

The second getkey just goes back to lable 1 without me pushing it whats wrong? ,and the clrdraw after lbl 1 it constantly clear itself why is that?
Back to top
Bluefire


Member


Joined: 18 Jan 2004
Posts: 186
Posted: 06 Feb 2004 09:59:47 pm    Post subject:
try


Code:
getKey->K
If K=25
Then
Goto 1
End


im pretty confused but maybe just maybe that might fix it

[EDIT] btw its for the 2nd getkey

Last edited by Guest on 06 Feb 2004 10:00:48 pm; edited 1 time in total
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 06 Feb 2004 10:08:42 pm    Post subject:
Its going crazyand repeating lbl 1 over and over.
Back to top
Bluefire


Member


Joined: 18 Jan 2004
Posts: 186
Posted: 06 Feb 2004 10:11:46 pm    Post subject:
use that on the SECOND getkey, lbl 1 is by ur first getkey

Last edited by Guest on 06 Feb 2004 10:12:10 pm; edited 1 time in total
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 06 Feb 2004 10:13:48 pm    Post subject:
I did, anyway I dont feel like using the PM, but your help with transfering data to the calc worked flawlessly, thanks. Smile
Back to top
Bluefire


Member


Joined: 18 Jan 2004
Posts: 186
Posted: 06 Feb 2004 10:15:30 pm    Post subject:
hehe o well im confused with that, wait till darth gets on he will solve that
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 06 Feb 2004 10:16:13 pm    Post subject:
O well I guess I'll have to wait.
Back to top
Fr0sty


Member


Joined: 27 Nov 2003
Posts: 202
Posted: 07 Feb 2004 12:00:24 am    Post subject:
Did you try an End statement at the end of label 2?
And I'd use If-Then statements cause I'm not good with whiles myself. They're much simpler.
Getkey->K
If K=25
Goto 1
...
...
...
Goto 2
Back to top
Arcane Wizard
`semi-hippie`


Super Elite (Last Title)


Joined: 02 Jun 2003
Posts: 8993
Posted: 07 Feb 2004 03:41:06 am    Post subject:
Should work:


ClrDraw
Horizontal ú5
Horizontal ú8

"Welcome to Cheat Central....Copyright 2004....All Rights Reserved "üStr1
" "+Str1+" "üStr1
length(Str1üB
For(A,1,B-15
For(X,1,1
End
Text(ú1,48,0,sub(Str1,A,16
End

Lbl 1
ClrDraw
Text(4,17,"License Agreement
Text(12,5,"By using Cheat Central you
Text(18,13,"agree to abide by the
Text(24,13,"following provisions:
Text(36,0,"1.LICENSE: grants you use of
Text(42,0,"this program.
Text(54,0,"2.RESTRICTIONS: you may
//draw arrow here

Repeat Ans=34
getKey
End

ClrDraw
Text(0,0,"not reverse assemble or
Text(6,0,"reverse compile the
Text(12,0,"portion of the Licensed
Text(18,0,"Materials that are provided
Text(24,0,"in object code format.
Text(36,0,"COPYRIGHT: do not delete the
Text(42,0,"copyright notice,
Text(48,0,"trademarks or protective
Text(54,0,"notice.
//draw arrow here

Repeat Ans=25
getKey
End
Goto 1
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 07 Feb 2004 12:41:17 pm    Post subject:
Thanks, finally it has been corrected.
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 07 Feb 2004 12:45:26 pm    Post subject:
I wanted to know the box options in the other topic that is boxes with options, because I need to know if you press enter on the first screen of text it would have a pop up that would say Read Agreement and the box would be black and if you were on the second screen and you pressed enter a pop up with options would say do you accept? Yes Or No and if you pressed yes it would go to the next screen and if you selected no it would stop the program. Can someone help me on that?
Back to top
DarkerLine
ceci n'est pas une |


Super Elite (Last Title)


Joined: 04 Nov 2003
Posts: 8328
Posted: 07 Feb 2004 01:04:10 pm    Post subject:

Code:
ClrDraw
Horizontal ú5
Horizontal ú8

"Welcome to Cheat Central....Copyright 2004....All Rights Reserved "üStr1
" "+Str1+" "üStr1
length(Str1üB
For(A,1,B-15
For(X,1,1
End
Text(ú1,48,0,sub(Str1,A,16
End

Lbl 1
ClrDraw
Text(4,17,"License Agreement
Text(12,5,"By using Cheat Central you
Text(18,13,"agree to abide by the
Text(24,13,"following provisions:
Text(36,0,"1.LICENSE: grants you use of
Text(42,0,"this program.
Text(54,0,"2.RESTRICTIONS: you may
//draw arrow here

Repeat Ans=34 or Ans=105
getKey
End
If Ans=105:Goto 3
ClrDraw
Text(0,0,"not reverse assemble or
Text(6,0,"reverse compile the
Text(12,0,"portion of the Licensed
Text(18,0,"Materials that are provided
Text(24,0,"in object code format.
Text(36,0,"COPYRIGHT: do not delete the
Text(42,0,"copyright notice,
Text(48,0,"trademarks or protective
Text(54,0,"notice.
//draw arrow here

Repeat Ans=25 or Ans=105
getKey
End
If Ans=105: Goto 4
Goto 1
Lbl 3
//code for a pop up that would say Read Agreement and the box would be black, don't really understand what you mean
Lbl 4
//code for a pop up with options would say do you accept? Yes Or No and if you pressed yes it would go to the next screen and if you selected no it would stop the program, don't understand either.

What do you mean by a pop up?
Back to top
Newbie


Bandwidth Hog


Joined: 23 Jan 2004
Posts: 2247
Posted: 07 Feb 2004 01:06:06 pm    Post subject:
I mean like Java Script pop up but on the calc where you would use line to draw a box and there would be options inside the box draw you could chose from.
Back to top
DarkerLine
ceci n'est pas une |


Super Elite (Last Title)


Joined: 04 Nov 2003
Posts: 8328
Posted: 07 Feb 2004 01:16:23 pm    Post subject:
Not really possible easily, sorry.
Back to top
Display posts from previous:   
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
Code Problems
    » Goto page 1, 2  Next
» View previous topic :: View next topic  
Page 1 of 2 » All times are UTC - 5 Hours

 

Advertisement