Individuell auf Bilder zugreifen

Übersicht

BlitzBasic

Beginners-Corner

	SenSix Betreff: Individuell auf Bilder zugreifen	Do, Nov 10, 2005 23:10 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Function draw_dots() For n = 1 To 300 DrawImage punkt, dots_X, dots_Y dots_X = dots_X + 32 If dots_X = 608 Then dots_X = 0 dots_Y = dots_Y + 32 EndIf Next End Function Wenn ich viele Punkte mit dieser Funktion male, wie kann ich dann auf jeden einzelnen Punkt zugreifen? Mit Einem Array (VariablenFeld) habe ich es schon versucht, das geht nicht (weil punkt(n) meiner Erfahrung nach nicht geht). Kennt jemand eine andere Loesung?

SenSix

Betreff: Individuell auf Bilder zugreifen

Do, Nov 10, 2005 23:10
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

Function draw_dots()
 For n = 1 To 300
  DrawImage punkt, dots_X, dots_Y
  dots_X = dots_X + 32
  If dots_X = 608 Then 
   dots_X = 0
   dots_Y = dots_Y + 32
  EndIf
 Next
End Function

Wenn ich viele Punkte mit dieser Funktion male, wie kann ich dann auf jeden einzelnen Punkt zugreifen? Mit Einem Array (VariablenFeld) habe ich es schon versucht, das geht nicht (weil punkt(n) meiner Erfahrung nach nicht geht). Kennt jemand eine andere Loesung?

	blitzatius	Do, Nov 10, 2005 23:25 Antworten mit Zitat
Hallo, mit types müsste es eigentlich gehen. Versuch mal so: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 300,300,32,2 SetBuffer BackBuffer() Type punkt Field x Field y End Type For s=0 To 100 p.punkt=New punkt p\x=Rand(295) p\y=Rand(295) Next Function drawpoints() For p.punkt=Each punkt Rect p\x,p\y,5,5,1 If MouseX()>p\x And MouseX()<p\x+5 And MouseY()>p\y And MouseY()<p\y+5 And MouseDown(1) Then p\x=Rand(300) p\y=Rand(300) EndIf Next End Function Repeat Cls Text 0,0,"Klick auf die Punkte mit Maus" drawpoints() Flip Until KeyHit(1) End

blitzatius

Do, Nov 10, 2005 23:25
Antworten mit Zitat

Hallo,
mit types müsste es eigentlich gehen.

Versuch mal so:

Code: [AUSKLAPPEN]

Graphics 300,300,32,2
SetBuffer BackBuffer()

Type punkt
Field x
Field y
End Type

For s=0 To 100
p.punkt=New punkt
p\x=Rand(295)
p\y=Rand(295)
Next

Function drawpoints()
For p.punkt=Each punkt
   Rect p\x,p\y,5,5,1
   If MouseX()>p\x And MouseX()<p\x+5 And MouseY()>p\y And MouseY()<p\y+5 And MouseDown(1) Then
      p\x=Rand(300)
      p\y=Rand(300)
   EndIf
Next
End Function

Repeat
Cls

Text 0,0,"Klick auf die Punkte mit Maus"
drawpoints()
Flip
Until KeyHit(1)
End

	SenSix	Fr, Nov 11, 2005 18:12 Antworten mit Zitat
Danke qwer, aber fuer den Code haettest du dir keine Muehe machen sollen. Ich lern jetzt erstmals des mit den Types und versuch es selbet, trotzdem vielen dank

SenSix

Fr, Nov 11, 2005 18:12
Antworten mit Zitat

Danke qwer, aber fuer den Code haettest du dir keine Muehe machen sollen. Ich lern jetzt erstmals des mit den Types und versuch es selbet, trotzdem vielen dank Very Happy