Dimfeld ~ Mit Maus Felder Auswählen.

Übersicht

BlitzBasic

Beginners-Corner

	Rob_ Betreff: Dimfeld ~ Mit Maus Felder Auswählen.	Di, März 15, 2005 21:07 Antworten mit Zitat
Hi hab mal ne frage ich habe hier ein dim felderstellt und dann sollte man mit der maus über die felder gleiten und die sollten sich einfärben. Ich hab bis jetzt nur geschafft das erste feld zu makieren wenn man mit der maus drüber läuft, und wollte daher fragen wie ich das machen kann, das ich alle felder so abfragen kann. (Ich könnte ja jedes eizelne feld abfragen aber das wäre viel zu anwenig und wollt fragen ob es auch anders geht) BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600,32,2 SetBuffer BackBuffer() Dim gitter(10,10) Restore gitterdata For y = 0 To 10 For x = 0 To 10 Read gitter(x,y) Next Next While Not KeyHit(1) Cls Color 0,0,150 For y = 0 To 10 For x = 0 To 10 Rect x32,y32,32,32,0 Next Next If MouseX() > x/32 And MouseX() < x+32 And MouseY() > x/32 And MouseY() < x+32 Then Color 255,0,0 Rect x/32,y/32,32,32,0 EndIf Flip Wend End .gitterdata Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0
AMD Athlon 64 3500+ \| Infineon 1 GB DDR RAM \| nVidia Geforce 7800 GTX

Rob_

Betreff: Dimfeld ~ Mit Maus Felder Auswählen.

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

Hi hab mal ne frage ich habe hier ein dim felderstellt und dann sollte man
mit der maus über die felder gleiten und die sollten sich einfärben.
Ich hab bis jetzt nur geschafft das erste feld zu makieren wenn man mit der
maus drüber läuft, und wollte daher fragen wie ich das machen kann,
das ich alle felder so abfragen kann.

(Ich könnte ja jedes eizelne feld abfragen aber das wäre viel zu anwenig
und wollt fragen ob es auch anders geht)

BlitzBasic: [AUSKLAPPEN]

Graphics 800,600,32,2
SetBuffer BackBuffer()


Dim gitter(10,10)
Restore gitterdata
For y = 0 To 10
For x = 0 To 10
Read gitter(x,y)
Next
Next


While Not KeyHit(1)
Cls
Color 0,0,150

For y = 0 To 10
For x = 0 To 10
Rect x*32,y*32,32,32,0
Next
Next

If MouseX() > x/32 And MouseX() < x+32 And MouseY() > x/32 And MouseY() < x+32 Then 
Color 255,0,0
Rect x/32,y/32,32,32,0
EndIf 


Flip
Wend
End


.gitterdata
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0
Data 0,0,0,0,0,0,0,0,0,0,0

AMD Athlon 64 3500+ | Infineon 1 GB DDR RAM | nVidia Geforce 7800 GTX

	Rallimen Sieger des 30-EUR-Wettbewerbs	Di, März 15, 2005 21:24 Antworten mit Zitat
so geht das nicht, da x und y ja immer 11 ist wenn die Schleife beendet ist! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If MouseX() > x/32 And MouseX() < x+32 And MouseY() > x/32 And MouseY() < x+32 Then Color 255,0,0 Rect x/32,y/32,32,32,0 EndIf Du mußt deine Mausx /32 teilen und du erhälst die Spalte die markiert ist, bzw auf welchem dim feld du bist das gleiche gilt für y BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] MarkX= MouseX ()/32 Marky= MouseY()/32 Color 255 ,0,0 Rect MarkX * 32 ,Marky * 32 ,32,32,0 so müßte es gehen
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

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

so geht das nicht, da x und y ja immer 11 ist wenn die Schleife beendet ist!

BlitzBasic: [AUSKLAPPEN]

If MouseX() > x/32 And MouseX() < x+32 And MouseY() > x/32 And MouseY() < x+32 Then 
Color 255,0,0 
Rect x/32,y/32,32,32,0 
EndIf

Du mußt deine Mausx /32 teilen und du erhälst die Spalte die markiert ist, bzw auf welchem dim feld du bist
das gleiche gilt für y
BlitzBasic: [AUSKLAPPEN]

MarkX= MouseX ()/32
Marky= MouseY()/32
Color 255 ,0,0
Rect MarkX * 32 ,Marky * 32 ,32,32,0

so müßte es gehen

[BB2D | BB3D | BB+]

	Spikespine	Di, März 15, 2005 21:26 Antworten mit Zitat
Hab mal eben was gemacht... ist zwar n' bisserl anders als deins, Rob_ aber das hatte ja überhaupt keinen sinn!" BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Graphics 400,400,16,2 Dim feld(9,9) SetBuffer BackBuffer() While Not KeyHit(1) Cls For x=0 To 9 For y=0 To 9 If MouseX() > x40 And MouseX() < x40+40 And MouseY() > y40 And MouseY() < y40+40 Then feld(x,y)=1 Else feld(x,y)=0 EndIf Rect x40,y40,40,40,feld(x,y) Next Next Flip Wend hmm... zu langsam
Athlon 64 3700+ \| 1024 MB RAM \| GeForce 7900 GT \| Blitz2D, Blitz3D, BlitzPlus, BlitzMax

Spikespine

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

Hab mal eben was gemacht... ist zwar n' bisserl anders als deins, Rob_ aber das hatte ja überhaupt keinen sinn!"
BlitzBasic: [AUSKLAPPEN]

Graphics 400,400,16,2

Dim feld(9,9)
SetBuffer BackBuffer()

While Not KeyHit(1)
	Cls
	For x=0 To 9
		For y=0 To 9
			If MouseX() > x*40 And MouseX() < x*40+40 And MouseY() > y*40 And MouseY() < y*40+40 Then
				feld(x,y)=1
			Else
				feld(x,y)=0
			EndIf
			Rect x*40,y*40,40,40,feld(x,y)
		Next
	Next
	Flip
Wend

hmm... zu langsam Sad

Athlon 64 3700+ | 1024 MB RAM | GeForce 7900 GT | Blitz2D, Blitz3D, BlitzPlus, BlitzMax

Zuletzt bearbeitet von Spikespine am Di, März 15, 2005 21:29, insgesamt einmal bearbeitet

	Rob_	Di, März 15, 2005 21:28 Antworten mit Zitat
Ja es klappt, danke ralliman.
AMD Athlon 64 3500+ \| Infineon 1 GB DDR RAM \| nVidia Geforce 7800 GTX

Rob_

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

Ja es klappt, danke ralliman.

AMD Athlon 64 3500+ | Infineon 1 GB DDR RAM | nVidia Geforce 7800 GTX

	skey-z	Di, März 15, 2005 22:29 Antworten mit Zitat
ich sach auch mal danke, sowas habe ich auch noch gesucht, wollte es aber erst ma lselber probieren, aber da hier so nette Leuzt unterwegs sind, brauche ich ja erst garnicht damit anfangen^^

skey-z

Di, März 15, 2005 22:29
Antworten mit Zitat

ich sach auch mal danke, sowas habe ich auch noch gesucht, wollte es aber erst ma lselber probieren, aber da hier so nette Leuzt unterwegs sind, brauche ich ja erst garnicht damit anfangen^^

	David	Mi, März 16, 2005 8:53 Antworten mit Zitat
Das ist definitiv die falsche Einstellung skey-z! grüße

David

Mi, März 16, 2005 8:53
Antworten mit Zitat

Das ist definitiv die falsche Einstellung skey-z! Razz

grüße

	skey-z	Mi, März 16, 2005 9:58 Antworten mit Zitat
sorry, wenn es falsch rüber gekommen ist oder wenn ich mich falsch ausgedrückt habe, das Grundgerüst für meinen Editor habe ich schon fertig, wusste bisher nur nicht, wie ich einzelnen blöcke auswählen sollte, hatte mich auch noch nicht damit beschäftigt und hier ist ja ein kleiner denkanstoss von euch, den ich mir mal anschuen werde, wie es genau fuktioniert und ich ich meinem prog coden werde, also kein copy & paste, werde es nur als Lernhilfe benutzen.

skey-z

Mi, März 16, 2005 9:58
Antworten mit Zitat

sorry, wenn es falsch rüber gekommen ist oder wenn ich mich falsch ausgedrückt habe, das Grundgerüst für meinen Editor habe ich schon fertig, wusste bisher nur nicht, wie ich einzelnen blöcke auswählen sollte, hatte mich auch noch nicht damit beschäftigt und hier ist ja ein kleiner denkanstoss von euch, den ich mir mal anschuen werde, wie es genau fuktioniert und ich ich meinem prog coden werde, also kein copy & paste, werde es nur als Lernhilfe benutzen.

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Dimfeld ~ Mit Maus Felder Auswählen.

Rob_

Betreff: Dimfeld ~ Mit Maus Felder Auswählen.

Rallimen

Spikespine

Rob_

skey-z

David

skey-z