Was ist an diesem Code falsch?

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Was ist an diesem Code falsch?

    Kollision wird irgendwie nicht erkannt.

    VB.NET-Quellcode

    1. Public Class gemälde
    2. Dim untengedrückt As Boolean = False
    3. Dim obengedrückt As Boolean = False
    4. Dim linksgedrückt As Boolean = False
    5. Dim rechtsgedrückt As Boolean = False
    6. Dim gezeigt As Boolean = False
    7. Dim playerspeed As Integer = 1
    9. Private Sub gemälde_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    10. If e.KeyCode = Keys.W Then
    11. obengedrückt = True
    12. untengedrückt = False
    13. rechtsgedrückt = False
    14. linksgedrückt = False
    16. ElseIf e.KeyCode = Keys.S Then
    17. untengedrückt = True
    18. obengedrückt = False
    19. linksgedrückt = False
    20. rechtsgedrückt = False
    22. ElseIf e.KeyCode = Keys.A Then
    23. linksgedrückt = True
    24. rechtsgedrückt = False
    25. obengedrückt = False
    26. untengedrückt = False
    28. ElseIf e.KeyCode = Keys.D Then
    29. rechtsgedrückt = True
    30. linksgedrückt = False
    31. obengedrückt = False
    32. untengedrückt = False
    34. End If
    36. End Sub
    38. Private Sub gemälde_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    39. movement.Enabled = True
    40. End Sub
    42. Private Sub movement_Tick(sender As System.Object, e As System.EventArgs) Handles movement.Tick
    43. Dim snake As New PictureBox
    44. snake.Width = 16
    45. snake.Height = 16
    46. snake.BackColor = Color.Red
    50. If rechtsgedrückt Then
    51. snake.Left = player.Left - player.Width
    52. snake.Top = player.Top
    53. ElseIf linksgedrückt Then
    54. snake.Left = player.Left + player.Width
    55. snake.Top = player.Top
    56. ElseIf obengedrückt Then
    57. snake.Left = player.Left
    58. snake.Top = player.Top + player.Height
    59. ElseIf untengedrückt Then
    60. snake.Left = player.Left
    61. snake.Top = player.Top - player.Height
    63. End If
    65. If obengedrückt = True Then
    66. player.Top -= playerspeed
    68. Controls.Add(snake)
    69. ElseIf untengedrückt = True Then
    70. player.Top += playerspeed
    72. Controls.Add(snake)
    73. ElseIf linksgedrückt = True Then
    74. player.Left -= playerspeed
    76. Controls.Add(snake)
    77. ElseIf rechtsgedrückt = True Then
    78. player.Left += playerspeed
    80. Controls.Add(snake)
    81. End If
    83. If player.Bounds.IntersectsWith(snake.Bounds) Then
    85. MsgBox("You lose!")
    87. Me.Close()
    88. label1.text = "collision!"
    89. End If
    91. End Sub
    92. End Class

    VB.NET-Quellcode

    1. If rechtsgedrückt Then
    2. snake.Left = player.Left - player.Width
    3. snake.Top = player.Top
    4. ElseIf linksgedrückt Then
    5. snake.Left = player.Left + player.Width
    6. snake.Top = player.Top

    Ist das nicht genau anders herum sinnvoller?
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    XpressMak schrieb:

    VB.NET-Quellcode

    1. Dim untengedrückt As Boolean = False
    2. Dim obengedrückt As Boolean = False
    3. Dim linksgedrückt As Boolean = False
    4. Dim rechtsgedrückt As Boolean = False
    Mach da ein Enum draus.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Aber was hat das damit zu tun, dass die Kollisionsdetektion nicht funktioniert? Bewegung und Erzeugung weiterer Pictureboxen geht ja.

    MemoAnMichSelbst schrieb:

    VB.NET-Quellcode

    1. If rechtsgedrückt Thensnake.Left = player.Left - player.Widthsnake.Top = player.TopElseIf linksgedrückt Thensnake.Left = player.Left + player.Widthsnake.Top = player.Top
    Ist das nicht genau anders herum sinnvoller?
    Warum sollte es anders herum sinvoller sein? Oder wie sollte es deiner Meinung nach aussehen?Möchte so verhindern, dass eine Kollision von Anfang an besteht.

    XpressMak schrieb:

    VB.NET-Quellcode

    1. Me.Close()
    2. label1.text = "collision!"
    Interessante Reihenfolge.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Warum ich frage ob das anders herum sinnvoller ist?
    Naja wenn ich links drücke erwarte ich doch dass sich die Position auf der x-Achse nach LINKS verschiebt...
    also blaba.Left -= blubb.width
    Aber kann auch ein grober Gedankenfehler von mir sein ^^ Ist nicht auszuschließen.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    MemoAnMichSelbst schrieb:

    VB.NET-Quellcode

    1. If rechtsgedrückt Then
    2. snake.Left = player.Left - player.Width
    3. snake.Top = player.Top
    4. ElseIf linksgedrückt Then
    5. snake.Left = player.Left + player.Width
    6. snake.Top = player.Top

    Ist das nicht genau anders herum sinnvoller?


    RodFromGermany schrieb:

    XpressMak schrieb:

    VB.NET-Quellcode

    1. Me.Close()
    2. label1.text = "collision!"
    Interessante Reihenfolge.


    Als ich bemerkte, dass me.close nicht funktioniert, machte ich ein label, welches mir anzeigt ob die Kollision erkannt wird. Klappte auch nicht.

    XpressMak schrieb:

    ob die Kollision erkannt wird
    Setze einen Haltepunkt in die Prozedur und arbeite Deinen Code zeilenweise ab. Verfolge den Inhalt der Variablen. Stellst Du fest, dass der Soll- und der Ist-Inhalt voneinander abweichen, hast Du einen Fehler gefunden. :thumbup:
    Gugst Du hier.

    RodFromGermany schrieb:

    Mach da ein Enum draus.
    Und? Hast Du?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    XpressMak schrieb:

    warum enum?
    Du hast 4 Boolean, von denen maximal einer auf True stehen kann.
    Sieh Dir dies mal an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Enum KeyPressed
    2. keiner
    3. oben
    4. unten
    5. links
    6. rechts
    7. End Enum
    8. Private MyKey As KeyPressed = KeyPressed.keiner
    10. Private Sub gemälde_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    11. If e.KeyCode = Keys.W Then
    12. MyKey = KeyPressed.oben
    13. End If
    14. End Sub
    16. Private Sub movement_Tick(sender As System.Object, e As System.EventArgs)
    17. Select Case (MyKey)
    18. Case KeyPressed.oben
    19. ' was tun
    20. Case KeyPressed.unten
    21. ' ...
    22. End Select
    23. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wobei man eigtl die Keys-Enumeration verwenden kann.

    VB.NET-Quellcode

    1. Private MyKey As Keys
    2. Private Sub gemälde_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    3. MyKey = e.KeyCode
    4. End Sub
    5. Private Sub movement_Tick(sender As System.Object, e As System.EventArgs)
    6. Select Case (MyKey)
    7. Case Keys.W
    8. ' was tun
    9. Case Keys.S
    10. ' ...
    11. End Select
    12. End Sub

    Jou.
    Und man kann das alles in das KeyDown-Event packen, einen Timer braucht der @TE gar nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ich denke den Timer hat er damit das Ding sich auch bewegt wenn kein Knopf gedrückt wird.
    Also wäre das Key-Down Event alleine nicht ganz ausreichend. Oder?
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    ich glaub, das Prob ist zu spezifisch, als das mans lösen kann, ohne konkret die Solution lauffähig ins Visualstudio geladen zu haben.

    Ich kann mir garnix vorstellen, wie die Snake aussieht, und der Player, und wie die sich verhalten, wenn man was drückt.

    Und welches Verhalten nu das Fehlverhallten ist.

    Also ich täte vorschlagen, du zippst eine BeispielSolution und hängst die an.
    Aber lauffähig soll sie sein (vorher testen!!), und keine Binaries enthalten - nur Sources!

Facebook
Telefonspende