Post Reply 
A simple Entry Mode Switcher...
03-01-2014, 10:55 PM (This post was last modified: 03-02-2014 02:27 PM by Cristóbal De Jesús.)
Post: #1
A simple Entry Mode Switcher...
... with visual feedback. Probably the simplest program so far, it's a key definition.
Code:
// Cycles over entry mode options. 
KEY K_On() 
BEGIN 
LOCAL an:={"Textbook","Algebraic","RPN"}; 
Entry:=(Entry+1)MOD3; 

STARTVIEW(-8,1); // Out to ANY AVAILABLE view... 
STARTVIEW(-1,1); // ... and back in, to refresh 

TEXTOUT_P(an(Entry+1),G0,2,207,2,RGB(255,0,0)); 
END;
Find all posts by this user
Quote this message in a reply
03-02-2014, 03:12 AM
Post: #2
RE: A simple Entry Mode Switcher...
Very simple.
VERY useful.
VERY NICE!

Thanks for sharing.

--Bob Prosperi
Find all posts by this user
Quote this message in a reply
03-02-2014, 10:19 PM
Post: #3
RE: A simple Entry Mode Switcher...
+1 nice job!
Find all posts by this user
Quote this message in a reply
05-09-2014, 01:13 PM
Post: #4
RE: A simple Entry Mode Switcher...
+2 Simple and powerful - well done
Visit this user's website Find all posts by this user
Quote this message in a reply
05-10-2014, 05:16 AM
Post: #5
RE: A simple Entry Mode Switcher...
How do you run this? I'm new to running HP Prime programs.
Thanks!
Find all posts by this user
Quote this message in a reply
05-11-2014, 12:21 AM
Post: #6
RE: A simple Entry Mode Switcher...
(05-10-2014 05:16 AM)darwin513 Wrote:  How do you run this? I'm new to running HP Prime programs.
Thanks!

Once you have copied the program in the Program Catalog, activate the user keyboard by pressing SHIFT HELP ("1U" will be displayed when activated), then press the customized key, ON in this case. More info: User Guide page 516. Easy as π.
Find all posts by this user
Quote this message in a reply
05-14-2014, 02:17 AM
Post: #7
RE: A simple Entry Mode Switcher...
(05-11-2014 12:21 AM)Cristóbal De Jesús Wrote:  
(05-10-2014 05:16 AM)darwin513 Wrote:  How do you run this? I'm new to running HP Prime programs.
Thanks!

Once you have copied the program in the Program Catalog, activate the user keyboard by pressing SHIFT HELP ("1U" will be displayed when activated), then press the customized key, ON in this case. More info: User Guide page 516. Easy as π.


Got it working, thank you!
Find all posts by this user
Quote this message in a reply
05-04-2016, 06:27 AM
Post: #8
RE: A simple Entry Mode Switcher...
Meaner, leaner, tighter (and works with the latest firmware)...
Code:

// Cycles over entry mode options. 
 KEY K_On() 
 BEGIN 
 LOCAL an:={"Textbook","Algebraic","RPN"}; 
 Entry:=(Entry+1) MOD 3; 

 STARTVIEW(-1,1); // Refresh Home view BEFORE tagging...

 TEXTOUT_P(an(Entry+1),G0,2,207,2,RGB(255,0,0));
 FREEZE; // the mean part!
 END;
Find all posts by this user
Quote this message in a reply
05-04-2016, 04:34 PM
Post: #9
RE: A simple Entry Mode Switcher...
Thank you very much Cristobal, still very useful.

Spybot.
Find all posts by this user
Quote this message in a reply
05-05-2016, 11:11 AM
Post: #10
RE: A simple Entry Mode Switcher...
Bonjour
C'est une excellente idée, si je peut proposer une petite
amélioration ?
Pour les différentes langues disponibles.

Hello
It's a great idea, if I may offer a small
improvement ?
For the available languages ​​.

Code:

KEY K_On()
BEGIN
Entry:=(Entry+1) MOD 3;
STARTVIEW(-1,1);
TEXTOUT_P(STRINGFROMID(1903+Entry),G0,2,207,2,RGB(255,0,0));
FREEZE;
END;

Sorry for my english
Find all posts by this user
Quote this message in a reply
05-05-2016, 01:50 PM
Post: #11
RE: A simple Entry Mode Switcher...
(05-05-2016 11:11 AM)Tyann Wrote:  
Code:

KEY K_On()
BEGIN
Entry:=(Entry+1) MOD 3;
STARTVIEW(-1,1);
TEXTOUT_P(STRINGFROMID(1903+Entry),G0,2,207,2,RGB(255,0,0));
FREEZE;
END;

Your English is fine and your code is clever!

--Bob Prosperi
Find all posts by this user
Quote this message in a reply
05-06-2016, 03:12 PM (This post was last modified: 05-06-2016 03:21 PM by Cristóbal De Jesús.)
Post: #12
RE: A simple Entry Mode Switcher...
(05-05-2016 11:11 AM)Tyann Wrote:  Bonjour
C'est une excellente idée, si je peut proposer une petite
amélioration ?
Pour les différentes langues disponibles.

Hello
It's a great idea, if I may offer a small
improvement ?
For the available languages ​​.

Code:

KEY K_On()
BEGIN
Entry:=(Entry+1) MOD 3;
STARTVIEW(-1,1);
TEXTOUT_P(STRINGFROMID(1903+Entry),G0,2,207,2,RGB(255,0,0));
FREEZE;
END;

Great! Thanks for the improvement, I learned something new today.
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)