Entfernen der ersten Elemente aus einem dynamischen Array, wenn es eine bestimmte Größe erreicht

Question

Ich mache eine Schwerkraft-Simulation, die die Flugbahn von Planeten zeigt. Jeder Planet hinterlässt beim Bewegen eine Spur von Punkten, die in einem dynamischen Array gespeichert sind. Wenn die Spur jedoch länger wird, muss das Paint-Ereignis jedes Mal mehr zeichnen, so dass die Bildrate abnimmt. Ich möchte die ersten Punkte löschen, wenn das Array größer als 1000 Punkte wird. Diese

ist im Code für das Paint-Ereignis:

For drawTrail As Integer = 0 To planet.trailX.Count - 1 
    e.Graphics.DrawEllipse(trailcolour, planet.trailX(drawTrail), planet.trailY(drawTrail), 1, 1) 'Draw a pixel at the planet's current location 
Next 

Und das ist in einem Timer-Ereignis, das 60-mal tickt eine Sekunde:

trailDots += 1 
ReDim Preserve planet.trailX(trailDots) 
ReDim Preserve planet.trailY(trailDots) 
planet.trailX(trailDots) = planet.displayX 
planet.trailY(trailDots) = planet.displayY 

Ich habe versucht, das Hinzufügen dieser Code in der Timer tick:

If trailDots > 1000 Then 
    trailDots -= 1 
    ReDim Preserve planet.trailX(trailDots - 1) 
    ReDim Preserve planet.trailY(trailDots - 1) 
End If 

Aber sobald die Spur zu 1000 Punkte kam, stürzt die Simulation mit der Meldung "IndexOutOfRan geException wurde "on the line" nicht behandelt. planet.trailX (trailDots) = planet.displayX "

Wie kann ich das beheben?

Answer 1

Zuerst denke ich, dass Sie das neueste Element entfernen und nicht das älteste.

Wie auch immer, der Grund, warum es abstürzt, ist, dass Sie zuerst trackDots um eins reduzieren und dann redim es zu trailDots - 1, effektiv schrumpft es um 2 Elemente. Sie können die folgenden Änderungen vornehmen, um das Problem zu beheben.

If trailDots > 1000 Then 
    trailDots -= 1 
    ReDim Preserve planet.trailX(trailDots) 
    ReDim Preserve planet.trailY(trailDots) 
End If 

Ich würde auch empfehlen, trailDots auf 0 zu initialisieren und die folgenden Änderungen vorzunehmen.

Aber wie Andew sagte, sollten Sie für dieses Problem lieber Ringpuffer verwenden.