Hi all,

I'am working on a program that takes input from the graph screen. I would like to know if there is a way to get a picture of a "built-in" screen such as the screen that shows the equality/inequality symbols, i.e., if the user presses "2nd", "MATH", then the menus of TEST and LOGIC display along with the symbols. Is this possible and if not will I need to use the pen tool go through the pain staking process of drawing the screen myself?

Thanks in advance
Which calculator model are you dealing with? As long as it's the TI-83+/TI-84+ or the TI-84+CSE, Doors CS or Doors CSE have the libraries you need to build the menu yourself.
I currently am working with the TI-84 Plus Silver Edition 2.55MP.

Allow me to be more specific. I'am writing a CAS, which itself is more than a mere headache. I would like to have all of my menus, options and input done on the graph screen. For example, I would like for the user to enter a string expression on the graph screen and then I can interpret what they entered.
Doing entry on the graphscreen would be significantly difficult, if you mean something like Input or Prompt. However, if you wanted to make a menu that looks like (for example) the TEST/LOGIC menu, you could use TextMode from the xLIB libraries combined with Output() and getKey to make a menu that looked and behaved like the OS's own menu.
I decided to take a whack at this using textlib 1.0 for the ce. I know it is horribly optimized, I threw this together in a few minutes. 0:prgmMENUS will display the prgm screen, and 1:prgmMENUS will display the apps screen.


Code:

Lbl 1
Ans→θ
ClrHome
{14}
Asm(prgmTEXTLIB
{16,WHITE}
Asm(prgmTEXTLIB
{17,BLACK}
Asm(prgmTEXTLIB
{2}
Asm(prgmTEXTLIB
{1,1}→dim([C]
1→[C](1,1
If θ=0:Goto A1
If θ=1:Goto A3
Goto Z

Lbl A3
Disp "APPLICATIONS
Disp "1:
{4}
Asm(prgmTEXTLIB
Output(2,3,"Finance…
Lbl A4
getKey→K
If K≠0:Goto Z
Goto A4
Lbl A1
Disp "EXEC
{4}
Asm(prgmTEXTLIB
Output(1,6,"EDIT
Output(1,11,"NEW
Lbl A2
getKey→K
If K=24:Then
If [C](1,1)=1:Then:{4}:Asm(prgmTEXTLIB):Output(1,1,"EXEC"):{14}:Asm(prgmTEXTLIB):Output(1,11,"NEW"):3→[C](1,1):Output(2,1,"1:"):{4}:Asm(prgmTEXTLIB):Output(2,3,"Create New"):Goto A2:End
If [C](1,1)=2:Then:{4}:Asm(prgmTEXTLIB):Output(1,6,"EDIT"):{14}:Asm(prgmTEXTLIB):Output(1,1,"EXEC"):[C](1,1)-1→[C](1,1):Goto A2:End
If [C](1,1)=3:Then:{4}:Asm(prgmTEXTLIB):Output(1,11,"NEW"):Output(2,1,"            ":{14}:Asm(prgmTEXTLIB):Output(1,6,"EDIT"):[C](1,1)-1→[C](1,1):End
End
If K=26:Then
If [C](1,1)=1:Then:{4}:Asm(prgmTEXTLIB):Output(1,1,"EXEC"):{14}:Asm(prgmTEXTLIB):Output(1,6,"EDIT"):[C](1,1)+1→[C](1,1):Goto A2:End
If [C](1,1)=2:Then:{4}:Asm(prgmTEXTLIB):Output(1,6,"EDIT"):{14}:Asm(prgmTEXTLIB):Output(1,11,"NEW"):[C](1,1)+1→[C](1,1):Output(2,1,"1:"):{4}:Asm(prgmTEXTLIB):Output(2,3,"Create New"):Goto A2:End
If [C](1,1)=3:Then:{4}:Asm(prgmTEXTLIB):Output(1,11,"NEW"):Output(2,1,"            ":{14}:Asm(prgmTEXTLIB):Output(1,1,"EXEC"):1→[C](1,1):End
End
If K=45
Then
ClrHome
Goto Z
End
If K=42:Then:ClrHome:1:Goto 1:End
Goto A2
Lbl Z
ClrHome
{4,12}
Asm(prgmTEXTLIB


All you should have to do, from what I understand is change the textlib commands to TextMode using what Kerm gave you. Hope this helps. Smile
  
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