Fehleranzeige

Übersicht

BlitzBasic

Beginners-Corner

	k.Luger Sieger des Model-Contests März 2006 Betreff: Fehleranzeige	Do, Nov 24, 2005 22:57 Antworten mit Zitat
moin was hab ich bei diesem code falschgemacht? es kommt immer die meldung "Out of data" ich kann aber keine zahl die zu groß usw. sein sollte need help thx ============================================= Graphics 1024, 786 ; Auflösung SetBuffer BackBuffer() ;Tasten Const rauf = 200 ; Constante für Tastertur Const runter = 208 Const rechts = 205 Const links = 203 ;Kartendaten lesen Dim map (12,8 ) Restore mapdata ; x und y definieren For y=0 To 7 For x=0 To 11 Read map(x,y) Next Next ;********************************************************** ;Hauptschleife Repeat ; Wiederhole bis... Cls ; CLear Screen bilderladen() ; Funktion bilderladen einbinden mapzeichnen() ; Funktion mapzeichen einbinden Flip ; Flip zwischen Back - Frontbuffer Until KeyHit(1) ; ...bis Esc gedrückt ;******************************************************** Function bilderladen() ; Funktionsanfang zum Bilderladen bild1 = LoadImage("bild1.bmp") ; Bild1 laden bild2 = LoadImage("bild2.bmp") ; Bild2 laden End Function ; Funktionsende ;********************************************************** Function mapzeichnen() ; Funktion zum malen der map For y = 0 To 7 For x = 0 To 11 If map(x,y) = 1 Then ; Wenn x oder y gleich 1 DrawImage bild1, x64, y64 ; dann zeichne Bild1 EndIf Next Next End Function ;************************************************************ .mapdata Data 222222222222 Data 211100000002 Data 210000000002 Data 210000000012 Data 210000000012 Data 200000000012 Data 200000000012 Data 222222222222

k.Luger

Sieger des Model-Contests März 2006

Betreff: Fehleranzeige

Do, Nov 24, 2005 22:57
Antworten mit Zitat

moin
was hab ich bei diesem code falschgemacht?
es kommt immer die meldung
"Out of data"
ich kann aber keine zahl die zu groß usw. sein sollte
need help
thx

=============================================

Graphics 1024, 786 ; Auflösung
SetBuffer BackBuffer()

;Tasten
Const rauf = 200 ; Constante für Tastertur
Const runter = 208
Const rechts = 205
Const links = 203

;Kartendaten lesen
Dim map (12,8 )

Restore mapdata ; x und y definieren

For y=0 To 7
For x=0 To 11
Read map(x,y)
Next
Next

;************************************************************

;Hauptschleife

Repeat ; Wiederhole bis...
Cls ; CLear Screen

bilderladen() ; Funktion bilderladen einbinden
mapzeichnen() ; Funktion mapzeichen einbinden

Flip ; Flip zwischen Back - Frontbuffer
Until KeyHit(1) ; ...bis Esc gedrückt

;************************************************************

Function bilderladen() ; Funktionsanfang zum Bilderladen

bild1 = LoadImage("bild1.bmp") ; Bild1 laden
bild2 = LoadImage("bild2.bmp") ; Bild2 laden

End Function ; Funktionsende

;************************************************************

Function mapzeichnen() ; Funktion zum malen der map

For y = 0 To 7
For x = 0 To 11
If map(x,y) = 1 Then ; Wenn x oder y gleich 1
DrawImage bild1, x*64, y*64 ; dann zeichne Bild1
EndIf
Next
Next
End Function

;************************************************************

.mapdata
Data 222222222222
Data 211100000002
Data 210000000002
Data 210000000012
Data 210000000012
Data 200000000012
Data 200000000012
Data 222222222222

	bruce185	Do, Nov 24, 2005 23:43 Antworten mit Zitat
du musst die Bilder mit LoadAnimImage laden, so z.b. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] bild1 = LoadAnimImage(\"bild1.bmp\",64, 64, 0, 3) so müsste es dann gehen Andreas

bruce185

Do, Nov 24, 2005 23:43
Antworten mit Zitat

du musst die Bilder mit LoadAnimImage laden, so z.b.

BlitzBasic: [AUSKLAPPEN]

bild1 = LoadAnimImage(\"bild1.bmp\",64, 64, 0, 3)

so müsste es dann gehen Very Happy

Andreas

	Hubsi	Fr, Nov 25, 2005 0:03 Antworten mit Zitat
Zitat: Data 222222222222 sollte wohl so aussehen:BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Data 2,2,2,2,2,2,2,2,2,2,2,2 Sonst sieht der Computer es als eine Zahl an Grober Fehler auch beim Bilder laden. Alles was ein Load oder Create enthält (z.B. LoadImage) hat in einer unkontrollierten Schleife überhaupt nichts zu suchen. Das müllt nur den Speicher voll bis er explodiert Dann:BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If map(x,y) = 1 Then ; Wenn x oder y gleich 1 Wenn der Kommentar wirklich das meint was er aussagt hast Du Arrays falsch verstanden. Schön erklärt ists hier: http://www.blitzbase.de/befehle2d/dim.htm Have fun
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Fr, Nov 25, 2005 0:03
Antworten mit Zitat

Zitat:

Data 222222222222

sollte wohl so aussehen:BlitzBasic: [AUSKLAPPEN]

Data 2,2,2,2,2,2,2,2,2,2,2,2

Sonst sieht der Computer es als eine Zahl an Very Happy

Grober Fehler auch beim Bilder laden. Alles was ein Load oder Create enthält (z.B. LoadImage) hat in einer unkontrollierten Schleife überhaupt nichts zu suchen. Das müllt nur den Speicher voll bis er explodiert Very Happy

Dann:BlitzBasic: [AUSKLAPPEN]

 If map(x,y) = 1 Then ; Wenn x oder y gleich 1

Wenn der Kommentar wirklich das meint was er aussagt hast Du Arrays falsch verstanden. Schön erklärt ists hier: http://www.blitzbase.de/befehle2d/dim.htm

Have fun Very Happy

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

	bruce185	Fr, Nov 25, 2005 0:30 Antworten mit Zitat
also, ich habe mir mal die mühe gemacht, und es ausgebessert, damit geht es: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 1024, 786 ; Auflösung SetBuffer BackBuffer() ;Tasten Const rauf = 200 ; Constante für Tastertur Const runter = 208 Const rechts = 205 Const links = 203 ;Das Bild in den Speicher laden Global bild1 = LoadAnimImage(\"bild1.bmp\",64,64,0,3) ; Bild1 laden ;Die Karte erstellen Dim map(11,7) ;Die Karte lesen Restore maplevel1 For y=0 To 7 For x=0 To 11 Read map(x,y) Next Next ;Die Hauptschleife Repeat ;Den Bildschirm löschen Cls ;Die Karte zeichnen For y=0 To 7 For x=0 To 11 DrawImage bild1,x64,y64,map(x,y) Next Next ;Die Bilder flipen Flip Until KeyHit(1) ;ESC, dann Ende ;Die Daten des maps .maplevel1 Data 2,2,2,2,2,2,2,2,2,2,2,2 Data 2,1,1,1,0,0,0,0,0,0,0,2 Data 2,1,0,0,0,0,0,0,0,0,0,2 Data 2,1,0,0,0,0,0,0,0,0,1,2 Data 2,1,0,0,0,0,0,0,0,0,1,2 Data 2,0,0,0,0,0,0,0,0,0,1,2 Data 2,0,0,0,0,0,0,0,0,0,1,2 Data 2,2,2,2,2,2,2,2,2,2,2,2 End andreas

bruce185

Fr, Nov 25, 2005 0:30
Antworten mit Zitat

also, ich habe mir mal die mühe gemacht, und es ausgebessert, damit geht es:

BlitzBasic: [AUSKLAPPEN]


Graphics 1024, 786 ; Auflösung 
SetBuffer BackBuffer() 

;Tasten 
Const rauf = 200 ; Constante für Tastertur 
Const runter = 208 
Const rechts = 205 
Const links = 203 

;Das Bild in den Speicher laden
Global bild1 = LoadAnimImage(\"bild1.bmp\",64,64,0,3) ; Bild1 laden

;Die Karte erstellen  
Dim map(11,7)

;Die Karte lesen
Restore maplevel1
For y=0 To 7
 For x=0 To 11
  Read map(x,y)
 Next
Next


;Die Hauptschleife 
Repeat 
 ;Den Bildschirm löschen
 Cls  

 ;Die Karte zeichnen
 For y=0 To 7
  For x=0 To 11
   DrawImage bild1,x*64,y*64,map(x,y)
  Next
 Next 

 ;Die Bilder flipen
 Flip 

Until KeyHit(1) ;ESC, dann Ende 


;Die Daten des maps
.maplevel1
Data 2,2,2,2,2,2,2,2,2,2,2,2
Data 2,1,1,1,0,0,0,0,0,0,0,2
Data 2,1,0,0,0,0,0,0,0,0,0,2
Data 2,1,0,0,0,0,0,0,0,0,1,2
Data 2,1,0,0,0,0,0,0,0,0,1,2
Data 2,0,0,0,0,0,0,0,0,0,1,2
Data 2,0,0,0,0,0,0,0,0,0,1,2
Data 2,2,2,2,2,2,2,2,2,2,2,2

End

andreas

	k.Luger Sieger des Model-Contests März 2006	Fr, Nov 25, 2005 16:12 Antworten mit Zitat
thx jetzt funzt also noch ma danke

k.Luger

Sieger des Model-Contests März 2006

Fr, Nov 25, 2005 16:12
Antworten mit Zitat

thx jetzt funzt
also noch ma danke Very Happy

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Fehleranzeige

k.Luger

Betreff: Fehleranzeige

bruce185

Hubsi

bruce185

k.Luger