Speed problems...

[CyberCarsten]

Hey guys!
I'm making a lander game, byt I cant get the speed right when i try to slow the ship down, and when it falls....I have tried looking at the lander game here from VB world, but I couldn't figure it out...

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim Speed As Single
Dim Direction As Integer
 
 
 
Private Sub Timer1_Timer()
 
    If (Picture1.Left > LandingPad.Left - Picture1.Width - Picture1.Height) And ((Picture1.Top _
        > LandingPad.Top - Picture1.Height) And Picture1.Top < Picture1.Top + Picture1.Height) Then
              Timer1.Enabled = False
              If Speed > 1 Then
                Print "Ship crashed!"
            Else
                Print "Ship saved!"
            End If
End If
 
 
If GetAsyncKeyState(vbKeyLeft) Then
    Picture1.Left = Picture1.Left - 20
End If
 
If GetAsyncKeyState(vbKeyRight) Then
    Picture1.Left = Picture1.Left + 20
End If
 
If GetAsyncKeyState(vbKeyUp) Then
  Speed = Speed - 1.5 / 60
  Me.Caption = Speed
    Direction = Direction - 20
    Picture1.Top = Direction
ElseIf Not GetAsyncKeyState(vbKeyUp) Then
 
If Speed >= 15 Then
    Speed = 15
End If
Speed = Speed + 1.5 / 60
Me.Caption = Speed
Direction = Direction + 40
Picture1.Top = Direction
End If
 
End Sub

[Jotaf98]

Post the project in a zip

[CyberCarsten]

The project

[Jotaf98]

Well... sorry, but that's not the way you make a Lander game (this way it's too easy )

It should go like this:
The ship has a vertical and a horizontal speed. Each frame the ship is moved by these 2 speeds. If you press the Up key, the vertical speed is decreased so the ship will move up. If you press the Down key, the vertical speed is increased so the ship will move down. Same way for the Left and Right. The greater the speed, the faster it'll move. And to make it harder, you can have gravity - every frame the vertical speed is increased a bit, so the ship will move down unless it has enough speed (moving up). Get it?

Read the lander game article again, it explains this a bit better than me

[CyberCarsten]

Ok Thanks

[Jotaf98]

You're welcome