1

ポイント A をポイント B から遠ざけるために、1 秒あたり 20 回メソッドを呼び出そうとしています。メソッドは次の変数を使用する必要があります。

  • ポイント A (X)
  • ポイント A (Y)
  • ポイント B (X)
  • ポイント B (Y)
  • 力

点 A と点 B が近づくほど、互いに遠ざかる速度が速くなります。強度変数は、ティックごとの距離と、ポイント A が押されなくなるポイント間の距離を制御します...

基本的に、カーソルを指定されたポイントからゆっくりと押し出そうとしています。

これを実装する方法はありますか？

スケッチ

これは私の試みですが、残念ながら距離が長くなるとカーソルの動きが速くなります...

    'PosX and PosY are the percentage of the screen width/height

    'Calculate the real position
    Dim ScreenPosX As Integer = Screen.PrimaryScreen.WorkingArea.Width * (PosX / 100)
    Dim ScreenPosY As Integer = Screen.PrimaryScreen.WorkingArea.Height * (PosY / 100)

    Dim PointOffsetX As Integer = Cursor.Position.X - ScreenPosX
    Dim PointOffsetY As Integer = Cursor.Position.Y - ScreenPosY

    If PointOffsetX > -Strength And PointOffsetX < Strength Then
        Dim StrengthFactorX As Integer = Strength - ScreenOffsetX
        Dim StrengthFactorY As Integer = Strength - ScreenOffsetY

        Cursor.Position = New Point(Cursor.Position.X + StrengthFactorX, Cursor.Position.Y + StrengthFactorY)
        'Would be the same for Y. Obviously doesn't work though.
    End If
4

1 に答える 1

1

このコードは私にとってはうまくいきます。ボタンとタイマー ontick イベントを使用しました。定数を調整できます。

Dim currentObjectAccelerationX As Decimal = 0
Dim currentObjectAccelerationY As Decimal = 0

Dim currentObjectPointX As Decimal
Dim currentObjectPointY As Decimal

Const maxDistance As Integer = 50
Const accelerationDenominator As Integer = 50
Const deceleration As Decimal = 0.2

Public Sub New()

    ' This call is required by the designer.
    InitializeComponent()

    ' Add any initialization after the InitializeComponent() call.
    currentObjectPointX = Button1.Location.X
    currentObjectPointY = Button1.Location.Y

    Timer1.Start()
End Sub

Private Sub onTick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    Dim MousePointX As Integer = Me.PointToClient(Cursor.Position).X
    Dim MousePointY As Integer = Me.PointToClient(Cursor.Position).Y

    Dim OffsetX As Decimal = currentObjectPointX - MousePointX
    Dim OffsetY As Decimal = currentObjectPointY - MousePointY



    If Math.Abs(OffsetX) < maxDistance AndAlso Math.Abs(OffsetY) < maxDistance Then


        Dim accelerationX As Decimal = 0
        Dim accelerationY As Decimal = 0

        If OffsetX > 0 Then
            accelerationX = 1 + (maxDistance - OffsetX) / accelerationDenominator
        Else
            accelerationX = -1 + (-maxDistance - OffsetX) / accelerationDenominator
        End If

        If OffsetY > 0 Then
            accelerationY = 1 + (maxDistance - OffsetY) / accelerationDenominator
        Else
            accelerationY = -1 + (-maxDistance - OffsetY) / accelerationDenominator
        End If


        currentObjectAccelerationX += accelerationX
        currentObjectAccelerationY += accelerationY
    End If

    currentObjectPointX += currentObjectAccelerationX
    currentObjectPointY += currentObjectAccelerationY

    If (Math.Abs(currentObjectAccelerationX) <= deceleration) Then
        currentObjectAccelerationX = 0
    ElseIf (currentObjectAccelerationX > deceleration) Then
        currentObjectAccelerationX -= deceleration
    ElseIf (currentObjectAccelerationX < deceleration) Then
        currentObjectAccelerationX += deceleration
    End If

    If (Math.Abs(currentObjectAccelerationY) <= deceleration) Then
        currentObjectAccelerationY = 0
    ElseIf (currentObjectAccelerationY > deceleration) Then
        currentObjectAccelerationY -= deceleration
    ElseIf (currentObjectAccelerationY < deceleration) Then
        currentObjectAccelerationY += deceleration
    End If

    Button1.Location = New Point(currentObjectPointX, currentObjectPointY)
End Sub
于 2013-10-21T06:04:26.987 に答える