"alles Außer" operator?

[D4uS1]

Ich habe eine Liste auf der man einzelne Segmente auswählen kann. Diese Segmente sind Arrays. Wenn ich aber nun ein Segment auswähle, kann ich immer noch die andren hinzufügen, ich hätte es aber gerne so das immer nur eine Auswahl möglich ist. Gibt es einen "alles Ausser" operator für solche zwecke?

Code: Alles auswählen

initSprite()
initKeyboard()

OpenScreen(1024, 768, 16, "Liste")

Structure Liste
  x.w
y.w
Auswahl.w
endStructure

dim ListenAbschnitt.Liste(30)

for x = 0 to 30 
 Liste(x)\x = 10
 Liste(x)\y = x*20
next

repeat
examineMouse()
examineKeyboard()

for x = 0 to 30
 If mouseX() > Liste(x) and mouseX() < Liste(x) + Listenabschnittbreite and MouseY() > Liste(x)\y and MouseY() < Liste(x)\y + listenabschnitthöhe

If mousebutton(1) = #True and   ;Jetzt die Zeile die ich Brauche, übersetzt: Wenn noch keine Auswahl getroffen wurde... 
  Liste(x)\Auswahl = 1
elseif  ... Wenn eine Andre auswahl getroffen wurd und die eine schon existiert, so entferne die eine und erstelle die neue
endif
endif
next

Until Keyboardpushed(1)

EDIT: Warum hat der das hier so verwurschtelt? Nicht drauf achten bitte.

[HeX0R]

Hä ?
Meinst du:

Code: Alles auswählen

If mousebutton(1) = #True and Liste(x)\Auswahl <> 1

?

[D4uS1]

nicht ganz,

Ich möchte sozusagen eine Exel Tabelle haben bei der nur ein Abschnitt auf einmal gewählt werden kann.

[HeX0R]

Auch auf die Gefahr hin mich jetzt völlig zum Affen zu machen (weil ichs immernoch nicht blicke)

So ?

Code: Alles auswählen

InitSprite()
InitKeyboard()

OpenScreen(1024, 768, 16, "Liste")

Structure Liste
	x.w
	y.w
	Auswahl.w
EndStructure

Dim ListenAbschnitt.Liste(30)

For x = 0 To 30
	Liste(x)\x = 10
	Liste(x)\y = x*20
Next

Auswahl.l = -1
Repeat
	ExamineMouse()
	ExamineKeyboard()

	For x = 0 To 30
		If MouseX() > Liste(x)\x And MouseX() < Liste(x)\x + Listenabschnittbreite And MouseY() > Liste(x)\y And MouseY() < Liste(x)\y + listenabschnitthöhe

			If MouseButton(1) = #True
				If Auswahl = -1
					Liste(x)\Auswahl = 1
					Auswahl          = x
				Else
					Liste(Auswahl)\Auswahl = 0
					Auswahl                = -1
				EndIf
			EndIf
		EndIf
	Next

Until KeyboardPushed(1)

[Kaeru Gaman]

keiner macht sich hier zum affen (auch ich nich, obwohl ich über 2°% poste)

der punkt is... sowas proggt man selber.

also sorry, aufrecht stehender inflatio, WO ist dein problem?

[D4uS1]

danke @ Hexor!!!!!

@Kaeru Gaman: Aufrecht stehender Inflatio, das muss ich mir merken^^

[Xaby]

Mmmm, komisch komisch.

Sucht du wirklich einen Operator wie AND, OR, XOR ... NOT

oder suchst du einfach sowas wie

#PB_ListView_Multiselect | #PB_ListView_ClickSelect

nur davon das Gegenteil?


Oder doch lieber AUSWAHL UMKEHREN ...

Ne, ich versteh es nicht.

[ts-soft]

Code: Alles auswählen

Macro AllesAusser
  <>
EndMacro

Funktioniert

[Kaeru Gaman]

> @Kaeru Gaman: Aufrecht stehender Inflatio, das muss ich mir merken^^

...war auch nicht böse gemeint, nur eine spontane lyrische umsetzung deines nicknames...

(meine güte, dass ich gestern noch gepostet hab... hoffentlich hab ich nicht wo anders richtig scheiße geschrieben...)

[D4uS1]

ich weiß das das nicht böse gemeint war, aber <> hat auch nicht funktioniert, ich hab eine zweite for dingens da eingefügt und hab sozusagen beide gegeneinander ausgespielt, jetzt hats funktioniert, ich kann nur noch teile wählen wenn keine anderen gewählt sind, trotzdem thx an alle die mir helfen wollten!