Mouse and box don't move together

Author

Message

Jac

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location:

Posted: 6th Aug 2004 03:01

Link

Hi.

I was running through Joseph Thomsons tutorial and was working on mouse input. The code below shows what I've got so far but when I run it the mouse and the box don't move around at the same pace. the mouse is much faster than thte box

Is there any simple way of solving this,

+ Code Snippet


Set window off

`co-ordinates for box
x1 =100
y1 =100
x2 =200
y2 =200

do
	sync
	`cls the screen so the the box is not continualy put on screen
	cls

	`set box
	box x1,y1,x2,y2	
	
	`find out mouse position
	mousePosX=mousex()
	mousePosY=mousey()

	`find out if mouse is within the box and if lmb is clicked
	if mousePosX>x1 and mousePosX<x2 and mousePosY>y1 and mousePosY<y2 and mouseclick()=1
		x1 = x1 + moveX
		x2 = x2 + moveX
		y1 = y1 + moveY
		y2 = y2 + moveY 
	endif	
	
	`Get mouse movement
	moveX=mousemovex()
	moveY=mousemovey()
loop

Thanks in advance.

Back to top

Profile PM

Calculus

20

Years of Service

User Offline

Joined: 22nd Feb 2004

Location: Earth

Posted: 6th Aug 2004 07:16

Link

If you add an extra variable called clicked then the mouse will not drop the box unless you release the left mouse button again. Hope this helps!

+ Code Snippet

sync on
sync rate 0
cls

x1=100
y1=100
x2=200
y2=200

do

	cls

	mousePosX=mousex()
	mousePosY=mousey()

	moveX=mousemovex()
	moveY=mousemovey()

	`find out if mouse is within the box and if lmb is clicked
	if mousePosX>x1 and mousePosX<x2 and mousePosY>y1 and mousePosY<y2 and mouseclick()=1
		clicked=1
	endif	

	if clicked=1 and mouseclick()=1
		x1 = moveX+x1
		x2 = moveX+x2
		y1 = moveY+y1
		y2 = moveY+y2
	else
		clicked=0
	endif
	
	box x1,y1,x2,y2

sync
loop

Kind Regards
Calculus

Back to top

Profile PM

Jac

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location:

Posted: 6th Aug 2004 18:34

Link

Thanks Calculus. This makes the code easyer to handle. though the mouse still seems to move faster than the box.

If I click on the box and move the mouse left to right by the time I have moved to the far right or far left of the screen the mouse cursor has moved so fast it is now out of te box.

is there anything I can do to stop this?

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Aug 2004 19:19 Edited at: 6th Aug 2004 19:21

Link

I believe you'll find that's from the dual reading of the mouse position and then the mouse movement values, over and over as the loop proceeds and takes time away. Ie; if mouse is x=9 and move to x=10, then mousemovex() returns a 1. Then the loop "hops" now & then over the next pixel from say 10 to 11, as DB is computing the other values and pasting the box, while the mouse is still moving. Then you get another read, another movement change, another hop, etc.

I personally have had trouble using the mousemove commands myself so am not certain how to advise you right now, but I'll be watching!

S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Jac

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location:

Posted: 9th Aug 2004 20:46

Link

Now I understand. Looks like it needs sume sort of work around.

Could this be considered a bug. clicking on things and moving them round could be very useful in some sorts of games. I notice this problem doesn't arise with the keyboard as there is a buffer that remembers everything. Can not something similar be created for the mouse.

If I work out a workaround I'll post it up but not untill next week as I'm away for a while.

If anyone can give guidence on the easiest way to aproach this problem it would be much appreciated.

JC.

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 9th Aug 2004 22:31

Link

You should use either the mousex/mousey, or the mousemovex/mousemovey but not both as they don't always give the same measurements.

You also have a slight problem with the sequence that you are processing in - you always display what happened in the last frame, not the current frame.

Try this code instead

+ Code Snippet

sync on
sync rate 0
Set window off

x1 =100
y1 =100
x2 =200
y2 =200

clicked=0
offsetx=0
offsety=0

do
	cls

	mousePosX=mousex()
	mousePosY=mousey()

	if mousePosX>x1 and mousePosX<x2 and mousePosY>y1 and mousePosY<y2 and mouseclick()=1
                if clicked = 0
                        clicked=1
                        offsetx = mousePosX - x1
                        offsety = mousePosY - y1
                endif
        else
               clicked=0
	endif	
	
        if clicked = 1
                x1 = mousePosX-offsetx
                y1 = mousePosY-offsety
                x2 = x1+100
                y2 = y1+100
        endif

	box x1,y1,x2,y2	

	sync
loop

Watch out for typos - I manually copied this across.

*** Coming soon - Network Plug-in - Check my site for info ***
For free Plug-ins, source and the Interface library for Visual C++ 6, .NET and now for Dev-C++ http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Jac

21

Years of Service

User Offline

Joined: 9th Nov 2003

Location:

Posted: 13th Aug 2004 03:44

Link

thanks IanM.

That works great. I even sat down and worked out what happening with your code and learned a couple of things.

Much Appreciated.

JC

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 13th Aug 2004 05:30

Link

You're welcome

*** Coming soon - Network Plug-in - Check my site for info ***
For free Plug-ins, source and the Interface library for Visual C++ 6, .NET and now for Dev-C++ http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Mouse and box don't move together