Library Tutorial

[BERNARD MICHAUD]

Library Tutorial Example

Code:



//Below is where you declare Global variables used by the Solver App.
//When you declare a Global variable using the EXPORT command (line 13) it is retained by the calculator
//even when you exit the app. If you type Gain in the Home screen 
//followed by [Enter] the number stored in the variable Gain will be displayed.
// You can even type Gain*5 and if Gain = 10, the display will return 50.
//Letters A to Z do not have to be declared as they already are Global variables part of the System,
//however 'a to z' have to be declared by EXPORT (global) or LOCAL 
//Other Global variables are M0 to M9, used by Matrix, Zo to Z9 used by Complex numbers etc.
//LOCAL variables are active only while the program is running,so as not to clutter the memory space.
//Also you cannot use the word 'point' as a variable because it is a system command which is part of the 
//command list, accessed by pressing the Toolbox/Mem/B key and soft key Catlg.

EXPORT Gain,Debit,Credit,x,y,z;//Only 8 per line. This line has 6 variables, you can add two more.
//EXPORT a,b,c,d,e,f,g,h,k,KLM;This line contains 9 and will be rejected or cause error.
//' ; , " " 'are very important and will cause errors eg.  END without ; cause error.


EXPORT Library()//This is the program name. 
//Body of the program begins here line 20 and the matching END; is on the last line .
BEGIN
LOCAL lib;//lib is used below to select a particular library categories.
// it is a temporary VARIABLE used as a linl until the program is terminated.
//You do not have to use 'lib', its an arbitrary name.

//'STARTAPP' is used to start an app, in this case "Solve".
STARTAPP("Solve");
//Below is an empty equation set used when the program is started
//to clear the Solver. You can also use the second option from the MENU line 44. 
""▶E1;
""▶E2;
""▶E3;
""▶E4;
""▶E5;
""▶E6;
""▶E7;
""▶E8;
""▶E9;
""▶E0;

//Here the program will present the list of categories.
//This MENU will appear as soon as you press the [Run] key.
//
CHOOSE(lib,"Finance ",
{   
"   Quit Library",
"   Clear Solver",
"   Accounting",
"   Economic ",
"   Next Category. "
});

IF lib==0 THEN KILL; 
END;

//---------------------------------------
//lib==1 is the link to 'Quit Library'.
IF lib==1 THEN
PRINT();
PRINT("Quiting Library");
IFERR BREAK; BREAK; THEN END
END;
//------------------------------------
//lib==2 will Clear the Solver.
IF lib==2 THEN
""▶E1;
""▶E2;
""▶E3;
""▶E4;
""▶E5;
""▶E6;
""▶E7;
""▶E8;
""▶E9;
""▶E0;
END;//End of Clear Solver section
//------------------------------------
//lib==3 is the link to 'Accounting'You can add categories by doing a Copy & Paste
IF lib==3 THEN
"Gain=y/z"▶E1;
"COS(θ)=x/z"▶E2;
"TAN(θ)=y/x"▶E3;
"CSC(θ)=z/y"▶E4;
"SEC(θ)=z/x"▶E5;
"COT(θ)=x/y"▶E6;
""▶E7;
""▶E8;
""▶E9;
""▶E0;
END;//End of Accounting routine.
//-------------------------------------
//lib==4 is the link to Economic.
IF lib==4 THEN
"C=A+B"▶E1;
"C=A+B"▶E2;
"C=A+B"▶E3;
"C=A+B"▶E4;
"C=A+B"▶E5;
"C=A+B"▶E6;
"C=A+B"▶E7;
"C=A+B"▶E8;
"C=A+B"▶E9;
"C=A+B"▶E0;

PRINT();//This PRINT(); clears previous stuff to prevent it from being printed with current stuff.
//below Equ.s are printed on the screen along with
//description of variables used in the Equ.s
PRINT("
  Instructions re: Equations 
  ---------------------------------------
 Variables used in the Equ.s
   var1 = Flux Density
   var2 = Flux,        
   var3 = Magnetizing Force   
   var4 = Permeability of Material
   var5 = constant  = 1.2566ᴇ−6
   var6 = Relative Permeability 
   var7 = mmf");
END;//End of el==4 Economic routine.

//-----------------------------------------------
//lib==5 is the link of Next Category
IF lib==5 THEN
"C=A+B"▶E1;
"C=A+B"▶E2;
"C=A+B"▶E3;
"C=A+B"▶E4;
"C=A+B"▶E5;
"C=A+B"▶E6;
"C=A+B"▶E7;
"C=A+B"▶E8;
"C=A+B"▶E9;
"C=A+B"▶E0;

PRINT();
//below Equ.s are printed on the screen along with
//description of variables used in the Equ.s
PRINT("
  Variable defination
  ---------------------------------------
 Variables used in the Equ.s
   A = Flux Density
   B = Flux,        
   C = Magnetizing Force   
   var4 = Permeability of Material
   var5 = constant  = 1.2566ᴇ−6
   var6 = Relative Permeability 
   var7 = mmf");
END;//End of el==5 routine.

END;//Terminates program.

BM