mehrere imagesrectoverlap-abfragen hintereinander

Übersicht

BlitzBasic

Allgemein

	TBP1 Betreff: mehrere imagesrectoverlap-abfragen hintereinander	Sa, Jun 26, 2004 19:52 Antworten mit Zitat
Hi! Aller guten Dinge sind drei (Siehe hier https://www.blitzforum.de/viewtopic.php?t=4054 und hier https://www.blitzforum.de/viewtopic.php?t=4036). Im Menü kann ich jetzt die Buttons anwählen und in Untermenüs gelangen, das funktioniert aber nur bei einem Button, nämlich den ersten der Angegeben ist. Der sieht (ungefähr) so aus:Code: [AUSKLAPPEN] [EINKLAPPEN] If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and Getmouse() = 1 then goto Untermenü1 If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 160, 275, 60) and Getmouse() = 1 then goto Untermenü2 Ich kann jetzt nur das erste Untermenü anwählen, könnt ihr mir sagen was falsch ist?(vollständigen Code bei Anfrage(Projekt ist auf einem anderen PC)).

TBP1

Betreff: mehrere imagesrectoverlap-abfragen hintereinander

Sa, Jun 26, 2004 19:52
Antworten mit Zitat

Hi!
Aller guten Dinge sind drei Wink

(Siehe hier https://www.blitzforum.de/viewtopic.php?t=4054 und hier https://www.blitzforum.de/viewtopic.php?t=4036). Im Menü kann ich jetzt die Buttons anwählen und in Untermenüs gelangen, das funktioniert aber nur bei einem Button, nämlich den ersten der Angegeben ist.
Der sieht (ungefähr) so aus:Code: [AUSKLAPPEN]

If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and Getmouse() = 1 then goto Untermenü1
If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 160, 275, 60) and Getmouse() = 1 then goto Untermenü2

Ich kann jetzt nur das erste Untermenü anwählen, könnt ihr mir sagen was falsch ist?(vollständigen Code bei Anfrage(Projekt ist auf einem anderen PC)).

	Holzchopf Meisterpacker	Sa, Jun 26, 2004 20:08 Antworten mit Zitat
Dein Problem ist GetMouse(), da dies nur 1 zurückliefert, wenn eine Maustaste seit dem letzten Aufruf gedrückt wurde - und dafür ist zwischen 2 Zeilen Code nicht viel Zeit. Machs einfach so: Code: [AUSKLAPPEN] [EINKLAPPEN] gmouse = GetMouse() If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and gmouse = 1 then goto Untermenü1 If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 160, 275, 60) and gmouse = 1 then goto Untermenü2
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018) Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

Holzchopf

Meisterpacker

Sa, Jun 26, 2004 20:08
Antworten mit Zitat

Dein Problem ist GetMouse(), da dies nur 1 zurückliefert, wenn eine Maustaste seit dem letzten Aufruf gedrückt wurde - und dafür ist zwischen 2 Zeilen Code nicht viel Zeit.

Machs einfach so:

Code: [AUSKLAPPEN]

gmouse = GetMouse()
If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and gmouse = 1 then goto Untermenü1
If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 160, 275, 60) and gmouse = 1 then goto Untermenü2

Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018)
Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

	TBP1	Sa, Jun 26, 2004 20:18 Antworten mit Zitat
danke, probier ich gleich mal aus.

TBP1

Sa, Jun 26, 2004 20:18
Antworten mit Zitat

danke, probier ich gleich mal aus.

	Blitzkrieg Bop	Sa, Jun 26, 2004 21:12 Antworten mit Zitat
Geht auch so: Code: [AUSKLAPPEN] [EINKLAPPEN] If Mousehit(1) mhit = 1 endif If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and mhit = 1 then goto Untermenü1 :mhit = 0
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Sa, Jun 26, 2004 21:12
Antworten mit Zitat

Geht auch so:
Code: [AUSKLAPPEN]

If Mousehit(1)
mhit = 1
endif

If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and mhit = 1 then goto Untermenü1 :mhit = 0

~ Hey Ho Let's Go ~

	TBP1	Sa, Jun 26, 2004 21:58 Antworten mit Zitat
hat leider nicht funktioniert Versuch ich halt die andere Variante

TBP1

Sa, Jun 26, 2004 21:58
Antworten mit Zitat

hat leider nicht funktioniert Sad

Versuch ich halt die andere Variante Very Happy

	zocker2150	So, Jun 27, 2004 0:42 Antworten mit Zitat
Also das müsste vom prinzip her schon gehen. Bist du dir auch sicher, dass du die Koordinaten richtig eingetippt hast? X= 700 erscheint mir etwas zu viel. Bei mir hat´s auf jedenfall funktioniert.

zocker2150

So, Jun 27, 2004 0:42
Antworten mit Zitat

Also das müsste vom prinzip her schon gehen.
Bist du dir auch sicher, dass du die Koordinaten richtig eingetippt hast? X= 700 erscheint mir etwas zu viel.

Bei mir hat´s auf jedenfall funktioniert.

	Edlothiol	So, Jun 27, 2004 12:08 Antworten mit Zitat
Das wird bei mehreren Schaltflächen nicht klappen, da mhit nach der ersten wieder auf 0 gesetzt wird. Mach mal das : mhit = 0 weg.

Edlothiol

So, Jun 27, 2004 12:08
Antworten mit Zitat

Das wird bei mehreren Schaltflächen nicht klappen, da mhit nach der ersten wieder auf 0 gesetzt wird. Mach mal das : mhit = 0 weg.

	Hubsi	So, Jun 27, 2004 12:15 Antworten mit Zitat
mhit wird nicht auf 0 gesetzt da es hinter einem Goto steht. Selbst wenn es davor stehen würde änderte das nichts, weil es auch nur auf 0 gesetzt würde wenn das Untermenü angesprungen wird
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Jun 27, 2004 12:15
Antworten mit Zitat

mhit wird nicht auf 0 gesetzt da es hinter einem Goto steht. Selbst wenn es davor stehen würde änderte das nichts, weil es auch nur auf 0 gesetzt würde wenn das Untermenü angesprungen wird Wink

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

	Blitzkrieg Bop	So, Jun 27, 2004 12:21 Antworten mit Zitat
Hmm, da hab ich nicht genau geguckt, aber so müsste es gehen: Code: [AUSKLAPPEN] [EINKLAPPEN] If MouseHit(1) mhit = 1 endif If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and mhit = 1 then goto Untermenü1 .Untermenü1 mhit = 0 ;bla
~ Hey Ho Let's Go ~

Blitzkrieg Bop

So, Jun 27, 2004 12:21
Antworten mit Zitat

Hmm, da hab ich nicht genau geguckt, aber so müsste es gehen:
Code: [AUSKLAPPEN]

If MouseHit(1)
mhit = 1
endif

If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) and mhit = 1 then goto Untermenü1

.Untermenü1
mhit = 0
;bla

~ Hey Ho Let's Go ~

	Hubsi	So, Jun 27, 2004 12:25 Antworten mit Zitat
Jup
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

So, Jun 27, 2004 12:25
Antworten mit Zitat

Jup

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

	sbrog	So, Jun 27, 2004 12:43 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] if mousehit(1) If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) then goto untermenü1 If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 160, 275, 60) then goto untermenü1 Endif

sbrog

So, Jun 27, 2004 12:43
Antworten mit Zitat

Code: [AUSKLAPPEN]

if mousehit(1)
If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 60, 275, 60) then goto untermenü1
If imagesrectoverlap(Mauszeiger, MausX, MausY, 700, 160, 275, 60) then goto untermenü1
Endif

	TBP1	Mo, Jun 28, 2004 18:41 Antworten mit Zitat
Danke euch allen! Es hat jetzt funktioniert, mit dem Menü dürfte ich jetzt keine Problem mehr haben( hoffe ich zumindestens ).

TBP1

Mo, Jun 28, 2004 18:41
Antworten mit Zitat

Danke euch allen!
Es hat jetzt funktioniert, mit dem Menü dürfte ich jetzt keine Problem mehr haben( hoffe ich zumindestens Wink

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

mehrere imagesrectoverlap-abfragen hintereinander

Betreff: mehrere imagesrectoverlap-abfragen hintereinander