[VB2010] kollisionsabfrage

[fr33k]

Da ich die Woche flach gelegen war, und keine Games von der Videotheke für Trainer holen konnte, hab ich ein neues Projekt angefangen um meine Kenntnisse in VB zu vertiefen.
Es geht um ein kleines simples Game, jedoch bin ich bei Level 4 an meine Grenzen gestossen und komme nicht hinter meinen Fehler.

Folgendes Problem:
In diesem Level gibt es einen "Stein" der sich von Wand "A" nach Wand "B" bewegt, und wenn er an eine Wand anstösst, soll dieser praktisch die richtung ändern.....

aber sobald er die erste wand berührt geht nichts mehr, hoffe ihr könnt mir folgen^^

hier mal der Code, hab schon rum probiert aber irgendwie will das nicht

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub lvl104_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load pbWall.Location = New Point(pbWall.Location.X, pbWall.Location.Y + 1) End Sub Private Sub tmrWall_Tick(sender As System.Object, e As System.EventArgs) Handles tmrWall.Tick If (pbWall.Bounds.IntersectsWith(PictureBox3.Bounds)) Then pbWall.Location = New Point(pbWall.Location.X, pbWall.Location.Y - 1) ElseIf (pbWall.Bounds.IntersectsWith(PictureBox30.Bounds)) Then pbWall.Location = New Point(pbWall.Location.X, pbWall.Location.Y + 1) End If End Sub

---

Vielleicht weiss einer wo mein Fehler ist.

[Bluespide]

(05.06.2011, 00:27)fr33k schrieb: aber sobald er die erste wand berührt geht nichts mehr, hoffe ihr könnt mir folgen^^

kommt ein Fehler oder bewegt er sich nicht mehr?

[fr33k]

keine fehlermeldung, bewegt sich nur nicht mehr

[Bluespide]

ich denke das liegt an deiner if abfrage im Timer, weil wenn er an der anderen Seite angekommen ist geht er 1 Pixel zurück und dann kommt wieder die if abfrage und setzt ihn wieder einen nach vorne.