Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Turnierpaarungen zufällig auslosen?
Autor: RinGosTarR
Datum: 18.06.04 14:15
So ich hatte die letzten Tage keine Zeit und habs heute mal wieder versucht es funktioniert schon fast aber leider ist immer noch ein fehler drin das einem Teilnehmer 2 paarungen zugelost werden :=( aber eben immer nur einem List3.Clear For xx = 1 To maxanzahl eout = 0 ' Hier schaue ich ob spieler xx diese runde schon jemandem zugelost wurde For uu = 0 To List3.ListCount If xx = List3.List(uu) Then eout = 1 End If Next If eout = 1 Then GoTo tjump End If ' Hier schaue ich an welcher stelle des hilfsarrays der aktuelle spieler steht For vv = 1 To maxanzahl If pdata(xx, 0) & " " & pdata(xx, 1) & " " & pdata(xx, 2) = tmpschweizer(vv, 0) Then Index = vv Exit For End If Next ' Hier beginnt die gegnersuche For nn = xx + 1 To maxanzahl exist = 0 hier schaue ich für alle runden ob es die paarung "xx" gegen "nn" schon gegeben hat For yy = 1 To runden - 1 If tmpschweizer(Index, yy) = pdata(nn, 0) & " " & pdata(nn, 1) & " " & pdata(nn, 2) Then exist = 1 End If Next 'Wenn es die paarung noch nicht gab wird sie ein List2 eingetragen If exist = 0 Then List2.AddItem pdata(xx, 0) & " " & pdata(xx, 1) & " gegen " & pdata(nn, 0) & " " & pdata(nn, 1) 'hier wird sie dann in das hilfsarray eingetragen ist nur zum testen auskomentiert 'tmpschweizer(Index, aktrunde) = pdata(nn, 0) & " " & pdata(nn, 1) & " " & pdata(nn, 2) 'hier schreibe ich die paarung in List3 um keine doppelte paarung zu bekommen List3.AddItem nn List3.AddItem xx Exit For End If Next tjump: Next leider kommt es oft vor das eine spieler gar nicht ausgelost wird und ein anderer dafür doppelt???

Turnierpaarungen zufällig auslosen?	1.820	RinGosTarR	09.06.04 16:00
Re: Turnierpaarungen zufällig auslosen?	987	apo	09.06.04 23:38
Re: Turnierpaarungen zufällig auslosen?	854	Zardoz	10.06.04 12:08
Re: Turnierpaarungen zufällig auslosen?	835	devnull	11.06.04 08:06
Re: Turnierpaarungen zufällig auslosen?	874	RinGosTarR	11.06.04 09:51
Re: Turnierpaarungen zufällig auslosen?	913	devnull	11.06.04 10:52
Re: Turnierpaarungen zufällig auslosen?	840	devnull	11.06.04 10:53
Re: Turnierpaarungen zufällig auslosen?	822	RinGosTarR	11.06.04 15:05
Re: Turnierpaarungen zufällig auslosen?	765	devnull	11.06.04 16:01
Re: Turnierpaarungen zufällig auslosen?	771	RinGosTarR	11.06.04 22:44
Re: Turnierpaarungen zufällig auslosen?	768	devnull	12.06.04 12:44
Re: Turnierpaarungen zufällig auslosen?	806	RinGosTarR	12.06.04 12:50
Re: Turnierpaarungen zufällig auslosen?	779	RinGosTarR	14.06.04 08:44
Re: Turnierpaarungen zufällig auslosen?	752	Kanngarnix	14.06.04 10:36
Re: Turnierpaarungen zufällig auslosen?	747	RinGosTarR	14.06.04 20:49
Re: Turnierpaarungen zufällig auslosen?	750	Kanngarnix	14.06.04 22:32
Re: Turnierpaarungen zufällig auslosen?	857	RinGosTarR	18.06.04 14:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen