Home of Gamehacking - Archiv
[VB2010] kollisionsabfrage - Druckversion

+- Home of Gamehacking - Archiv (http://archiv-homeofgamehacking.de)
+-- Forum: Coding (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=15)
+--- Forum: Visual Basic 6, VB.NET (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=19)
+--- Thema: [VB2010] kollisionsabfrage (/showthread.php?tid=389)

[VB2010] kollisionsabfrage - fr33k - 05.06.2011

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.



RE: [VB2010] kollisionsabfrage - Bluespide - 05.06.2011

(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?

RE: [VB2010] kollisionsabfrage - fr33k - 05.06.2011

keine fehlermeldung, bewegt sich nur nicht mehr

RE: [VB2010] kollisionsabfrage - Bluespide - 05.06.2011

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.