2D Sprung

  • VB.NET

Es gibt 27 Antworten in diesem Thema. Der letzte Beitrag () ist von Gelöschter Benutzer.

    Dein Ansatz ist falsch ... falls du ein "Spiel" schreiben willst.

    quick and dirty:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Const besch As Integer = 2 ' Beschleunigung
    4. Private Const stoss As Integer = 4 ' Stossabsorption am Boden
    5. Private gesch As Integer ' aktuelle Fall/Steiggeschwindigkeit
    6. Private WithEvents tm As New Windows.Forms.Timer
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. tm.Interval = 30
    10. tm.Enabled = False
    11. End Sub
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    14. If Not tm.Enabled Then
    15. tm.Enabled = True
    16. gesch = 0
    17. End If
    19. End Sub
    21. Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
    22. Dim ziel As Integer = Button1.Top
    23. gesch += besch
    24. ziel += gesch
    25. If ziel + Button1.Height > Me.ClientRectangle.Height Then
    26. ziel = Me.ClientRectangle.Height - Button1.Height
    27. gesch = 0 - (gesch - stoss)
    28. End If
    29. Button1.Top = ziel
    30. If gesch = 0 AndAlso Button1.Top = (Me.ClientRectangle.Height - Button1.Height) Then
    31. tm.Enabled = False
    32. Debug.Print("done")
    33. End If
    34. End Sub
    35. End Class

    Button1_click schrieb:

    Ich meine z.b. wenn ich die Oben-Taste drücke springt es hoch und fliegt eben wieder runter.

    Dann setze das Object auf den "Boden" und setze die Anfangsgeschwindikgeit auf einen negativen Wert.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Const besch As Integer = 2 ' Beschleunigung
    4. Private Const stoss As Integer = 3 ' Stossabsorption am Boden
    5. Private gesch As Integer ' aktuelle Fall/Steiggeschwindigkeit
    6. Private WithEvents tm As New Windows.Forms.Timer
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. tm.Interval = 30
    10. tm.Enabled = False
    11. Button1.Top = Me.ClientRectangle.Height - Button1.Height
    12. End Sub
    14. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    15. If Not tm.Enabled Then
    16. tm.Enabled = True
    17. gesch = -20
    18. End If
    19. End Sub
    21. Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
    22. Dim ziel As Integer = Button1.Top
    23. gesch += besch
    24. ziel += gesch
    25. If ziel + Button1.Height > Me.ClientRectangle.Height Then
    26. ziel = Me.ClientRectangle.Height - Button1.Height
    27. If Math.Abs(gesch) - stoss < 0 Then
    28. gesch = 0
    29. Else
    30. gesch = 0 - (gesch - stoss)
    31. End If
    32. End If
    33. Button1.Top = ziel
    34. If gesch = 0 AndAlso Button1.Top = (Me.ClientRectangle.Height - Button1.Height) Then
    35. tm.Enabled = False
    36. Debug.Print("done")
    37. End If
    38. End Sub
    39. End Class

    ok also etwa mit:
    KeyDown -> druck = true
    KeyUp -> druck = false
    (egal welche taste...)
    So könnte es gehen oder?
    (Ich versuche einen Code: )

    VB.NET-Quellcode

    1. Dim keyleft As Boolean = False
    2. Private Sub Form1_KeyUp(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Me.KeyUp
    3. If e.KeyData = Keys.Left Then
    4. keyleft = False
    5. End If
    6. End Sub
    8. Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles Me.KeyDown
    9. If e.KeyData = Keys.Left Then
    10. keyleft = True
    11. End If
    12. End Sub



    So etwa?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gelöschter Benutzer“ ()

Facebook