How make a green Background by a Choose Funktion
03-16-2017, 02:39 PM
Post: #1
 Onieh Junior Member Posts: 33 Joined: Mar 2017
How make a green Background by a Choose Funktion
Hallo,

How can i make a green Background by a Choose Funktion?

//-------------------------
//RECT_P(RGB(154,205,50)); //<-- Problem
//-------------------------

CHOOSE(N,"* F L U G N A V I G A T I O N*",{"ICAO-Kennung","Position","Flugstrecke","E N D E"});
IF N==1 THEN ICAO;
END;
//IF N==2 THEN Position;
//END;
IF N==3 THEN Flugstrecke;
END;
//END;
WAIT;
END;
//END;
03-16-2017, 03:02 PM (This post was last modified: 03-16-2017 03:13 PM by DrD.)
Post: #2
 DrD Senior Member Posts: 1,132 Joined: Feb 2014
RE: How make a green Background by a Choose Funktion
Like this?

Code:
 EXPORT clrs() BEGIN   LOCAL  red:=RGB(255,0,0),        green:=RGB(0,255,0),         blue:=RGB(0,0,255);   L0:={"red","green","blue"};     CHOOSE(X,"COLORS",L0);   RECT_P(G0,0,0,320,220,EXPR(L0((X))));   wait(2); END;
03-16-2017, 03:50 PM
Post: #3
 Onieh Junior Member Posts: 33 Joined: Mar 2017
RE: How make a green Background by a Choose Funktion
No, i mean i would like the choose funktion on a green background!
03-16-2017, 04:23 PM
Post: #4
 Carlos295pz Senior Member Posts: 365 Joined: Sep 2015
RE: How make a green Background by a Choose Funktion
It is not possible to place a background on the integrated interfaces such as CHOOSE, MSGBOX, INPUT, EDITMAT, EDITLIST, PRINT.

Viga C | TD | FB
03-16-2017, 06:04 PM
Post: #5
 Onieh Junior Member Posts: 33 Joined: Mar 2017
RE: How make a green Background by a Choose Funktion
Okay.

is there another way to make an input with green background?
03-16-2017, 06:56 PM
Post: #6
 eried Senior Member Posts: 744 Joined: Dec 2013
RE: How make a green Background by a Choose Funktion
(03-16-2017 06:04 PM)Onieh Wrote:  Okay.

is there another way to make an input with green background?

Yes. You can draw everything yourself. And program the whole functionality

My website: erwin.ried.cl
03-16-2017, 07:08 PM (This post was last modified: 03-16-2017 08:32 PM by compsystems.)
Post: #7
 compsystems Senior Member Posts: 1,329 Joined: Dec 2013
RE: How make a green Background by a Choose Funktion
PHP Code:
EXPORT popup_problem()BEGINRECT_P(RGB(154,205,50)); WAIT;CHOOSE(N,"TITLE",{"A","B","C"});  //<-- Problem  (NO POPUP)WAIT;END;

The hp48/49/50 series, the dialog boxes (I/O) are displayed in the current screen view, Why the HP-Prime Group did not continue with this form in hp-prime?.
Using the terminal view for example, CHOOSE and others dialog boxes cmds are displayed in the history view (HOME/CAS), I think they should be displayed in the current view as popup and you?
the DRAWMENU cmd work as a popup =), but if each menu calls an MSGBOX OR CHOOSE does not work =(

PHP Code:
EXPORT popup2_problem()BEGINPRINT();PRINT("INTRO"); WAIT;CHOOSE(N,"TITLE",{"A","B","C"}); //<-- ProblemPRINT("2"); WAIT;MSGBOX("TEXT"); //<-- Problem PRINT("3"); WAIT;DRAWMENU("MENU1","","MENU2");  //<-- okWAIT;PRINT("4"); WAIT;END;
The background (HISTORY VIEW) must be controlled by a command similar to LCD-> & TEXT { "History View" « LCD-> ->STR TEXT 1 WAIT 7 » }

...And also for some errors, such as compilation errors, the message popup is displayed outside the current view and in some cases in the history view, It is very uncomfortable to be returning manually to the preview, it should remain in the current

This can be seen in the following gif (Syntax error)

An example, where CHOOSE DBOX (HP-50) is shown popup
PHP Code:
%%HP: T(0)A(D)F(.);@ Author: compsystems@ Version: 1.0@ Creado con el IDE HPUserEdit 6 (PERU)DIR  SetBackGround  «    -90 SF    holdDisplay    DO      "Select Background"      listBackground      posBackground      IF      CHOOSE      THEN        EVAL 'posBackground' STO OBJ-> putGraphicObjCoo00  holdDisplay 2 WAIT      ELSE KILL      END    UNTIL 0    END  »  listBackground  {  { "BlackBackgroundG" « "BlackBackgroundG" 1  » }  { "PixelBackgroundG" « "PixelBackgroundG" 2  » }  { "GrideBackgroundG" « "GrideBackgroundG" 3  » }  { "CircleBackgrondG" « "CircleBackgrondG" 4  » }  { "Circle2BackgrndG" « "Circle2BackgrndG" 5  » }  { "FloorBackgroundG" « "FloorBackgroundG" 6  » }  { "History View" « LCD-> ->STR TEXT 1 WAIT 7  » }  }  EmptyBackgroundG GROB 131 80 0    BlackBackgroundG « EmptyBackgroundG NEG »    PixelBackgroundG GROB 131 80  555555555555555555555555555555555000000000000000000000000000000000005555555​55555555555555555555555555000000000000000000000000000000000005555555555555555555​55555555555555000000000000000000000000000000000005555555555555555555555555555555​55000000000000000000000000000000000005555555555555555555555555555555550000000000​00000000000000000000000005555555555555555555555555555555550000000000000000000000​00000000000005555555555555555555555555555555550000000000000000000000000000000000​05555555555555555555555555555555550000000000000000000000000000000000055555555555​55555555555555555555550000000000000000000000000000000000055555555555555555555555​55555555550000000000000000000000000000000000055555555555555555555555555555555500​00000000000000000000000000000000055555555555555555555555555555555500000000000000​00000000000000000000055555555555555555555555555555555500000000000000000000000000​00000000055555555555555555555555555555555500000000000000000000000000000000000555​55555555555555555555555555555500000000000000000000000000000000000555555555555555​55555555555555555500000000000000000000000000000000000555555555555555555555555555​55555500000000000000000000000000000000000555555555555555555555555555555555000000​00000000000000000000000000000555555555555555555555555555555555000000000000000000​00000000000000000555555555555555555555555555555555000000000000000000000000000000​00000555555555555555555555555555555555000000000000000000000000000000000005555555​55555555555555555555555555000000000000000000000000000000000005555555555555555555​55555555555555000000000000000000000000000000000005555555555555555555555555555555​55000000000000000000000000000000000005555555555555555555555555555555550000000000​00000000000000000000000005555555555555555555555555555555550000000000000000000000​00000000000005555555555555555555555555555555550000000000000000000000000000000000​05555555555555555555555555555555550000000000000000000000000000000000055555555555​55555555555555555555550000000000000000000000000000000000055555555555555555555555​55555555550000000000000000000000000000000000055555555555555555555555555555555500​00000000000000000000000000000000055555555555555555555555555555555500000000000000​00000000000000000000055555555555555555555555555555555500000000000000000000000000​00000000055555555555555555555555555555555500000000000000000000000000000000000555​55555555555555555555555555555500000000000000000000000000000000000555555555555555​55555555555555555500000000000000000000000000000000000555555555555555555555555555​55555500000000000000000000000000000000000555555555555555555555555555555555000000​00000000000000000000000000000555555555555555555555555555555555000000000000000000​00000000000000000555555555555555555555555555555555000000000000000000000000000000​00000    GrideBackgroundG « PixelBackgroundG NEG »    CircleBackgrondG GROB 131 80  6BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B5094294294294294294294294294294294209429429​4294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B509429429429429429429​42942942942942094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6​B50942942942942942942942942942942942094294294294294294294294294294294206BD6BD6BD​6BD6BD6BD6BD6BD6BD6BD6B509429429429429429429429429429429420942942942942942942942​94294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B50942942942942942942942942942942942​094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B5094294294294​2942942942942942942942094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6B​D6BD6BD6B50942942942942942942942942942942942094294294294294294294294294294294206​BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B5094294294294294294294294294294294209429429429429​4294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B509429429429429429429429429​42942942094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B50942​942942942942942942942942942942094294294294294294294294294294294206BD6BD6BD6BD6BD​6BD6BD6BD6BD6BD6B509429429429429429429429429429429420942942942942942942942942942​94294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B50942942942942942942942942942942942094294​294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B5094294294294294294​2942942942942942094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6B​D6B50942942942942942942942942942942942094294294294294294294294294294294206BD6BD6​BD6BD6BD6BD6BD6BD6BD6BD6B5094294294294294294294294294294294209429429429429429429​4294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B509429429429429429429429429429429​42094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B50942942942​942942942942942942942942094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD​6BD6BD6BD6B509429429429429429429429429429429420942942942942942942942942942942942​06BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B50942942942942942942942942942942942094294294294​294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B5094294294294294294294294​2942942942094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B509​42942942942942942942942942942942094294294294294294294294294294294206BD6BD6BD6BD6​BD6BD6BD6BD6BD6BD6B5094294294294294294294294294294294209429429429429429429429429​4294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B509429429429429429429429429429429420942​94294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B50942942942942942​942942942942942942094294294294294294294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD​6BD6B50942942942942942942942942942942942094294294294294294294294294294294206BD6B​D6BD6BD6BD6BD6BD6BD6BD6BD6B50942942942942942942942942942942942094294294294294294​294294294294294206BD6BD6BD6BD6BD6BD6BD6BD6BD6BD6B5094294294294294294294294294294​29420    Circle2BackgrndG « CircleBackgrondG NEG »    FloorBackgroundG GROB 131 80 401409402080421401409402080421401029028028420104029028028420104029000209401​40142180020940140142180020004001842802802904001842802802904000940208042140140940​20804214014094080284201040290280284201040290280204014014218002094014014218002094​01018428028029040018428028029040018402080421401409402080421401409402000420104029​02802842010402902802842000142180020940140142180020940140140802802904001842802802​90400184280204214014094020804214014094020804210040290280284201040290280284201040​01800209401401421800209401401421800029040018428028029040018428028021001409402080​42140140940208042140140902802842010402902802842010402902020940140142180020940140​14218002010400184280280290400184280280290400094020804214014094020804214014094000​28420104029028028420104029028020001401421800209401401421800209401408428028029040​01842802802904001842008042140140940208042140140940208002010402902802842010402902​80284201014218002094014014218002094014014200280290400184280280290400184280200214​01409402080421401409402080421404029028028420104029028028420104020800209401401421​80020940140142180002904001842802802904001842802802900140940208042140140940208042​14014000280284201040290280284201040290200094014014218002094014014218002094000184​28028029040018428028029040010402080421401409402080421401409402028420104029028028​42010402902802840140142180020940140142180020940140042802802904001842802802904001​84200804214014094020804214014094020804001040290280284201040290280284201004218002​09401401421800209401401421028029040018428028029040018428028001401409402080421401​40940208042140002902802842010402902802842010402100020940140142180020940140142180​02090400184280280290400184280280290404094020804214014094020804214014010280284201​04029028028420104029028009401401421800209401401421800209400018428028029040018428​02802904001000208042140140940208042140140940200842010402902802842010402902802842​04014218002094014014218002094014010280280290400184280280290400184280004214014094​02080421401409402080420104029028028420104029028028420104021800209401401421800209​40140142100802904001842802802904001842802802040140940208042140140940208042140102​90280284201040290280284201040290002094014014218002094014014218002000400184280280​29040018428028029040009402080421401409402080421401409408028420104029028028420104​02902802040140142180020940140142180020940101842802802904001842802802904001840208​04214014094020804214014094020004201040290280284201040290280284200014218002094014​01421800209401401408028029040018428028029040018428020421401409402080421401409402​08042100402902802842010402902802842010400180020940140142180020940140142180002904​00184280280290400184280280210014094020804214014094020804214014090280284201040290​28028420104029020209401401421800209401401421800201040018428028029040018428028029​04000    putGraphicObjCoo00    «        PICT { # 0d # 0d } ROT REPL    »    holdDisplay    «        { # 0d # 0d } PVIEW 7 FREEZE    »  posBackground  1END
03-17-2017, 11:33 AM
Post: #8
 Onieh Junior Member Posts: 33 Joined: Mar 2017
RE: How make a green Background by a Choose Funktion
okay, what is with this Solution.
But i don't why the Program leave the Repeat-Until Funktion when i press 111... or 222... or 333...?

EXPORT NewInput()
BEGIN

RECT_P(0,0,320,220,RGB(0,255,0));

TEXTOUT_P("F L U G N A V I G A T I O N",31,20,7,RGB(255,255,255));

TEXTOUT_P("Press 1 für: ICAO",70,70);
TEXTOUT_P("Press 2 für: POSITION",70,100);
TEXTOUT_P("Press 3 für: FLUGSTRECKE",70,130);
TEXTOUT_P("Press Del für Abbruch",70,160);

REPEAT
K:=GETKEY;
IF K==42 THEN PRINT("ICAO"); END; //KEY Test
IF K==43 THEN PRINT("POSITION"); END; //KEY TEST
IF K==44 THEN PRINT("FLUGSTRECKE"); END; //KEY TEST
UNTIL K==19;

STARTVIEW(-1);
END;
 « Next Oldest | Next Newest »

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