Snake - Problem

  • VB.NET

Es gibt 27 Antworten in diesem Thema. Der letzte Beitrag () ist von Niko Ortner.

    Snake - Problem

    Hi,

    jedes Mal, wenn ich das Programm starte, also die Form lade, sollten ein paar Pictureboxen generiert werden.

    Aus irgendeinem Grund klappt es nicht und nur eine Picbox wird generiert.

    Code:

    Code

    VB.NET-Quellcode

    1. Public Class frmSnake
    2. Dim Snake(Länge) As SnakePart
    3. Structure SnakePart
    4. Dim coords As Point
    5. Dim Richtung As Keys
    6. End Structure
    7. Dim zz As New Random
    8. Dim Länge As Integer = 4
    9. Dim imgSnake(Länge) As PictureBox
    10. Dim Startzeit As Date
    11. Dim Endzeit As Date
    12. Dim Zeitdiff As TimeSpan
    13. Dim verkackt As Boolean
    15. Private Sub frmSnake_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. timer_disable()
    17. 'Snake generieren
    18. For i As Integer = 0 To 4
    19. Snake(i).coords.X = (120 - (20 * i))
    20. Snake(i).coords.Y = 120
    21. imgSnake(i) = New PictureBox
    22. imgSnake(i).Width = 20
    23. imgSnake(i).Height = 20
    24. imgSnake(i).BackColor = Color.Black
    25. imgSnake(i).Left = Snake(i).coords.X
    26. imgSnake(i).Top = Snake(i).coords.Y
    27. Snake(i).Richtung = Keys.Down
    28. Controls.Add(imgSnake(i))
    29. Next
    30. End Sub
    32. Private Sub tmr1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr1.Tick
    33. Kopf_bewegen()
    34. Körper_bewegen()
    35. Prüfe_verloren()
    36. End Sub
    38. Private Sub frmSnake_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    39. If e.KeyCode = Keys.Left Then
    40. Snake(0).Richtung = Keys.Left
    41. End If
    42. If e.KeyCode = Keys.Right Then
    43. Snake(0).Richtung = Keys.Right
    44. End If
    45. If e.KeyCode = Keys.Up Then
    46. Snake(0).Richtung = Keys.Up
    47. End If
    48. If e.KeyCode = Keys.Down Then
    49. Snake(0).Richtung = Keys.Down
    50. End If
    51. End Sub
    53. Private Sub lblEnde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblEnde.Click
    54. End
    55. End Sub
    57. Private Sub lblStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblStart.Click
    58. timer_enable()
    59. Startzeit = Now
    60. End Sub
    62. Private Sub tmrZeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrZeit.Tick
    63. zeit_anzeigen()
    64. End Sub
    66. Private Sub timer_disable()
    67. tmr1.Enabled = False
    68. tmrZeit.Enabled = False
    69. End Sub


    *Topic verschoben*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ct5010“ ()

    Erstell mal Dein Snake()-Feld anders:

    VB.NET-Quellcode

    1. Dim Snake() As SnakePart
    2. Private Sub frmSnake_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. ReDim Snake(Länge)
    4. '...
    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!

    Hi,
    danke, es wird aber leider immer noch nur ein Teil der Schlange generiert. Wenn ich jedoch mit den Pfeiltasten die Schlange bewege, generiert sich erst "Der Rest". Außerdem geht dieses Körper_bewegen nicht:

    VB.NET-Quellcode

    1. Private Sub tmr1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr1.Tick
    2. Kopf_bewegen()
    3. Körper_bewegen()
    4. Prüfe_verloren()
    5. End Sub
    7. Private Sub Kopf_bewegen()
    8. If Snake(0).Richtung = Keys.Left Then
    9. Snake(0).coords.X -= 20
    10. imgSnake(0).Left = Snake(0).coords.X
    11. ElseIf Snake(0).Richtung = Keys.Up Then
    12. Snake(0).coords.Y -= 20
    13. imgSnake(0).Top = Snake(0).coords.Y
    14. ElseIf Snake(0).Richtung = Keys.Right Then
    15. Snake(0).coords.X += 20
    16. imgSnake(0).Left = Snake(0).coords.X
    17. ElseIf Snake(0).Richtung = Keys.Down Then
    18. Snake(0).coords.Y += 20
    19. imgSnake(0).Top = Snake(0).coords.Y
    20. End If
    21. End Sub
    23. Private Sub Körper_bewegen()
    24. For i As Long = (x - 1) To 1 Step (-1)
    25. Snake(i).coords.X = Snake(i - 1).coords.X
    26. imgSnake(i).Left = Snake(i).coords.X
    27. Snake(i).coords.Y = Snake(i - 1).coords.Y
    28. imgSnake(i).Top = Snake(i).coords.Y
    29. Snake(i).Richtung = Snake(i - 1).Richtung
    30. Next
    31. End Sub


    Irgendwas ist außerhalb des Arraybereichs.

    EDIT: x ist jetzt die neue Variable für die Länge...
    EDIT2: Ich glaube, dass das Problem darin besteht, dass beim Laden nur ein Schlangenteil geladen wird?!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ct5010“ ()

    Check das mal, meine Variante, bzw. ein teil davon..

    VB.NET-Quellcode

    1. Public Sub OnKey(ByVal keycode As Keys)Select Case keycodeCase Keys.A die_schlange.Bewegungsrichtung.Richtung = Richtung.LinksCase Keys.S die_schlange.Bewegungsrichtung.Richtung = Richtung.RunterCase Keys.D die_schlange.Bewegungsrichtung.Richtung = Richtung.RechtsCase Keys.W die_schlange.Bewegungsrichtung.Richtung = Richtung.RaufEnd Select




    VB.NET-Quellcode

    1. Public Bewegungsrichtung As New Bewegung Public Koerper As New List(Of Feld) Public Sub Friss(ByVal sp(,) As Feld, ByVal Futterfeld As Feld)Koerper.Insert(0, Futterfeld) sp(Futterfeld.Index_X, Futterfeld.Index_Y).Status = FeldStatus.Schlange End Sub Public Sub SchwanzVor(ByVal sp(,) As Feld) If Koerper.Count > 1 Then Dim f As Feld = Koerper(Koerper.Count - 1) sp(f.Index_X, f.Index_Y).Status = FeldStatus.Frei Koerper.RemoveAt(Koerper.Count - 1) End If End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Höhlenbeisser“ ()

    Hi,

    sorry, mir ist das noch zu hoch ;) wir arbeiten an VB seit nichtmal einem Monat... habe schon sehr viel selbst gelernt. Gibt es eine Methode, wo man so arbeiten kann wie ich bisher? Ich weiß nur nicht, warum die Schlange nicht generiert wird...

    Du solltest eigentlich eher viel selbst wissen, denn dann kannst Du reagieren, wenn der Lehrer euch versucht VB6 Code auszuzwingen.

    Was Dein Problem angeht:
    Bei Zeile 18 gehst du nur von 0 bis 4, anstelle von 0 bis Länge.
    An dieser Stelle noch ein Tipp:
    Arrays werden in VB nullbasiert deklariert.
    Das bedeutet:

    VB.NET-Quellcode

    1. Dim Bla(4) As Typ

    ergibt ein Array mit 5(!) Einträgen, nämlich 0, 1, 2, 3 und 4.
    Darum solltest Du den Namen der "Länge" Variable noch mal überdenken, oder

    VB.NET-Quellcode

    1. Dim Snake(Länge - 1) As ...
    2. 'und
    3. For ... 0 To Länge - 1

    verwenden.

    Noch ein Tipp: Vermeide Umlaute in Variablennamen.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Hi, Danke, ich hab das mit dem Namen der Länge gesehen, also hier aktualisiert:

    AKTUALISIERTER Code

    VB.NET-Quellcode

    1. Public Class frmSnake
    2. Dim Snake() As SnakePart
    3. Structure SnakePart
    4. Dim coords As Point
    5. Dim Richtung As String
    6. End Structure
    7. Dim zz As New Random 'Zufallszahl
    8. Dim x As Long 'Länge der Schlange
    9. Dim imgSnake(x) As PictureBox
    10. Dim Startzeit As Date
    11. Dim Endzeit As Date
    12. Dim Zeitdiff As TimeSpan
    13. Dim v As Boolean 'Verloren
    14. Dim g As Byte 'Geschwindigkeit; 1 = langsam, 9 = schnell
    16. Private Sub frmSnake_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    17. timer_disable()
    18. ReDim Snake(x)
    19. snake_generieren()
    20. tmr1.Interval = 425
    21. End Sub
    23. Private Sub tmr1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr1.Tick
    24. Körper_bewegen()
    25. Kopf_bewegen()
    26. Prüfe_verloren()
    27. End Sub
    29. Private Sub frmSnake_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    30. If e.KeyCode = Keys.A Then
    31. Snake(0).Richtung = "Links"
    32. End If
    33. If e.KeyCode = Keys.D Then
    34. Snake(0).Richtung = "Rechts"
    35. End If
    36. If e.KeyCode = Keys.W Then
    37. Snake(0).Richtung = "Oben"
    38. End If
    39. If e.KeyCode = Keys.S Then
    40. Snake(0).Richtung = "Unten"
    41. End If
    42. End Sub
    44. Private Sub lblEnde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblEnde.Click
    45. End
    46. End Sub
    48. Private Sub lblStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblStart.Click
    49. timer_enable()
    50. Startzeit = Now
    51. End Sub
    53. Private Sub tmrZeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrZeit.Tick
    54. zeit_anzeigen()
    55. End Sub
    57. Private Sub timer_disable()
    58. tmr1.Enabled = False
    59. tmrZeit.Enabled = False
    60. End Sub
    62. Private Sub timer_enable()
    63. tmr1.Enabled = True
    64. tmrZeit.Enabled = True
    65. End Sub
    67. Private Sub zeit_anzeigen()
    68. Endzeit = Now
    69. Zeitdiff = Endzeit - Startzeit
    70. lblZeit.Text = ((Int(100 * Zeitdiff.TotalSeconds)) / 100)
    71. If Val(lblZeit.Text) < 10 Then lblZeit.Text = "0" + lblZeit.Text
    72. If Val(lblZeit.Text) < 100 Then lblZeit.Text = "0" + lblZeit.Text
    73. If Val(lblZeit.Text) < 1000 Then lblZeit.Text = "0" + lblZeit.Text
    74. End Sub
    76. Private Sub Kopf_bewegen()
    77. Select Case Snake(0).Richtung
    78. Case "Links"
    79. Snake(0).coords.X -= 20
    80. imgSnake(0).Left = Snake(0).coords.X
    81. Case "Rechts"
    82. Snake(0).coords.X += 20
    83. imgSnake(0).Left = Snake(0).coords.X
    84. Case "Oben"
    85. Snake(0).coords.Y -= 20
    86. imgSnake(0).Top = Snake(0).coords.Y
    87. Case "Unten"
    88. Snake(0).coords.Y += 20
    89. imgSnake(0).Top = Snake(0).coords.Y
    90. End Select
    91. End Sub
    93. Private Sub Prüfe_verloren()
    94. If Snake(0).coords.Y + imgSnake(0).Height <= Me.ClientRectangle.Top Then
    95. timer_disable()
    96. MsgBox("VERLOREN!!")
    97. End
    98. End If
    99. If Snake(0).coords.X + imgSnake(0).Width <= Me.ClientRectangle.Left Then
    100. timer_disable()
    101. MsgBox("VERLOREN!!")
    102. End
    103. End If
    104. If Snake(0).coords.X >= Me.ClientRectangle.Right Then
    105. timer_disable()
    106. MsgBox("VERLOREN!!")
    107. End
    108. End If
    109. If Snake(0).coords.Y >= Panel1.Top Then
    110. timer_disable()
    111. MsgBox("VERLOREN!!")
    112. End
    113. End If
    114. End Sub
    116. Private Sub Körper_bewegen()
    117. Dim i As Long
    118. For i = x - 1 To 1 Step (-1)
    119. Snake(i).coords.X = Snake(i - 1).coords.X
    120. imgSnake(i).Left = Snake(i).coords.X
    121. Snake(i).coords.Y = Snake(i - 1).coords.Y
    122. imgSnake(i).Top = Snake(i).coords.Y
    123. Snake(i).Richtung = Snake(i - 1).Richtung
    124. Next
    125. End Sub
    127. Private Sub hsbV_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbV.Scroll
    128. g = hsbV.Value
    129. Select Case g
    130. Case 1
    131. tmr1.Interval = 425
    132. Case 2
    133. tmr1.Interval = 350
    134. Case 3
    135. tmr1.Interval = 275
    136. Case 4
    137. tmr1.Interval = 200
    138. Case 5
    139. tmr1.Interval = 150
    140. Case 6
    141. tmr1.Interval = 100
    142. Case 7
    143. tmr1.Interval = 75
    144. Case 8
    145. tmr1.Interval = 50
    146. Case 9
    147. tmr1.Interval = 25
    148. End Select
    149. End Sub
    151. Private Sub snake_generieren()
    152. x = 5
    153. imgSnake(0) = PictureBox1
    154. imgSnake(1) = PictureBox2
    155. imgSnake(2) = PictureBox3
    156. imgSnake(3) = PictureBox4
    157. imgSnake(4) = PictureBox5
    158. End Sub
    159. End Class

    Es wäre gut, wenn Du Deinen Code zunächst so modifizierst, dass er mit
    Option Strict On
    auf einem fremden (einem der unseren) Rechner fehlerfrei läuft.
    Schreibe darüber, wieviel und welche Controls Du benötigst, dann wäre es gut, wenn Deine Controls die von der IDE gewählte Standard-Bezeichnung hätten, da muss man nutr das Control einfügen und fertig.
    Da können wir Dir viel schneller und effizienter helfen.
    Füge einfach mal Deinen geposteten Code in ein neues Projekt ein, dann verstrehst Du, was ich meine.
    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!

    So, ich habe jetzt einen komplett neuen Ansatz genommen, habe mich vorher schlau gemacht und Youtube-Vids geschaut:
    Und es klappt!

    Code

    VB.NET-Quellcode

    1. Public Class Snake
    2. Dim m As Integer = 10
    3. Dim p(m) As Point
    4. Dim k As Keys
    6. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoop.Tick
    7. Dim b As New Bitmap(256, 256)
    8. Dim g As Graphics = Graphics.FromImage(b)
    9. schlange_bewegen()
    10. For i As Integer = 0 To m - 1
    11. p(i) = p(i + 1)
    12. g.FillRectangle(Brushes.Black, New Rectangle(p(i), New Size(14, 14)))
    13. Next
    14. g.FillRectangle(Brushes.Red, New Rectangle(p(m), New Size(14, 14)))
    15. g.Dispose()
    16. Me.BackgroundImage = b
    17. Me.ClientSize = b.Size
    18. Me.Refresh()
    19. prüfe_verloren()
    20. End Sub
    22. Private Sub Snake_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    23. k = Keys.Right
    24. End Sub
    26. Private Sub Snake_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
    27. Select Case e.KeyCode
    28. Case Keys.Left
    29. If k = Keys.Right Then Else k = Keys.Left
    30. Case Keys.Right
    31. If k = Keys.Left Then Else k = Keys.Right
    32. Case Keys.Up
    33. If k = Keys.Down Then Else k = Keys.Up
    34. Case Keys.Down
    35. If k = Keys.Up Then Else k = Keys.Down
    36. End Select
    37. End Sub
    39. Private Sub schlange_bewegen()
    40. Select Case k
    41. Case Keys.Left
    42. p(m).X -= 16
    43. Case Keys.Right
    44. p(m).X += 16
    45. Case Keys.Up
    46. p(m).Y -= 16
    47. Case Keys.Down
    48. p(m).Y += 16
    49. End Select
    50. End Sub
    52. Private Sub prüfe_verloren()
    53. For i = 0 To m - 2
    54. If p(m) = p(i) Then
    55. tmrLoop.Enabled = False
    56. MsgBox("Verloren!")
    57. End
    58. End If
    59. Next
    60. End Sub
    62. End Class


    EDIT: @RodFromGermany
    so also hier mit dem neuen Code muss man nur den Namen der Form in Snake umändern...

    Ja ich habe verstanden warum es jetzt funktioniert, aber nicht warum der alte Code nicht funktioniert hat...
    Ist ja jetzt auch egal, ich arbeite jetzt mit dem neuen Code und es funktioniert auch gut. Es ist eigentlich gar nicht mal so kompliziert.

    Ich werd mal an einer Lösung arbeiten und wenn ich fertig bin, kann ich den Code ja auch stolz hier posten ;)

    ct5010 schrieb:

    so also hier mit dem neuen Code muss man nur den Namen der Form in Snake umändern...

    und dem Timer den Namen tmrLoop geben und außerdem den Timer im Designer aktivieren.
    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!

    So, habe jetzt ein neues Problem... Wenn ich das generierte Essen "fresse", soll die Schlange ja länger werden. Dies klappt aber nicht, weil irgendwas außerhalb des Arraybereichs ist.

    Fehler mit > < markiert

    Code

    VB.NET-Quellcode

    1. Public Class Snake
    2. Dim m As Integer = 5 'Länge der Schlange
    3. Dim p(m) As Point 'Array von Punkten, jeder Punkt ist der Punkt eines Schlangeteils
    4. Dim pAlt(m) As Point 'speichert den Array von Punkten am Anfang
    5. Dim essen As Point 'Koordinaten des Essens
    6. Dim ev As Boolean = False 'Essen vorhanden? True = ja, False = nein
    7. Dim zz As New Random
    8. Dim k As Keys = Keys.Right 'Speichert die aktuelle Richtung der Schlange ab
    9. Dim kt As Keys 'temporäre Key-Einstellung gegenüber der Variable k
    10. Dim punkte As Integer = 0 'Punktezähler
    11. Dim geschwindigkeit As Integer = 1 'Geschwindigkeit, 1 = langsam, 9 = schnell
    13. Private Sub tmrLoop_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrLoop.Tick
    14. Dim b As New Bitmap(512, 384)
    15. Dim g As Graphics = Graphics.FromImage(b)
    17. 'Kopf bewegen
    18. Select Case k
    19. Case Keys.Left
    20. If p(m).X = 0 Then p(m).X = b.Width Else
    21. p(m).X -= 16
    22. Case Keys.Right
    23. If p(m).X = b.Width Then p(m).X = -16 Else
    24. p(m).X += 16
    25. Case Keys.Up
    26. If p(m).Y = 0 Then p(m).Y = b.Height Else
    27. p(m).Y -= 16
    28. Case Keys.Down
    29. If p(m).Y = b.Height Then p(m).Y = -16 Else
    30. p(m).Y += 16
    31. End Select
    33. 'Rest bewegen
    34. For i As Integer = 0 To m - 1
    35. p(i) = p(i + 1)
    36. g.FillRectangle(Brushes.Black, New Rectangle(p(i), New Size(15, 15)))
    37. Next
    38. g.FillRectangle(Brushes.Red, New Rectangle(p(m), New Size(15, 15)))
    40. prüfe_verloren()
    41. 'Essen generieren falls nicht vorhanden / gegessen
    42. If ev = False Then
    43. ev = True
    44. essen.X = zz.Next(1, 32) * 16
    45. essen.Y = zz.Next(1, 24) * 16
    46. End If
    47. 'Essen Abfrage
    48. If essen = p(m) Then
    49. essen.X = zz.Next(1, 32) * 16
    50. essen.Y = zz.Next(1, 24) * 16
    51. m = m + 1
    52. For i As Integer = m To 1 Step (-1)
    53. >p(i) = p(i - 1)<
    54. g.FillRectangle(Brushes.Black, New Rectangle(p(i), New Size(15, 15)))
    55. Next
    56. End If
    57. g.FillRectangle(Brushes.Green, New Rectangle(essen, New Size(15, 15)))
    59. g.Dispose()
    60. Me.BackgroundImage = b
    61. Me.Refresh()
    62. richtung_abfragen()
    63. End Sub


    EDIT: erledigt!

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „ct5010“ ()

Facebook
Telefonspende