Raster

Übersicht

BlitzBasic

Beginners-Corner

Gehe zu Seite Zurück 1, 2

	Kifferopa Gast	Di, März 15, 2005 14:52 Antworten mit Zitat
Ist meine Methode umständlich?

Kifferopa

Gast

Di, März 15, 2005 14:52
Antworten mit Zitat

Ist meine Methode umständlich? Rolling Eyes

	Jan_ Ehemaliger Admin	Di, März 15, 2005 15:03 Antworten mit Zitat
jap. ok, ich würde es so machen, BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Rect Int(MouseX()/80.0)80, Int(MouseY()/80.0)80,80,80,0
between angels and insects

Jan_

Ehemaliger Admin

Di, März 15, 2005 15:03
Antworten mit Zitat

jap.

ok, ich würde es so machen,
BlitzBasic: [AUSKLAPPEN]

Rect Int(MouseX()/80.0)*80, Int(MouseY()/80.0)*80,80,80,0

between angels and insects

	Kifferopa Gast	Di, März 15, 2005 15:04 Antworten mit Zitat
Erscheint mir irgendwie noch komplizirter. Aber egal jetz

Kifferopa

Gast

Di, März 15, 2005 15:04
Antworten mit Zitat

Erscheint mir irgendwie noch komplizirter. Aber egal jetz Wink

	Oetzicool	Di, März 15, 2005 21:31 Antworten mit Zitat
Hey sorry nochmal aber jetzt bin ich schon wieder auf ein Problem gestoßen also wenn ich des jetzt erweiter also das größer ist als der Bildschirm will ich ja wieder die koordinaten angegeben bekommen aber irgendwie berechnet der sie immer neu an dem aktuellen bildschirm also wenn ich des ganze rsater un 8 felder nach rechts verschiebe zeigt er satt "8" halt "1" an kann mir da auch einer helfen hier ist der Code: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,32,2 Global x_position=0 Global y_position=0 Global Block_size=50 Global Block_anzahl=30 Block_line=Block_sizeBlock_anzahl Startpunkt=Floor(Block_line/2) SetBuffer BackBuffer() While Not KeyHit(1) Cls ;Startpunkt festlegen Origin -Startpunkt,-Startpunkt ;Raster zeichnen Color 106,106,106 For x_position=0 To Block_line Step 50 For y_position=0 To Block_line Step 50 Rect x_position,y_position,Block_size,Block_size,0 Next Next ;Markierung und Koordinaten berechnen Color 255,255,255 Rect (Floor((MouseX()-5)/Block_size)Block_size)+Startpunkt,(Floor((MouseY()-5)/Block_size)Block_size)+Startpunkt,Block_size,Block_size,0 koordinaten_x=(Floor(((MouseX()+Startpunkt)-5)/(Block_line/2))Block_anzahl)+1 koordinaten_y=(Floor((MouseY()-5)/Block_size))+1 Rect Startpunkt+525,Startpunkt+20,100,20,1 ;Koordinaten angeben Arial=LoadFont(\"Arial\",12,1,0,0) SetFont Arial Color 0,0,0 Text Startpunkt+530,Startpunkt+25, \"Koordinaten: \" +koordinaten_x+ \"/\" +koordinaten_y FreeFont Arial Flip Wend WaitKey End

Oetzicool

Di, März 15, 2005 21:31
Antworten mit Zitat

Hey sorry nochmal aber jetzt bin ich schon wieder auf ein Problem gestoßen also wenn ich des jetzt erweiter also das größer ist als der Bildschirm will ich ja wieder die koordinaten angegeben bekommen aber irgendwie berechnet der sie immer neu an dem aktuellen bildschirm also wenn ich des ganze rsater un 8 felder nach rechts verschiebe zeigt er satt "8" halt "1" an kann mir da auch einer helfen hier ist der Code:

BlitzBasic: [AUSKLAPPEN]

Graphics 640,480,32,2

Global x_position=0
Global y_position=0
Global Block_size=50
Global Block_anzahl=30

Block_line=Block_size*Block_anzahl
Startpunkt=Floor(Block_line/2)

SetBuffer BackBuffer()
While Not KeyHit(1)
Cls

;Startpunkt festlegen
Origin -Startpunkt,-Startpunkt
;Raster zeichnen
Color 106,106,106
	For x_position=0 To Block_line Step 50
	For y_position=0 To Block_line Step 50
	Rect x_position,y_position,Block_size,Block_size,0
	Next
	Next

;Markierung und Koordinaten berechnen
Color 255,255,255
	
Rect (Floor((MouseX()-5)/Block_size)*Block_size)+Startpunkt,(Floor((MouseY()-5)/Block_size)*Block_size)+Startpunkt,Block_size,Block_size,0
koordinaten_x=(Floor(((MouseX()+Startpunkt)-5)/(Block_line/2))*Block_anzahl)+1
koordinaten_y=(Floor((MouseY()-5)/Block_size))+1


Rect Startpunkt+525,Startpunkt+20,100,20,1

;Koordinaten angeben
Arial=LoadFont(\"Arial\",12,1,0,0)
SetFont Arial
Color 0,0,0
Text Startpunkt+530,Startpunkt+25, \"Koordinaten: \" +koordinaten_x+ \"/\" +koordinaten_y
FreeFont Arial

Flip
Wend

WaitKey
End

Gehe zu Seite Zurück 1, 2

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Raster

Kifferopa

Jan_

Kifferopa

Oetzicool