Re: Rat Problem

[Ashish]

The following seems to work -

Code: QB64: [Select]

1. CONST True = -1
2. CONST False = 4 'try different value for false as all variables have 0 as their initial value
3.  
4. TYPE newMouse
5.     oldX AS INTEGER
6.     oldY AS INTEGER
7.  
8.     newX AS INTEGER
9.     newY AS INTEGER
10.  
11.     clicked AS INTEGER
12.     dragged AS INTEGER
13.     pressed AS INTEGER
14. END TYPE
15.  
16. DIM SHARED rat AS newMouse
17.  
18. 'rat.clicked = False
19. 'rat.dragged = False
20.  
21. DIM getInput AS STRING
22.  
23. WHILE _MOUSEINPUT: WEND
24.  
25. WHILE NOT Quit
26.     _LIMIT 60
27.  
28.     getInput = getRat
29.     IF getInput <> "{Nil" THEN LOCATE 12, 2: PRINT getInput
30.  
31.     _DISPLAY
32. WEND
33.  
34. FUNCTION getRat$
35.     DIM temp AS STRING
36.     temp = "{Nil"
37.  
38.     WHILE _MOUSEINPUT
39.         rat.newX = _MOUSEX
40.         rat.newY = _MOUSEY
41.  
42.         rat.pressed = _MOUSEBUTTON(1)
43.     WEND
44.  
45.     IF rat.pressed THEN
46.         temp = "{Press"
47.         rat.clicked = False
48.  
49.         IF rat.newX <> rat.oldX OR rat.newY <> rat.oldY THEN
50.             temp = "{Drag "
51.             rat.dragged = True
52.         END IF
53.     ELSE
54.         IF rat.clicked = False THEN
55.             temp = "{Click": BEEP
56.             rat.clicked = True
57.             rat.dragged = False
58.         END IF
59.     END IF
60.  
61.     rat.oldX = rat.newX
62.     rat.oldY = rat.newY
63.  
64.     getRat = temp
65. END FUNCTION
66.  
67.  

[SMcNeill]

It beeps because at startup the mouse is both released and not pressed.

IF Rat.pressed THEN....  (rat.pressed = 0 so it’s not — go into the ELSE )

ELSE
    IF rat.clicked = FALSE THEN... (rat.pressed = 0, so we do the stuff here)
         temp = “”: BEEP <— and you beep

  Set a flag to check to see if the mouse has been clicked down at least once before BEEPING for a release.

If rat.pressed THEN
     RatPressedOnce = TRUE
     ‘More stuff
ELSE
    IF rat.clicked = FALSE AND RatPressedOnce = TRUE THEN
         ‘Do stuff
    ENDIF
END IF

[Pete]

Sample mouse code to wait until left mouse button is released before tacking action...

Code: QB64: [Select]

1. DO
2.     CALL mouse(mi%, mx%, my%, lb%)
3.     IF lb% THEN LOCATE 1, 1: PRINT "Left mouse button down...     ": mflag% = -1
4.     WHILE _MOUSEBUTTON(1): CALL mouse(mi%, mx%, my%, lb%): WEND
5.     IF mflag% AND lb% = 0 THEN
6.         LOCATE 1, 1: PRINT "Left mouse button released...     ": mflag% = 0
7.     END IF
8. LOOP
9.  
10. SUB mouse (mi%, mx%, my%, lb%)
11.     mi% = _MOUSEINPUT
12.     mx% = _MOUSEX
13.     my% = _MOUSEY
14.     lb% = _MOUSEBUTTON(1)
15. END SUB

If you don't want a sub...

Code: QB64: [Select]

1. DO
2.     mi% = _MOUSEINPUT: lb% = _MOUSEBUTTON(1)
3.     IF lb% THEN LOCATE 1, 1: PRINT "Left mouse button down...     ": mflag% = -1
4.     WHILE _MOUSEBUTTON(1): mi% = _MOUSEINPUT: lb% = _MOUSEBUTTON(1): WEND
5.     IF mflag% AND lb% = 0 THEN
6.         LOCATE 1, 1: PRINT "Left mouse button released...     ": mflag% = 0
7.     END IF
8. LOOP

It is the ...

WHILE _MOUSEBUTTON(1): mi% = _MOUSEINPUT: lb% = _MOUSEBUTTON(1): WEND

...that waits for the button to be released.

Pete