+- 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: CLICK LONG (/thread-4919.html)
CLICK LONG - Tyann - 10-11-2015 11:50 AM
BONJOUR
Depuis le début, je n'arrive pas à obtenir le click long avec MOUSE.
Le code suivant ne s'arrête jamais sauf avec ON :
HELLO
Since the beginning , I did not get along with click MOUSE.
The following code never stops except with ON:
Code:
EXPORT TEST()
BEGIN
REPEAT
UNTIL MOUSE(4)==5;
END;RE: CLICK LONG - cyrille de brébisson - 10-12-2015 07:24 AM
Hello,
MOUSE reports the 'instantaneous', state of the mouse (like KEYISDOWN), as a result, it is very unlikely that you will ever get a transient event such as (LONG) CLICK.
To get these event, use WAIT(-1)
EXPORT TEST()
BEGIN
L1:={};
REPEAT
local s:= WAIT(-1);
L1(0):= s;
rect_p;
TEXTOUT_P(s, 0, 0);
UNTIL 0;
END;
Will return an event of type 7 (long click)
Cyrille
RE: CLICK LONG - Tyann - 10-12-2015 09:30 AM
Bonjour
Je viens de tester, cela fonctionne bien, je n'utilise pas
beaucoup WAIT(-1), je préfère la syntaxe MOUSE(x) plutôt que
d'utiliser des listes, mais je vais me forcer un peu.
Merci Cyrille pour l'information.
Hello
I just tested , it works well , I do not use
lot WAIT ( -1) , I prefer the syntax MOUSE ( x ) rather than
to use lists , but I'll force myself a little.
Cyrille thank you for the information.
RE: CLICK LONG - cyrille de brébisson - 10-12-2015 03:07 PM
Hello,
The advantage of WAIT(-1) is that the device goes into lower power mode while waiting, so there is less battery consumption.
Cyrille
RE: CLICK LONG - Divasson - 10-15-2015 05:40 PM
It is nice to see two French people making the effort to communicate in English for the benefit of us all!
(Malgré que je suis espagnol, j'ai beaucoup travaillé en France et j'ai toujours un petit appartement au 66 pour les week-ends)
RE: CLICK LONG - Tyann - 10-20-2015 09:56 PM
Bonjour
Après quelques essais, voici une boucle qui détecte : un click simple, un click long ou un déplacement.
X et Y = coordonnées de départ
V et W = coordonnées de fin
et E le type d'événement.
Hello
After some tests , here is a loop that senses : a simple click , long click or displacement .
X and Y = starting coordinates
V and W = End coordinates
E the type of event .
Code:
EXPORT TEST()
BEGIN
A:=1;E:=0;
WHILE A DO
L1:=WAIT(-1);
CASE
IF L1(1)==0 THEN X:=L1(2); Y:=L1(3); END;
IF L1(1)==1 THEN V:=L1(2); W:=L1(3); E:=1; END;
IF L1(1)==2 AND E==1 OR L1(1)==3 OR L1(1)==7 THEN
A:=0; E:=L1(1);
END;
END;
END;
{X,Y,V,W,E};
END;Cela vous semble t-il correct ?
Des remarques ?
Merci d'avance.
This will seem right?
Remarks ?
Thank you in advance.
RE: CLICK LONG - cyrille de brébisson - 10-21-2015 06:27 AM
Hello,
I do not think that L1:= Wait(-1); is a good idea.
The reason for it is that Wait will also return on a key press, which is a number in the 1 to 50 range. so you will not be able to detect if it was a mouse event or a key press.
I suggest using a local variable and testing the type
Local Event= Wait(-1);
if type(Event)=6 and size(Event)>=1then
case
if Event(1).....
end;
end;
Cyrille
RE: CLICK LONG - Tyann - 10-21-2015 11:23 AM
Bonjour
C'est une excellente remarque.
Merci Cyrille.
Hello
That's an excellent point .
Cyrille thank you .