QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: NOVARSEG on January 10, 2021, 12:23:00 am

Title: get mouse x, y at START of mouse movement
Post by: NOVARSEG on January 10, 2021, 12:23:00 am

 It would be nice if mouse x, y was returned  at the start of mouse movement - not after the mouse stops moving.

some example code which clears the mouse buffer but wastes time in doing so.
****
DO WHILE _MOUSEINPUT: LOOP ' Clear mouse buffer.
 
    DO
 
        x0 = _MOUSEX
        y0 = _MOUSEY

loop

Title: Re: get mouse x, y at START of mouse movement
Post by: SMcNeill on January 10, 2021, 12:29:56 am

Are you looking for something like this, with the drag feature?  https://www.qb64.org/forum/index.php?topic=3380.0

Title: Re: get mouse x, y at START of mouse movement
Post by: Pete on January 10, 2021, 08:59:05 am

To echo what Steve said, are you needing any help with using the existing mouse statements?

Example of button and drag. Code allows a click to be registered (high pitch sound) and not performed again until the button is released (lower pitched sound). When the button is held down and the mouse is moved (drag), it will draw asterisk characters across the screen until the movement is stopped or the button is released.

Code: QB64: [Select]

1. LOCATE , , 1, 7, 30
2. DO
3.     IF INKEY$ = CHR$(27) THEN SYSTEM
4.     WHILE _MOUSEINPUT: WEND
5.     mx% = _MOUSEX
6.     my% = _MOUSEY
7.     mb.l% = _MOUSEBUTTON(1)
8.     IF mb.l% THEN
9.         IF NOT lbuttondown% THEN
10.             lbuttondown% = -1
11.             SOUND 1000, .1
12.         END IF
13.     ELSE
14.         IF lbuttondown% THEN
15.             lbuttondown% = 0
16.             SOUND 500, .1
17.         END IF
18.     END IF
19.     IF lbuttondown% THEN
20.         IF oldmx% AND oldmx% <> mx% OR oldmy% AND oldmy% <> my% THEN
21.             PRINT "*";: LOCATE , POS(0) - 1
22.         END IF
23.     END IF
24.     IF my% THEN LOCATE my%, mx%: oldmx% = mx%: oldmy% = my%
25. LOOP
26.  

Pete

Text Only | Text with Attachments