Array index out of bounds!!!?

Übersicht

BlitzBasic

Allgemein

	Gameprogman Betreff: Array index out of bounds!!!?	So, Sep 05, 2004 13:58 Antworten mit Zitat
Wenn ich den Dot tunnel aus dem Rob-tutorial anschaue kommt immer ein Fehler ARRAY INDEX OUT OF BOUNDS was heißt das

Gameprogman

Betreff: Array index out of bounds!!!?

So, Sep 05, 2004 13:58
Antworten mit Zitat

Wenn ich den Dot tunnel aus dem Rob-tutorial anschaue kommt immer ein Fehler ARRAY INDEX OUT OF BOUNDS was heißt das Question

	rambo256	So, Sep 05, 2004 14:07 Antworten mit Zitat
Das bedeutet,das die maximale Anzahl an Felder in einem Array überschritten wurde.
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

So, Sep 05, 2004 14:07
Antworten mit Zitat

Das bedeutet,das die maximale Anzahl an Felder in einem Array überschritten wurde.

Asus F53z

Das Leben ist eine reine Konkatenation...

	hot-bit Gast	So, Sep 05, 2004 14:17 Antworten mit Zitat
Hoi, das bedeutet, daß du dich selber mehr dahinter klemmen sollst ! Toni

hot-bit

Gast

So, Sep 05, 2004 14:17
Antworten mit Zitat

Hoi,

das bedeutet, daß du dich selber mehr dahinter klemmen sollst !

Toni

	getlose	So, Sep 05, 2004 14:21 Antworten mit Zitat
@hot-bit, deine Antworten sind aber manschmal auch grillig.

getlose

So, Sep 05, 2004 14:21
Antworten mit Zitat

@hot-bit, deine Antworten sind aber manschmal auch grillig. Smile

	Gameprogman	So, Sep 05, 2004 16:22 Antworten mit Zitat
ahhaaaa Danke Rambo256

Gameprogman

So, Sep 05, 2004 16:22
Antworten mit Zitat

ahhaaaa

Danke Rambo256

	EnClAvE	Mo, Sep 06, 2004 16:29 Antworten mit Zitat
Habe das selbe problem wie Gameprogman finde die überschreitung aber nicht. Dim rak(100,2) If KeyHit(57) Then schuss = schuss+1 If schuss = 100 Then schuss = 1 rak(schuss,1) = x+10 rak(schuss,2) = y-19 PlaySound(schuss) EndIf For I = 1 To 100 If rak(I,2) < 0 Then rak(I,0) = 0 If rak(I,0) = 1 Then DrawImage rakete, rak(I,1), rak(I,2) rak(I,2) = rak(I,2) - 10 EndIf Next WaitTimer takt Flip Er markiert diese zeile und sagt ARRAY INDEX OUT OF BOUNDS Warum ???

EnClAvE

Mo, Sep 06, 2004 16:29
Antworten mit Zitat

Habe das selbe problem wie Gameprogman finde die überschreitung aber nicht.

Dim rak(100,2)

If KeyHit(57) Then
schuss = schuss+1
If schuss = 100 Then schuss = 1
rak(schuss,1) = x+10
rak(schuss,2) = y-19
PlaySound(schuss)
EndIf

For I = 1 To 100
If rak(I,2) < 0 Then rak(I,0) = 0
If rak(I,0) = 1 Then
DrawImage rakete, rak(I,1), rak(I,2)
rak(I,2) = rak(I,2) - 10
EndIf
Next
WaitTimer takt
Flip

Er markiert diese zeile und sagt ARRAY INDEX OUT OF BOUNDS
Warum ???

	simi	Mo, Sep 06, 2004 16:35 Antworten mit Zitat
Ich denke du lädst am Anfang einen Sound in die Variable schuss, und nacher drückst, die die Schuss-Taste, und in der Variable schuss willst du noch die Schuss Nummer speichern. Du musst den Schusssound in eine andere Variable speichern.(z.B. schussSound)

simi

Mo, Sep 06, 2004 16:35
Antworten mit Zitat

Ich denke du lädst am Anfang einen Sound in die Variable schuss, und nacher drückst, die die Schuss-Taste, und in der Variable schuss willst du noch die Schuss Nummer speichern. Du musst den Schusssound in eine andere Variable speichern.(z.B. schussSound)

	Hubsi	Mo, Sep 06, 2004 16:38 Antworten mit Zitat
rak(schuss,2) = y-19 PlaySound(schuss) Na, fällt Dir was auf? Dieselbe Variable zweimal vergewaltigt. LoadSound gibt ein Handle jenseits von Gut und Böse zurück (z.B. 2854687 oder was weiß ich) und dieser Wert ist natürlich etwas zu viel für Dein Array. Klaro klip? Ups, simi war schneller
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mo, Sep 06, 2004 16:38
Antworten mit Zitat

rak(schuss,2) = y-19
PlaySound(schuss)

Na, fällt Dir was auf? Dieselbe Variable zweimal vergewaltigt. LoadSound gibt ein Handle jenseits von Gut und Böse zurück (z.B. 2854687 oder was weiß ich) und dieser Wert ist natürlich etwas zu viel für Dein Array. Klaro klip? Wink

Ups, simi war schneller Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	EnClAvE	Mo, Sep 06, 2004 16:45 Antworten mit Zitat
Thx aber jetzt zeichnet er meine rakete nicht. Ich liste mal den ganzen code auf: ;weltraumshooter.bb AppTitle "Weltraum Shooter" Graphics 640, 480 SetBuffer BackBuffer() hintergr = LoadImage ("stars.bmp") schiff = LoadImage ("spaceship2.bmp") rakete = LoadImage ("bullet.bmp") schusston = LoadSound ("soundfx11.wav") takt = CreateTimer(50) Dim rak(100,2) x = 305 y = 420 ;ExecFile "errorchecker.exe welraumshooter.bb ; Repeat H = H+1 If H=200 Then H = 0 TileBlock hintergr,0,h DrawImage schiff, x, y If KeyDown(200) = 1 Then y = y-1 If KeyDown(208) = 1 Then y = y+1 If KeyDown(205) = 1 Then x = x+2 If KeyDown(203) = 1 Then x = x-2 If x < 0 Then x = 0 If x > 605 Then x = 605 If y < 0 Then y = 0 If y > 451 Then y = 451 If KeyHit(57) Then schuss = schuss+1 If schuss = 101 Then schuss = 1 EndIf rak(schuss,1) = x+10 rak(schuss,2) = y-19 PlaySound(schusston) EndIf For I = 1 To 100 If rak(I,0) = 1 Then DrawImage rakete, rak(I,1), rak(I,2) rak(I,2) = rak(I,2) - 10 EndIf Next WaitTimer takt Flip Until KeyHit(1) End

EnClAvE

Mo, Sep 06, 2004 16:45
Antworten mit Zitat

Thx aber jetzt zeichnet er meine rakete nicht. Ich liste mal den ganzen code auf:

;weltraumshooter.bb
AppTitle "Weltraum Shooter"
Graphics 640, 480
SetBuffer BackBuffer()
hintergr = LoadImage ("stars.bmp")
schiff = LoadImage ("spaceship2.bmp")
rakete = LoadImage ("bullet.bmp")
schusston = LoadSound ("soundfx11.wav")
takt = CreateTimer(50)
Dim rak(100,2)
x = 305
y = 420
;ExecFile "errorchecker.exe welraumshooter.bb
;
Repeat

H = H+1
If H=200 Then H = 0
TileBlock hintergr,0,h
DrawImage schiff, x, y
If KeyDown(200) = 1 Then y = y-1
If KeyDown(208) = 1 Then y = y+1
If KeyDown(205) = 1 Then x = x+2
If KeyDown(203) = 1 Then x = x-2
If x < 0 Then x = 0
If x > 605 Then x = 605
If y < 0 Then y = 0
If y > 451 Then y = 451

If KeyHit(57) Then
schuss = schuss+1
If schuss = 101 Then
schuss = 1
EndIf
rak(schuss,1) = x+10
rak(schuss,2) = y-19
PlaySound(schusston)
EndIf

For I = 1 To 100
If rak(I,0) = 1 Then
DrawImage rakete, rak(I,1), rak(I,2)
rak(I,2) = rak(I,2) - 10
EndIf
Next
WaitTimer takt
Flip

Until KeyHit(1)
End

	simi	Mo, Sep 06, 2004 16:47 Antworten mit Zitat
so viel ich sehe setzt du rak(i,0) nicht auf 1 beim erstellen, oder nicht [edit] Schon wieder schneller [edit2] beides

simi

Mo, Sep 06, 2004 16:47
Antworten mit Zitat

so viel ich sehe setzt du rak(i,0) nicht auf 1 beim erstellen, oder nicht Question

[edit]
Schon wieder schneller Very Happy

[edit2]
beides

Zuletzt bearbeitet von simi am Mo, Sep 06, 2004 16:51, insgesamt 2-mal bearbeitet

	Hubsi	Mo, Sep 06, 2004 16:49 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] rak(schuss,2) = y-19 rak(schuss,0)=True ; eingefügt PlaySound(schusston) EndIf Jetzt aber, denk ich mal Edit: Sag mal simi, bist Du heute zu schnell oder ich zu langsam?
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...