Post Reply 
How make a green Background by a Choose Funktion
03-16-2017, 07:08 PM (This post was last modified: 03-16-2017 08:32 PM by compsystems.)
Post: #7
RE: How make a green Background by a Choose Funktion
PHP Code:
EXPORT popup_problem()
BEGIN
RECT_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()
BEGIN
PRINT();
PRINT(
"INTRO"); WAIT;
CHOOSE(N,"TITLE",{"A","B","C"}); //<-- Problem
PRINT("2"); WAIT;
MSGBOX("TEXT"); //<-- Problem 
PRINT("3"); WAIT;
DRAWMENU("MENU1","","MENU2");  //<-- ok
WAIT;
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)
[Image: 9UwPnZIKSn.gif]


An example, where CHOOSE DBOX (HP-50) is shown popup
PHP Code:
%%HPT(0)A(D)F(.);
Authorcompsystems
Version1.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
  1

END 
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: How make a green Background by a Choose Funktion - compsystems - 03-16-2017 07:08 PM



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