Kollision von 2 Pictureboxen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Lukas97.

    Kollision von 2 Pictureboxen

    Hallo,



    ich arbeite derzeit an einem kleinen 2D Game. Man kann bisjetzt nur rumlaufen. Wie mache ich das nun, dass ich nicht über eine andere Picturebox laufen kann? Ich habe das mal angehangen, spielt des mal, dann seht ihr was ich meine. Ich weiß nicht wie ich das beschreiben soll Oo.
    Dateien

    • GAME.7z

      (169,56 kB, 139 mal heruntergeladen, zuletzt: )

    Also das mit dem Laden-Bildschirm ist wohl ein schlechter Scherz oder? Wegen Dir kam mir grade der Kaffee wieder aus der Nase, weil ich so lachen musst. Echt ey, sorry. Warum was laden, wenns gar nix zu laden gibt. Ich glaub, meine U-Hose hat auch nen gelben Fleck davongetragen. Alles nur wegen Dir, rofl.

    Zum Thema: Kollisionen kannst Du so abfragen, wenn mich nicht alles täuscht.

    VB.NET-Quellcode

    1. If Me.PictureBox1.ClientRectangle.IntersectsWith(PictureBox10.ClientRectangle) Then
    2. End If


    Musst eben bei jeder Bewegung abfragen, ob der Player mit was kollidiert. Gar nicht so schwer. Im Code hab ich irgendwelche PBs verwendet. Die richtigen musst schon selber suchen.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    OK, soweit hatte ich das auch mal. Das mit dem Laden, xD, ja da bin ich noch am rumprobieren.

    Wie mache ich nun, wenn die PB's kollidieren, dass sich die "Kuh" nichtmehr bewegt, in die Richtung, in der das PB ist?

    Gibt viele Wege,
    musst dich entscheiden in welchem Zusammenhang du etwas benutzen kannst.

    Ich hab da jetzt z.B. einen Timer im Kopf, der überprüft, ob die Kuh mit etwas kollidiert,..

    Allerdings hab ich davon keine Ahnung und das soll nur eine "Idee" sein. Wenn es was anzuprangern gibt, bitte sagen :D

    Grüße Drahuverar
    Option Strict On!

    Ich hab dir mal deinen Code so erweitert das du zumindes nicht mehr nach links
    in eine andere PictureBox reinsteuern kannst. Nach oben, unten und rechts
    müsstest du jetzt selbst hinbekommen.

    VB.NET-Quellcode

    1. Public Class Game
    3. Dim PB_Liste As List(Of Object) = New List(Of Object)
    4. Dim crash As Boolean
    5. Dim PX As Integer
    6. Dim PY As Integer
    8. Private Sub Game_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. crash = False
    10. For Each element As Control In Me.Controls
    11. If TypeOf element Is PictureBox Then
    12. If Not element.Name = "PictureBox22" Then
    13. PB_Liste.Add(element)
    14. End If
    15. End If
    16. Next
    17. End Sub
    19. Private Sub FormKey(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    20. If e.KeyCode = Keys.Up Then
    21. PictureBox22.Location = New Point(PictureBox22.Location.X, PictureBox22.Location.Y - 10)
    22. ElseIf e.KeyCode = Keys.Down Then
    23. PictureBox22.Location = New Point(PictureBox22.Location.X, PictureBox22.Location.Y + 10)
    24. ElseIf e.KeyCode = Keys.Right Then
    25. PictureBox22.Location = New Point(PictureBox22.Location.X + 10, PictureBox22.Location.Y)
    26. ElseIf e.KeyCode = Keys.Left Then
    28. CrashTestLinks()
    29. If crash = False Then
    30. PictureBox22.Location = New Point(PictureBox22.Location.X - 10, PictureBox22.Location.Y)
    31. End If
    33. ElseIf e.KeyCode = Keys.Escape Then
    34. Me.Close()
    35. End If
    36. End Sub
    38. Private Sub CrashTestLinks()
    39. For Each Eintrag In PB_Liste
    40. Get_Coordinaten(Eintrag)
    41. If PictureBox22.Location.X - 10 <= PX + 25 Then
    42. If PictureBox22.Location.X - 10 >= PX Then
    43. If PictureBox22.Location.Y <= PY + 25 Then
    44. If PictureBox22.Location.Y >= PY Then
    45. crash = True
    46. Exit Sub
    47. Else : crash = False
    48. End If
    49. Else : crash = False
    50. End If
    51. If PictureBox22.Location.Y + 25 >= PY Then
    52. If PictureBox22.Location.Y + 25 <= PY + 25 Then
    53. crash = True
    54. Exit Sub
    55. Else : crash = False
    56. End If
    57. Else : crash = False
    58. End If
    59. Else : crash = False
    60. End If
    61. Else : crash = False
    62. End If
    63. Next
    64. End Sub
    66. Private Sub Get_Coordinaten(ByVal PB As Object)
    67. PX = PB.Location.X
    68. PY = PB.Location.Y
    69. End Sub
    71. End Class

Facebook
Telefonspende