Snake problem

False · 08/27/2011, 21:08

hey habe vesucht ein snake game zu machen nur dieser fehler kommt immer:

Quote:

Der Index war außerhalb des Arraybereichs.

Der kommt immer wenn ich versuch was zu essen(was man halt in snake machen muss :P)

source:

Code:

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

hoffe ihr könnt mir helfen.

.Infinite · 08/28/2011, 22:09

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))

{

     .........

}

False · 08/28/2011, 22:47

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)) { ......... }

aber der bereich muss ja eigentlich da sein da i = m - 1 ist und m ist 10(anfangswert) nur wenn er was ißt ist m += 1 das heißt i = 11 nur dann kommt ja ein error :/

Secredo · 08/28/2011, 22:49

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)) { ......... }

Ergänzend dazu noch: Arrays in .NET haben eine schöne Eigenschaft namens "Length".

False · 08/28/2011, 23:00

Quote:

Originally Posted by Secredo

Ergänzend dazu noch: Arrays in .NET haben eine schöne Eigenschaft namens "Length".

erneut getestet natürlich wird es weiter aufgeführt da m ja immer nach dem essen +1 gesetzt wird aber trotzdem kommt der fehler...

.Infinite · 08/28/2011, 23:32

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?

False · 08/28/2011, 23:52

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?

naja so verwirrend kann es nicht sein

panel1 = kopf wegen der kollision
panel2 = das essen
m = länge der schlange
k ist nur wegen der steuerung

das mit new geht nicht.

P.s jeder hat seine eigene ordnung

Secredo · 08/28/2011, 23:52

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?

Nope, GarbageCollecor ftw! ^-^

link · 08/29/2011, 03:01

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
  '[...]

?

False · 08/29/2011, 09:09

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
  '[...]
?

Hmm mit dem eigenen Code kann schlecht der Fehler weg sein...

link · 08/29/2011, 09:32

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

False · 08/29/2011, 10:13

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

aber m wird doch nach dem essen +1 gesetzt o.O

link · 08/29/2011, 10:37

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

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

False · 08/29/2011, 12:49

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

ahh,okay danke nun geht es

hat jemand eine Idee wie ich das panel per random setzen kann aber so das sie immer 16 ist also das die immer so z.b ist :

0,0
0,16
16,16
64,16
128,0

halt das die location immer so ist.

(ich weiß ich kann doof erklären^^)

bammes · 08/29/2011, 17:18

zum anfang soviel ich weis kann man den arraybereich auch erweitern mit redim preserve array(neuerindex)