Visual BasicでPictureBoxジャンプを作成するにはどうすればよいですか？

Question

私はアニメのキャラクターが走っている学校の課題を持っています。私は彼がジャンプすることができるようにする必要があり、彼はボタンを押した後にジャンプを開始した場所に戻ります。キャラクターをアニメートするために画像を切り替えるタイマーがあります。また、キャラクターをスピードアップ、スローダウン、開始、停止するボタンもあります。私はタイマーをボタンプレスに統合しなければならないと思うので、私は問題を抱えています。ジャンプボタンがあるコードの下部にスペースがあります。私は彼を上げることができますが、彼を元に戻す方法を理解することはできません。

ここに私のコードは、これまでのところです：

Private Sub tmrSpeed_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrSpeed.Tick 

    Static Dim intCounter As Integer 

    picRunner.Location = New Point(picRunner.Location.X + 15, picRunner.Location.Y) 

    If picRunner.Location.X >= 523 Then 
     picRunner.Location = New Point(-25, picRunner.Location.Y) 
    End If 

    Select Case intCounter 
     Case 0 
      Me.picRunner.Image = My.Resources.r0 
     Case 1 
      Me.picRunner.Image = My.Resources.r1 
     Case 2 
      Me.picRunner.Image = My.Resources.r2 
     Case 3 
      Me.picRunner.Image = My.Resources.r3 
     Case 4 
      Me.picRunner.Image = My.Resources.r4 
     Case 5 
      Me.picRunner.Image = My.Resources.r5 
     Case 6 
      Me.picRunner.Image = My.Resources.r6 
     Case 7 
      Me.picRunner.Image = My.Resources.r7 
     Case 8 
      Me.picRunner.Image = My.Resources.r8 
     Case 9 
      Me.picRunner.Image = My.Resources.r9 
    End Select 

    intCounter += 1 

    If intCounter >= 10 Then 
     intCounter = 0 
    End If 


    End If 

End Sub 

Private Sub btnFaster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFaster.Click 

    Try 
     Me.tmrSpeed.Interval = Me.tmrSpeed.Interval - 10 
    Catch x As Exception 
     MessageBox.Show("He can't run any faster!") 
    End Try 

End Sub 

Private Sub btnSlower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSlower.Click 

    Me.tmrSpeed.Interval = Me.tmrSpeed.Interval + 10 

End Sub 

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click 

    Me.tmrSpeed.Stop() 

End Sub 

Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click 

    Me.tmrSpeed.Start() 

End Sub 

Private Sub btnJump_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJump.Click 


End Sub 
End Class 

は、どのように私はジャンプを実装するに行きますか？私の先生は、ピクチャボックスがいつホットになるのかを確認するためにループを使わなければならないと言っていますが、これをタイマーでどのように使うのか分かりません。どんな助けもありがとう。

Answer 1

力を計算するループを設定します。

また、その力に対する減衰率の変数を作成します。

ループは、現在のy位置からそれを減算して適用します。 そして力を適用した後に力を減じて力を減少させ、次回のループで力が弱くなり、減速を開始しますダウン。

には、オブジェクトに一定のプルを作成するために重力と呼ばれるグローバル変数があります。上向きの力が減衰すると、下に戻ります。

あなたが分かっている必要があるのは、これが割り当てであれば、私があなたに答えを与えることなく説明したことをするロジックを開発することは非常に重要です。コードの理解を深めることができます。