Visual Basic - 球跳游戏

Question

我想制作一个带球跳的迷你游戏，基本上游戏很简单，有一个球，球需要跳过一些正在关闭的酒吧。我已经完成了跳转的代码。

Private Sub Timer1_Tick() Handles Timer1.Tick

Static intOldTop As Integer
Static intCounter As Integer
Dim intStep As Integer = 10

If intCounter = 0 Then intOldTop = PictureBox1.Top

intCounter += 1

Select Case intCounter
    Case 1 To 20
        PictureBox1.Top -= intStep
    Case 20 To 40
        PictureBox1.Top += intStep
    Case Else
        PictureBox1.Top = intOldTop
        intCounter = 0
        Timer1.Dispose()
End Select

End Sub

Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As     System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
    If e.KeyChar() = " " Then
        Timer1.Interval = 10
        Timer1.Enabled = True
    End If
End Sub

我没有想法如何使条形显示/滚动并使球与条形图相互作用。

寻找Jelly Jump游戏。

Answer 1

我已经使用ActionScript 3.0做了类似的事情，并且使用AS3.0听起来更容易。我认为你应该试一试，而不是使用VB。