Punkte-Array

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von creac.

    Punkte-Array

    Hallo
    Ich hab ein Problem:
    Ich programmieren ein Snakespiel und wenn die Schlange in die Nähe der Maus kommt soll sie die ja aufressen.
    Und da hab ich das mit einem Punkte-Array versucht zu lösen:

    VB.NET-Quellcode

    1. punkt(0).X = p(n).X 'p = der Kopf der Schlange,punkt= picturebox position
    2. punkt(0).Y = p(n).Y
    3. punkt(1).X = p(n).X + 1
    4. punkt(1).Y = p(n).Y + 1
    5. punkt(2).Y = p(n).Y + 2
    6. punkt(2).X = p(n).X + 2
    7. punkt(3).X = p(n).X + 3
    8. punkt(3).Y = p(n).Y + 3
    9. punkt(4).X = p(n).X + 4
    10. punkt(4).Y = p(n).Y + 4
    11. punkt(5).X = p(n).X + 5
    12. punkt(5).Y = p(n).Y + 5
    13. punkt(6).X = p(n).X - 1
    14. punkt(6).Y = p(n).Y - 1
    15. punkt(7).Y = p(n).Y - 2
    16. punkt(7).X = p(n).X - 2
    17. punkt(8).X = p(n).X - 3
    18. punkt(8).Y = p(n).Y - 3
    19. punkt(9).X = p(n).X - 4
    20. punkt(9).Y = p(n).Y - 4
    21. punkt(10).X = p(n).X - 5
    22. punkt(10).Y = p(n).Y - 5


    Und sobald das ausgelöst wird geht die Maus an eine andere Stelle

    VB.NET-Quellcode

    1. If p(n) = punkt(0) Or p(n) = punkt(1) Or p(n) = punkt(2) Or p(n) = punkt(3) Or p(n) = punkt(4) Or p(n) = punkt(5) Or p(n) = punkt(6) Or p(n) = punkt(7) Or p(n) = punkt(8) Or p(n) = punkt(9) Or p(n) = punkt(10) Then
    2. z.X = rnd.Next(0, 500)
    3. z.Y = rnd.Next(0, 500)
    4. PictureBox1.Location = z


    Das funktioniert aber nicht.
    Kann mir da jemand weiterhelfen?


    MFG qauqau

    Ich verstehe nicht, warum du 11 versciedene Punkte für deine Maus erstellst. Was genau ist n für ein Index?

Facebook
Telefonspende