dim-Felder

Übersicht

BlitzBasic

Allgemein

	guenter Betreff: dim-Felder	Do, Sep 16, 2004 20:09 Antworten mit Zitat
Ich mache ein dim-Feld dim(10,10) und setze hinterher 2 Felder ein. Wie kann ich über die Tastatur diese Felder steuern? Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640, 480, 0, 3 KL = 20 ; Kantenlänge Stein ze = 0 ; Zeile sp = 0 ; Spalte ; Farbquadrate erstellen Stein1 = CreateImage(KL, KL) SetBuffer ImageBuffer(Stein1) Color 255,0,0 Rect 0, 0, (KL-1), (KL-1), 1 Stein2 = CreateImage(KL, KL) SetBuffer ImageBuffer(Stein2) Color 255,0,0 Rect 0, 0, (KL-1), (KL-1), 1 ; Rand SteinL = CreateImage(kl, kl) SetBuffer ImageBuffer(SteinL) Color 127,127,127 Rect 0, 0, kl, kl, 1 SteinM = CreateImage(KL, KL) SetBuffer ImageBuffer(SteinM) Color 255,255,0 Rect 0, 0, (KL-1), (KL-1), 1 ;Stop ; Level lesen Dim Feld(10,10) Felddatei = ReadFile("qu.dat") For ze = 1 To 10 A$ = ReadLine(Felddatei) For sp = 1 To 10 B = Mid$(A$, sp,1) Feld(ze,sp) = B Next Next SetBuffer BackBuffer() ;SetBuffer FrontBuffer() While Not KeyDown(1) Cls ; Level zeichnen ;Stop For ze = 1 To 10 For sp = 1 To 10 B = Feld(ze, sp) Select B Case 1 DrawImage SteinL, 50 +spkl, 30 + zekl Case 0 DrawImage SteinM, 50 + spkl, 30 + zekl End Select Next Next ; Quadrate einfügen DrawImage Stein1, 50 +5kl, 30 + 3kl x=50+5kl y=30+3kl DrawImage Stein2, 50 +7kl, 30 + 3kl x=50+5kl y=30+3kl ; bewegen ??? Flip Wend Für die Antwort im Voraus herzlichen Dank

guenter

Betreff: dim-Felder

Do, Sep 16, 2004 20:09
Antworten mit Zitat

Ich mache ein dim-Feld dim(10,10) und setze hinterher 2 Felder ein. Wie kann ich über die Tastatur diese Felder steuern?

Code: [AUSKLAPPEN]

Graphics 640, 480, 0, 3
KL = 20 ; Kantenlänge Stein
ze = 0 ; Zeile
sp = 0 ; Spalte

; Farbquadrate erstellen

Stein1 = CreateImage(KL, KL)
SetBuffer ImageBuffer(Stein1)

Color 255,0,0

Rect 0, 0, (KL-1), (KL-1), 1

Stein2 = CreateImage(KL, KL)
SetBuffer ImageBuffer(Stein2)

Color 255,0,0

Rect 0, 0, (KL-1), (KL-1), 1

; Rand
SteinL = CreateImage(kl, kl)
   SetBuffer ImageBuffer(SteinL)

Color 127,127,127
Rect 0, 0, kl, kl, 1

SteinM = CreateImage(KL, KL)
   SetBuffer ImageBuffer(SteinM)

Color 255,255,0
Rect 0, 0, (KL-1), (KL-1), 1

;Stop
; Level lesen
Dim Feld(10,10)
Felddatei = ReadFile("qu.dat")
For ze = 1 To 10
      A$ = ReadLine(Felddatei)
   For sp = 1 To 10
   B = Mid$(A$, sp,1)
   Feld(ze,sp) = B

   Next
Next

SetBuffer BackBuffer()
;SetBuffer FrontBuffer()
While Not KeyDown(1)
Cls
; Level zeichnen
;Stop
For ze = 1 To 10
For sp = 1 To 10
   B = Feld(ze, sp)
Select B
Case 1
DrawImage SteinL, 50 +sp*kl, 30 + ze*kl
Case 0
DrawImage SteinM, 50 + sp*kl, 30 + ze*kl

End Select

Next
Next

; Quadrate einfügen

DrawImage Stein1, 50 +5*kl, 30 + 3*kl
x=50+5*kl
y=30+3*kl

DrawImage Stein2, 50 +7*kl, 30 + 3*kl
x=50+5*kl
y=30+3*kl

; bewegen ???

Flip
Wend

Für die Antwort im Voraus herzlichen Dank

	Hubsi	Do, Sep 16, 2004 22:34 Antworten mit Zitat
Mit KeyDown() und die Positionen in Variablen speichern. Fertisch
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Do, Sep 16, 2004 22:34
Antworten mit Zitat

Mit KeyDown() und die Positionen in Variablen speichern. Fertisch Wink

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

	Kabelbinder Sieger des WM-Contest 2006	Sa, Sep 18, 2004 11:09 Antworten mit Zitat
du müsstest dich von dem Dim(10,10) glaube ich verabschieden, weil du du damit ja automatisch die Koordinaten jedes einzelnen Quadrat bestimmst (linear). nimm lieber: Dim(100,2) das bedeutet: 100 Felder(10*10=100 ) mit je 2 eigenschaften nämlich xkoordinate und ykoordinate. Diese kannst du dann mit den Pfeiltasten Steuern. Falls du im Besitz des Buchs des legendären Rene Meyers bist (ich hab jetzt noch die alte Version) schau mal auf Seite 145 nach. da wird die zweite Dimension auch für die Eigenschaft verwendet. Wenn dir das ganze nich so zusagt nimm doch Types , die ich persönlich nicht zu benutzen pflege. Viel Erfolg bei deinen weiteren Schritten.
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Kabelbinder

Sieger des WM-Contest 2006

Sa, Sep 18, 2004 11:09
Antworten mit Zitat

du müsstest dich von dem Dim(10,10) glaube ich verabschieden, weil du du damit ja automatisch die Koordinaten jedes einzelnen Quadrat bestimmst (linear).

nimm lieber:

Dim(100,2)
das bedeutet: 100 Felder(10*10=100 Smile

) mit je 2 eigenschaften nämlich xkoordinate und ykoordinate. Diese kannst du dann mit den Pfeiltasten Steuern.

Falls du im Besitz des Buchs des legendären Rene Meyers bist (ich hab jetzt noch die alte Version) schau mal auf Seite 145 nach. da wird die zweite Dimension auch für die Eigenschaft verwendet.

Wenn dir das ganze nich so zusagt nimm doch Types Mad

, die ich persönlich nicht zu benutzen pflege.

Viel Erfolg bei deinen weiteren Schritten.