+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: HP Prime (/forum-5.html)
+--- Thread: DRAWMENU function. (/thread-633.html)
DRAWMENU function. - veeblefester - 02-07-2014 11:10 AM
How can the menu buttons be used once DRAWMENU has assigned a string to them?
Can one call a program by pecking a menu button?
Can one assign some action to a button?
Thanks in advance for any help.
RE: DRAWMENU function. - Marcus von Cube - 02-09-2014 02:49 PM
Here is on old thread about finding out about the menu key selected by the user. It's essentially a matter of interpreting the result of MOUSE().
RE: DRAWMENU function. - dg1969 - 02-09-2014 06:31 PM
I hope that the future firmware add the ability to use soft menu outside a program as user-key to launch build-in or user function and program...
RE: DRAWMENU function. - Giancarlo - 02-11-2014 07:14 AM
Hello,
i was just trying to write some code around the MOUSE and DRAWMENU commands but i have an errore i don't find. it seems my code is not able to cope with the menu area.
the code is based on Les and Cirille codes. Why I am not able to detect the menu X position in order to understand which menu was pushed/clicked?
Code:
EXPORT Prova_mn()
BEGIN
while 1 do
RECT();
DRAWMENU("uno","due","tre","quatro","cinco","SEI");
local l:=WAIT(-1), m; // wait for a user input
IF TYPE(l)=6 and l(1)=#0 THEN // verify that we have a list corresponding to a mouse down...
local mx:=B→R(l(2)), my:=B→R(l(3)); // x and y for the click zone
if my>220 then // in the menu zone
CASE
IF 0 <= mx <= 51 THEN m:= 1; END;
IF 53 <= mx <= 104 THEN m:= 2; END;
IF 106 <= mx <= 157 THEN m:= 3; END;
IF 159 <= mx <= 210 THEN m:= 4; END;
IF 212 <= mx <= 263 THEN m:= 5; END;
IF 265 <= mx <= 319 THEN m:= 6; END;
DEFAULT m:=-2; // if it's right in between menu options
END; // end_of_case
END; // end_of_if_my>220
RETURN m;
END;
// end_of_if_type
END;
// end_of_while
END; // end_of everythingGiancarlo
RE: DRAWMENU function. - Damien - 02-11-2014 02:50 PM
Hi, Giancarlo
This code based on yours should work:
Code:
EXPORT Prova_mn()
BEGIN
RECT_P();
DRAWMENU("uno","due","tre","quatro","cinco","SEI");
local mx,my,m,l;
WHILE 1 do
l:=WAIT(-1);// wait for a user input
IF TYPE(l)==6 THEN // verify that we have a list corresponding to a mouse down...
IF l(1)>0 THEN // is the list empty or not
mx:=B→R(l(2));my:=B→R(l(3)); // x and y for the click zone
IF my>220 then // in the menu zone
CASE
IF 0 <= mx <= 51 THEN m:= 1; END;
IF 53 <= mx <= 104 THEN m:= 2; END;
IF 106 <= mx <= 157 THEN m:= 3; END;
IF 159 <= mx <= 210 THEN m:= 4; END;
IF 212 <= mx <= 263 THEN m:= 5; END;
IF 265 <= mx <= 319 THEN m:= 6; END;
DEFAULT m:=-2; // if it's right in between menu options
END; // end_of_case
END; // end_of_if_my>220
RETURN m;
END;
END;
// end_of_if_type
END;
// end_of_while
END; // end_of everythingRegards.
Damien.
RE: DRAWMENU function. - Han - 02-11-2014 06:17 PM
(02-11-2014 07:14 AM)Giancarlo Wrote:Code:
local l:=WAIT(-1), m; // wait for a user input
IF TYPE(l)=6 and l(1)=#0 THEN // verify that we have a list corresponding to a
Here is where you are guaranteed to run into issues. You cannot use an AND statement because the local variable l may OR MAY NOT be a list. If the WAIT(-1) command returns a mouse event, l is a list, and the AND statement works. But if WAIT(-1) times out or is returns a keyboard even, then l is a numeric value (not a list) and l(1) produces an error.
Separate your code into two blocks: one that handles mouse events and the other to handle keyboard events. I recommend:
Code:
local l:=WAIT(-1);
IF TYPE(l)==6 THEN doMouseEvent(); ELSE doKeyboardEvent(); END;RE: DRAWMENU function. - Giancarlo - 02-11-2014 08:40 PM
Thanks guys; it works,
bye
Giancarlo