Ein mit Dim erstelltes Level + Types, Wie die Anzahl zählen?

Übersicht

BlitzBasic

Allgemein

	Schranz0r Betreff: Ein mit Dim erstelltes Level + Types, Wie die Anzahl zählen?	Mi, Sep 13, 2006 18:57 Antworten mit Zitat
Hi Leute, Ich möchte die Anzahl der Bilder zählen: Code: [AUSKLAPPEN] [EINKLAPPEN] AppTitle("Type versuch") Graphics 800,600,0,2 teil = CreateImage(20,20) SetBuffer ImageBuffer(teil) Color 255,0,0 Rect 0,0,20,20,1 SetBuffer BackBuffer() Type tile Field X Field Y Field nr End Type RESTORE Leveldaten Dim map.tile(29,19) Dim Level(29,19) For Iy = 0 To 19 For Ix = 0 To 29 Read Level(Ix,Iy) Next Next Repeat Cls For Iy = 0 To 19 For Ix = 0 To 29 Select Level(Ix,Iy) Case 0 Color 0,255,0 Rect Ix20,Iy20,20,20,0 Case 1 map.tile(Ix,Iy) = New tile map(Ix,Iy)\X = Ix20 map(Ix,Iy)\Y = Iy20 DrawImage teil,map(Ix,Iy)\X,map(Ix,Iy)\Y End Select Next Next FOR map.tile(Ix,Iy) = EACH tile map(Ix,Iy)\nr = map(Ix,Iy)\nr + 1 Text 100,500, map(Ix,Iy)\nr Next Flip Until KeyHit(1) End .Leveldaten Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1 Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 Ich bekomms einfach nicht hin
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!HAUPTSACH et kost VIEL!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Schranz0r

Betreff: Ein mit Dim erstelltes Level + Types, Wie die Anzahl zählen?

Mi, Sep 13, 2006 18:57
Antworten mit Zitat

Hi Leute,

Ich möchte die Anzahl der Bilder zählen:

Code: [AUSKLAPPEN]

AppTitle("Type versuch")
Graphics 800,600,0,2

teil = CreateImage(20,20)
SetBuffer ImageBuffer(teil)
Color 255,0,0
Rect 0,0,20,20,1

SetBuffer BackBuffer()

Type tile
Field X
Field Y
Field nr
End Type

RESTORE Leveldaten
Dim map.tile(29,19)
Dim Level(29,19)
For Iy = 0 To 19
For Ix = 0 To 29
   Read Level(Ix,Iy)
Next
Next

Repeat
Cls
For Iy = 0 To 19
For Ix = 0 To 29
   Select Level(Ix,Iy)
   Case 0
      Color 0,255,0
   Rect Ix*20,Iy*20,20,20,0
   Case 1
      map.tile(Ix,Iy) = New tile
      map(Ix,Iy)\X = Ix*20
      map(Ix,Iy)\Y = Iy*20

DrawImage teil,map(Ix,Iy)\X,map(Ix,Iy)\Y


   End Select

Next
Next

      FOR map.tile(Ix,Iy) = EACH tile
            map(Ix,Iy)\nr = map(Ix,Iy)\nr + 1
            Text 100,500, map(Ix,Iy)\nr
      Next


Flip

Until KeyHit(1)
End

.Leveldaten
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Ich bekomms einfach nicht hin Sad

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!HAUPTSACH et kost VIEL!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	Smily	Mi, Sep 13, 2006 20:06 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Dim map.tile(30,20) Dim Level(30,20) -.-* du hast übrigens noch einen anderen Fehler im Code, den du allerdings auch mal selber finden und beheben sollst (Wirst du beim Starten merken)
Lesestoff: gegen Softwarepatente \| Netzzensur \| brain.exe \| Unabhängigkeitserklärung des Internets "Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!" stummi.org

Smily

Mi, Sep 13, 2006 20:06
Antworten mit Zitat

Code: [AUSKLAPPEN]

Dim map.tile(30,20)
Dim Level(30,20)

-.-*

du hast übrigens noch einen anderen Fehler im Code, den du allerdings auch mal selber finden und beheben sollst Razz

(Wirst du beim Starten merken)

Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org

	Schranz0r	Mi, Sep 13, 2006 20:14 Antworten mit Zitat
was soll mir das dann bitte bringen? Der fehler dann : Ja dann muss ich 0 to 19 auf 1 To 20 ändern usw . das meinst du, oder?
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!HAUPTSACH et kost VIEL!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Schranz0r

Mi, Sep 13, 2006 20:14
Antworten mit Zitat

was soll mir das dann bitte bringen? Confused

Der fehler dann :

Ja dann muss ich 0 to 19 auf 1 To 20 ändern usw .

das meinst du, oder?

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!HAUPTSACH et kost VIEL!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	Dreamora	Mi, Sep 13, 2006 20:42 Antworten mit Zitat
Dim Grösse 20 ist von 0 bis 20, nicht von 0 - 19 oder 1 - 20 (wie man es von anderen Sprachen kennt) Allerdings verstehe ich deine Frage schon nicht. Was willst du genau zählen? Die Anzahl Felder ist durch 30*20 schon gegeben ... Wenn du es beim zeichnen zählen willst brauchst du einen Counter, den du vor der Doppelloop fürs durchgehen auf 0 setzt und bei jedem zeichnen zählst du 1 dazu. Nach der Doppelloop weisst du dann wieviel gezeichnet wurde.
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mi, Sep 13, 2006 20:42
Antworten mit Zitat

Dim Grösse 20 ist von 0 bis 20, nicht von 0 - 19 oder 1 - 20 (wie man es von anderen Sprachen kennt)

Allerdings verstehe ich deine Frage schon nicht.

Was willst du genau zählen? Die Anzahl Felder ist durch 30*20 schon gegeben ...
Wenn du es beim zeichnen zählen willst brauchst du einen Counter, den du vor der Doppelloop fürs durchgehen auf 0 setzt und bei jedem zeichnen zählst du 1 dazu. Nach der Doppelloop weisst du dann wieviel gezeichnet wurde.

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Schranz0r	Mi, Sep 13, 2006 21:07 Antworten mit Zitat
Ich wollte die Felder zählen, die mit 1 belegt sind mehr net
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!HAUPTSACH et kost VIEL!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Schranz0r

Mi, Sep 13, 2006 21:07
Antworten mit Zitat

Ich wollte die Felder zählen, die mit 1 belegt sind mehr net Confused

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!HAUPTSACH et kost VIEL!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

	Dreamora	Mi, Sep 13, 2006 21:18 Antworten mit Zitat
dann erhöhe einfach eine Zählervariable, wenn du einem Feld 1 zuweist und senke die Variable wenn du bei einem Feld eine 1 mit irgend etwas anderem überschreibst
Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

Dreamora

Mi, Sep 13, 2006 21:18
Antworten mit Zitat

dann erhöhe einfach eine Zählervariable, wenn du einem Feld 1 zuweist und senke die Variable wenn du bei einem Feld eine 1 mit irgend etwas anderem überschreibst Smile

Ihr findet die aktuellen Projekte unter Gayasoft und könnt mich unter @gayasoft auf Twitter erreichen.

	Schranz0r	Sa, Sep 16, 2006 15:18 Antworten mit Zitat
Ja, aber so hab ich halt net das im meinen Type drin Ist aber auch egal, Dank dir, ich machs so.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!HAUPTSACH et kost VIEL!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!