Solved

reduce movement speed of moving picturebox

Posted on 2011-09-20
3
242 Views
Last Modified: 2012-05-12
So I'm actually stuck at how to reduce movement speed (of my minigolf game)
To recap, I have a small picturebox and a timer set to 20ms.

So on mouseUp I have following code:
xVel = (e.X - gameBall.Location.X) * speed
            yVel = (e.Y - gameBall.Location.Y) * speed
            gameTimer.Enabled = True

Open in new window


Now, in my timerTick I have the code to check for wall collision and this:
If speed > 0 Then
            speed -= 0.01
        Else
            gameTimer.Enabled = False
        End If

Open in new window


Now that I think about it, the xVel and yVel are already multiplied by the speed (usually around 0,07). This might seem like a simple answer to you, but my brains wont function anymore :D
0
Comment
Question by:Mutsop
  • 2
3 Comments
 
LVL 8

Expert Comment

by:gena17
ID: 36567385
I believe you want to reduce movement speed so that each gets 0 at the end.
That means you first need to calculate the distance that your picture box will travel.
I think the speed change should NOT be linear, but a some function speed=f(distance). And perhaps the function should be logarithmic, since it gives the best view of reducing speed, IMO.
Something like ln(D-d), where D is the total distance, and d is the current distance traveled.
0
 
LVL 3

Author Comment

by:Mutsop
ID: 36567452
How to get your total distance if you just have the speed?
Speed is actually calculated like so

Private Sub strengthTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles strengthTimer.Tick
        If strengthBar.Value = 100 Then
            strengthBar.Value = 0
        End If
        strengthBar.PerformStep()
    End Sub

Private Sub Main_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        strengthTimer.Enabled = False
        'Speed value
        speed = strengthBar.Value / 500
        If e.Button = Windows.Forms.MouseButtons.Left Then
            ControlPaint.DrawReversibleLine(ptStart, ptEnd, Color.Black)
            Cursor.Clip = Nothing
            xVel = (e.X - gameBall.Location.X) * speed
            yVel = (e.Y - gameBall.Location.Y) * speed
            gameTimer.Enabled = True
        End If
    End Sub

Open in new window


The strengthTimer_Tick is activated upon pressing down the left mouse button.
0
 
LVL 8

Accepted Solution

by:
gena17 earned 500 total points
ID: 36580301
The total distance should be calculated in advance at the moment when user clicks on Desired Location.
The total distance is the distance between Desired Location and Current Location. It is calculated only once and has nothing to do with speed.

Speed is calculated dynamically on every tick of the timer, based on Total Distance and Current Distance.
0

Featured Post

DevOps Toolchain Recommendations

Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
Real-time is more about the business, not the technology. In day-to-day life, to make real-time decisions like buying or investing, business needs the latest information(e.g. Gold Rate/Stock Rate). Unlike traditional days, you need not wait for a fe…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used.

791 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question