Snake problem

Quote:

Der Index war außerhalb des Arraybereichs.

Public Class Form1
    Dim m As Integer = 10
    Dim p(m) As Point
    Dim k As Keys
    Private Sub steuerung()

        If k = Keys.Left Then
            p(m).X -= 16
        End If
        If k = Keys.Right Then
            p(m).X += 16
        End If
        If k = Keys.Up Then
            p(m).Y -= 16
        End If
        If k = Keys.Down Then
            p(m).Y += 16
        End If



        Panel2.Location = New Point(p(m).X, p(m).Y)
    End Sub
    Private Sub rand()
        If p(m).X > 830 Then
            p(m).X = 0
        End If
        If p(m).Y > 530 Then
            p(m).Y = 0
        End If

        If p(m).X < 0 Then ' 
            p(m).X = 830
        End If
        If p(m).Y < 0 Then
            p(m).Y = 530
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim b As New Bitmap(830, 530)
        Dim g As Graphics = Graphics.FromImage(b)
        steuerung()
        rand()
        For i As Integer = 0 To m - 1
            p(i) = p(i + 1)
            g.FillRectangle(Brushes.Black, New Rectangle(p(i), New Size(16, 16)))

        Next
        g.FillRectangle(Brushes.Black, New Rectangle(p(m), New Size(16, 16)))
        g.Dispose()
        Me.BackgroundImage = b
        Me.ClientSize = b.Size


        If Panel2.Bounds.IntersectsWith(Panel1.Bounds) Then
            m = m + 1
        End If

    End Sub

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Left Then
            k = Keys.Left
        End If
        If e.KeyCode = Keys.Right Then
            k = Keys.Right
        End If
        If e.KeyCode = Keys.Up Then
            k = Keys.Up
        End If
        If e.KeyCode = Keys.Down Then
            k = Keys.Down
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Quote:

Originally Posted by .Infinite du versuchst halt - wie du in der Fehlerbeschreibung sehen kannst auf einen Teil des Arrays zuzugreifen, der nicht existiert... Wenn dein Array beispielsweise als 'Spielfeld[10]' deklariert wurde, kannst du nicht auf 'Spielfeld[11]' zugreifen. Das gleiche gilt auch für mehrdimensionale arrays. Du musst also versuchen diesen Fehler irgendwie abzufangen. Ich hab zwar keine Ahnung von vb, aber ich würde es so in der art machen... PHP Code: int Spielfeld[10]; ..... if (x >=0 && x <= sizeof(Spielfeld[10])/sizeof(int)) {      ......... }

Quote:

Originally Posted by .Infinite du versuchst halt - wie du in der Fehlerbeschreibung sehen kannst auf einen Teil des Arrays zuzugreifen, der nicht existiert... Wenn dein Array beispielsweise als 'Spielfeld[10]' deklariert wurde, kannst du nicht auf 'Spielfeld[11]' zugreifen. Das gleiche gilt auch für mehrdimensionale arrays. Du musst also versuchen diesen Fehler irgendwie abzufangen. Ich hab zwar keine Ahnung von vb, aber ich würde es so in der art machen... PHP Code: int Spielfeld[10]; ..... if (x >=0 && x <= sizeof(Spielfeld[10])/sizeof(int)) {      ......... }

Quote:

Originally Posted by Secredo Ergänzend dazu noch: Arrays in .NET haben eine schöne Eigenschaft namens "Length". ;)

Quote:

Originally Posted by .Infinite Ich denke den Fehler wirst du jetzt selbst finden müssen. Dein Code sieht leider etwas unstrukturiert aus... Dieses ganzen Objekte "Panel2", "Timer1", "Form1" und diese Variablennamen "m" und "k"... wie soll man da den Überblick behalten? Ich krieg da jedenfalls die Krise. Und noch was: Ich weiß nicht wie das in VB ist, aber muss man Speicher den man mit "new" reserviert nicht auch hinterher wieder freigeben?

Quote:

Originally Posted by .Infinite Und noch was: Ich weiß nicht wie das in VB ist, aber muss man Speicher den man mit "new" reserviert nicht auch hinterher wieder freigeben?

Quote:

Originally Posted by link Dim m As Integer = 10 Dim p(m) As Point "wenn er was ißt ist m += 1" Code: Private Sub steuerung() If k = Keys.Left Then p(m).X -= 16 End If '[...] ?

Quote:

Originally Posted by link Sollte bedeuten: wenn p m groß ist und m mit 10 definiert und danach inkrementiert und dann als Index für p verwendet wird, müsste doch p(11) herauskommen, obwohl p nur 10 groß ist

Quote:

Originally Posted by .ƒaℓsє. aber m wird doch nach dem essen +1 gesetzt o.O

Quote:

Originally Posted by link Sollte bedeuten: wenn p m groß ist und m mit 10 definiert und danach inkrementiert und dann als Index für p verwendet wird, müsste doch p(11) herauskommen, obwohl p nur 10 groß ist

Quote:

Originally Posted by link Sagte ich doch und genau da liegt ja auch das Problem. Schreib halt einfach mal Dim p(m*2) As Point