Setting calculator's auto shutoff

[Thomas_Sch]

Setting calculator's auto shutoff, by Wolfgang

Since FW 6940 there is the system variable TOff setting auto shutoff.
For further information please take a look at prime's help.
Attachment: Program setting the auto shutoff.

My special comment to Fw 6975: Wonderful!
Thx to the development team.
Wolfgang

Slider-addon by Thomas.
- graphic display of value 'Toff'
- change 'Toff' by clicking in slider

Code:


#pragma mode( separator(.,;) integer(h32) )

SLIDER_INIT();
SLIDER_DRAW();

EXPORT TOFF()
// Firmware 6975
// integer systems settings are not recommended
// Number Format: Standard
// Setting the auto shutoff system-variable TOff
// limits are set between 1 minute and 60 minutes
// Softmenu with 5 soft buttons
// selectable increment and decrement steps 
// steps of 1, 2, 5, 0.5 minutes
// WMWK 2015-01-05 Versin 0.97
// wolfgang.kuehn@vodafone.de
//
//   add-on: slider (version 0.01); Thomas; 150108 

BEGIN

  LOCAL m,m1,mx,my,TF, TMul;
  LOCAL TF0, xt;
  RECT();
 
  //TF = readout catual TOff in minutes 
  TF:=(B→R(TOff)/60000);
  TEXTOUT_P("Setting Calculator's auto shutoff V 0.97",26,1,3);
  TEXTOUT_P("TOFF = ",26,50,2);
  // actual TOff
  // actual TOff in minutes
  TEXTOUT_P(B→R(TOff)/60000,65,50,2);
  TEXTOUT_P("min", 95,50,2);
  //actual TOff hex
  // 
  TEXTOUT_P(R→B(TF*60000,32,4)+"    ",139,50,2,#000000,100,#FFFFFF);
  //actual TOff decimal
  TEXTOUT_P(R→B(TF*60000,32,3)+"    ",229,50,2,#000000,100,#FFFFFF);
  SLIDER_INIT(); 
  xt:=SLIDER_DRAW(TF, TF);

  // Softmenu 5 buttons
  DRAWMENU("TOff +","TOff -","SET","TOff *","BYE");
  //Multiplier incr / decr
   TMul:=1;
     
//outer loop 
While Z <= 9999 DO
 WHILE MOUSE(1)>=0 DO   END;
//inner loop
    REPEAT
      m:=MOUSE;
      m1:=m(1);
    UNTIL SIZE(m1)>0;
      
    mx:=m1(1);
    my:=m1(2);

    // query softbuttons
    IF my>=220 AND my<=239 THEN

    // menu button 1
      IF mx>=0 AND mx<=51 THEN
        TF0:=TF;
    TF:=TF+1*TMul;
        IF TF>60 THEN TF:=60; END; 
    xt:=SLIDER_DRAW(TF, TF0);
        TEXTOUT_P(TF+"   ",65,50,2,#000000,30,#FFFFFF);
        TEXTOUT_P(R→B(TF*60000,32,4)+"    ",139,50,2,#000000,140,#FFFFFF);
        TEXTOUT_P(R→B(TF*60000,32,3)+"    ",229,50,2,#000000,100,#FFFFFF);
      END;
      // menu button 2
      IF mx>=53 AND mx<=104 THEN
        TF0:=TF;
    TF:=TF-1*TMul;
        IF TF < 1 THEN TF:=1; END;
        xt:=SLIDER_DRAW(TF, TF0);
        TEXTOUT_P(TF+"   ",65,50,2,#000000,30,#FFFFFF);
        TEXTOUT_P(R→B(TF*60000,32,4)+"    ",139,50,2,#000000,140,#FFFFFF);
        TEXTOUT_P(R→B(TF*60000,32,3)+"    ",229,50,2,#000000,100,#FFFFFF);
      END;
       // menu button 3
      IF mx>=106 AND mx<=157 THEN
        TOff:=R→B(TF*60000);
        TEXTOUT_P("TOff set",112,205,1,#000000,50,#FFFFFF);
      END;     
       // menu button 4
       IF mx>=159 AND mx<=210 THEN
            CASE
                    IF TMul=1 THEN TMul:=2;END;
                    IF TMul=2 THEN TMul:=5;END;
                    IF TMul=5 THEN TMul:=0.5;END;
                    IF TMul=0.5 THEN TMul:=1;END;
             END;

                    TEXTOUT_P("TMul = "+TMul+"    ", 164,205,1,#000000,50,#FFFFFF);

      END;

        // menu button 5
       IF mx>=212 AND mx<=263 THEN
        RETURN;
      END;
      // inner loop
  END;
  // outer loop

    // slider?
    IF my>=101 AND my<=119 THEN
      IF mx>30 AND mx<300 THEN
        TF0:=TF; 
        TF:=1+IP((59.5*((mx-30)/270))); 
        xt:=SLIDER_DRAW(TF, TF0);
        TEXTOUT_P(TF+"   ",65,50,2,#000000,30,#FFFFFF);
        TEXTOUT_P(R→B(TF*60000,32,4)+"    ",139,50,2,#000000,140,#FFFFFF);
        TEXTOUT_P(R→B(TF*60000,32,3)+"    ",229,50,2,#000000,100,#FFFFFF);
      END;
    END;   // slider

END;
END;

SLIDER_INIT()
BEGIN
  // box for slider, min, max 
  //   t odo: (global?) constants: 
  //    position (x,y), size (x,y), value(s)(min, max)
  RECT_P(G0, 28,100, 302,120, #0, #FFFFFF);
  TEXTOUT_P("1" , 20,105,2);
  TEXTOUT_P("60",304,105,2);
END;

SLIDER_DRAW(TF, TF0)
BEGIN
  // (re)draws slider.
  //   todo: constans! (see SLIDER_INIT)
  //   conversion of value(e) <--> position
  LOCAL xTF, xTF0, off, br;
  off:=2;
  br:=3;  // width of slider
  // x pos slider
  xTF  := IP( 32 + (((TF -0.99)/59) *266));
  xTF0 := IP( 32 + (((TF0-0.99)/59) *266));
  // redraw slider
  RECT_P(G0, (xTF0-3),101, (xTF0+3),119, #FFFFFF, #FFFFFF);
  RECT_P(G0, (xTF -3),101, (xTF +3),119, RGB(255,0,0), RGB(255,0,0));
  // value 
  off:=2;
  IF TF>9 THEN off:=5; END;
  RECT_P(G0, xTF0-5,123, xTF0+15,133, #FFFFFF, #FFFFFF);
  TEXTOUT_P(TF+" ",xTF-off,125,1);
  RETURN xTF;
END;