Turnierbaum HILFE

TwiTIn · 24. März 2013, 14:56

Moin Community,

Ich bräuchte einmal eure Hilfe. Ich programmiere grade für ein Freund ein Turnierbaumscript. Dabei hab ich 3 Abteilungen (Für: 8-, 16-, 32-Leute). So Das für 8 und 16 funktioniert perfekt ohne Fehler. Aber bei dem 32-Leute Baum ist da irgendwie ein Fehler.

Hier ein Bild für das 32-Leute Turnier:

Spoiler anzeigen

Sobald man auf Generate Drückt wird erstmal jedem äußeren Button ein Spieler zugelost und ein Timer aktiviert. Dieser soll dann überprüfen ob ein Name doppelt ist und dann für einen von den Buttons dann neu generieren. So das macht der dann solange bis halt keiner mehr zwei mal vorkommt. Bei 8- und 16- Leuten funktioniert das lückenlos perfekt. Bloß bei dem 32-Leute kann er die letzten 4 nicht generieren weil er nie den richtigen findet. Hatte den Interval vom Timer schon auf 1 trtzdm findet der keinen hab schon alle Intervalle von 1 - 100 probiert.

Timer1 Quellcode:

Spoiler anzeigen

VB.NET-Quellcode

If B25.Text = B24.Text Or B25.Text = B23.Text Or B25.Text =
B22.Text Or B25.Text = B21.Text Or B25.Text = B20.Text Or B25.Text =
B19.Text Or B25.Text = B18.Text Or B25.Text = B17.Text Or B25.Text =
B16.Text Or B25.Text = B15.Text Or B25.Text = B14.Text Or B25.Text =
B13.Text Or B25.Text = B12.Text Or B25.Text = B11.Text Or B25.Text =
B10.Text Or B25.Text = B9.Text Or B25.Text = B8.Text Or B25.Text =
B7.Text Or B25.Text = B6.Text Or B25.Text = B5.Text Or B25.Text =
B4.Text Or B25.Text = B3.Text Or B25.Text = B2.Text Or B25.Text =
B1.Text Then
Dim theWord24 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B25.Text = theWord24
End If
If B26.Text = B25.Text Or B26.Text = B24.Text Or B26.Text =
B23.Text Or B26.Text = B22.Text Or B26.Text = B21.Text Or B26.Text =
B20.Text Or B26.Text = B19.Text Or B26.Text = B18.Text Or B26.Text =
B17.Text Or B26.Text = B16.Text Or B26.Text = B15.Text Or B26.Text =
B14.Text Or B26.Text = B13.Text Or B26.Text = B12.Text Or B26.Text =
B11.Text Or B26.Text = B10.Text Or B26.Text = B9.Text Or B26.Text =
B8.Text Or B26.Text = B7.Text Or B26.Text = B6.Text Or B26.Text =
B5.Text Or B26.Text = B4.Text Or B26.Text = B3.Text Or B26.Text =
B2.Text Or B26.Text = B1.Text Then
Dim theWord25 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B26.Text = theWord25
End If
If B27.Text = B26.Text Or B27.Text = B25.Text Or B27.Text =
B24.Text Or B27.Text = B23.Text Or B27.Text = B22.Text Or B27.Text =
B21.Text Or B27.Text = B20.Text Or B27.Text = B19.Text Or B27.Text =
B18.Text Or B27.Text = B17.Text Or B27.Text = B16.Text Or B27.Text =
B15.Text Or B27.Text = B14.Text Or B27.Text = B13.Text Or B27.Text =
B12.Text Or B27.Text = B11.Text Or B27.Text = B10.Text Or B27.Text =
B9.Text Or B27.Text = B8.Text Or B27.Text = B7.Text Or B27.Text =
B6.Text Or B27.Text = B5.Text Or B27.Text = B4.Text Or B27.Text =
B3.Text Or B27.Text = B2.Text Or B27.Text = B1.Text Then
Dim theWord26 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B27.Text = theWord26
End If
If B28.Text = B27.Text Or B28.Text = B26.Text Or B28.Text =
B25.Text Or B28.Text = B24.Text Or B28.Text = B23.Text Or B28.Text =
B22.Text Or B28.Text = B21.Text Or B28.Text = B20.Text Or B28.Text =
B19.Text Or B28.Text = B18.Text Or B28.Text = B17.Text Or B28.Text =
B16.Text Or B28.Text = B15.Text Or B28.Text = B14.Text Or B28.Text =
B13.Text Or B28.Text = B12.Text Or B28.Text = B11.Text Or B28.Text =
B10.Text Or B28.Text = B9.Text Or B28.Text = B8.Text Or B28.Text =
B7.Text Or B28.Text = B6.Text Or B28.Text = B5.Text Or B28.Text =
B4.Text Or B28.Text = B3.Text Or B28.Text = B2.Text Or B28.Text =
B1.Text Then
Dim theWord27 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B28.Text = theWord27
End If
If B29.Text = B28.Text Or B29.Text = B27.Text Or B29.Text =
B26.Text Or B29.Text = B25.Text Or B29.Text = B24.Text Or B29.Text =
B23.Text Or B29.Text = B22.Text Or B29.Text = B21.Text Or B29.Text =
B20.Text Or B29.Text = B19.Text Or B29.Text = B18.Text Or B29.Text =
B17.Text Or B29.Text = B16.Text Or B29.Text = B15.Text Or B29.Text =
B14.Text Or B29.Text = B13.Text Or B29.Text = B12.Text Or B29.Text =
B11.Text Or B29.Text = B10.Text Or B29.Text = B9.Text Or B29.Text =
B8.Text Or B29.Text = B7.Text Or B29.Text = B6.Text Or B29.Text =
B5.Text Or B29.Text = B4.Text Or B29.Text = B3.Text Or B29.Text =
B2.Text Or B29.Text = B1.Text Then
Dim theWord28 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B29.Text = theWord28
End If
If B30.Text = B29.Text Or B30.Text = B28.Text Or B30.Text =
B27.Text Or B30.Text = B26.Text Or B30.Text = B25.Text Or B30.Text =
B24.Text Or B30.Text = B23.Text Or B30.Text = B22.Text Or B30.Text =
B21.Text Or B30.Text = B20.Text Or B30.Text = B19.Text Or B30.Text =
B18.Text Or B30.Text = B17.Text Or B30.Text = B16.Text Or B30.Text =
B15.Text Or B30.Text = B14.Text Or B30.Text = B13.Text Or B30.Text =
B12.Text Or B30.Text = B11.Text Or B30.Text = B10.Text Or B30.Text =
B9.Text Or B30.Text = B8.Text Or B30.Text = B7.Text Or B30.Text =
B6.Text Or B30.Text = B5.Text Or B30.Text = B4.Text Or B30.Text =
B3.Text Or B30.Text = B2.Text Or B30.Text = B1.Text Then
Dim theWord29 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B30.Text = theWord29
End If
If B31.Text = B30.Text Or B31.Text = B29.Text Or B31.Text =
B28.Text Or B31.Text = B27.Text Or B31.Text = B26.Text Or B31.Text =
B25.Text Or B31.Text = B24.Text Or B31.Text = B23.Text Or B31.Text =
B22.Text Or B31.Text = B21.Text Or B31.Text = B20.Text Or B31.Text =
B19.Text Or B31.Text = B18.Text Or B31.Text = B17.Text Or B31.Text =
B16.Text Or B31.Text = B15.Text Or B31.Text = B14.Text Or B31.Text =
B13.Text Or B31.Text = B12.Text Or B31.Text = B11.Text Or B31.Text =
B10.Text Or B31.Text = B9.Text Or B31.Text = B8.Text Or B31.Text =
B7.Text Or B31.Text = B6.Text Or B31.Text = B5.Text Or B31.Text =
B4.Text Or B31.Text = B3.Text Or B31.Text = B2.Text Or B31.Text =
B1.Text Then
Dim theWord30 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B31.Text = theWord30
End If
If B32.Text = B31.Text Or B32.Text = B30.Text Or B32.Text =
B29.Text Or B32.Text = B28.Text Or B32.Text = B27.Text Or B32.Text =
B26.Text Or B32.Text = B25.Text Or B32.Text = B24.Text Or B32.Text =
B23.Text Or B32.Text = B22.Text Or B32.Text = B21.Text Or B32.Text =
B20.Text Or B32.Text = B19.Text Or B32.Text = B18.Text Or B32.Text =
B17.Text Or B32.Text = B16.Text Or B32.Text = B15.Text Or B32.Text =
B14.Text Or B32.Text = B13.Text Or B32.Text = B12.Text Or B32.Text =
B11.Text Or B32.Text = B10.Text Or B32.Text = B9.Text Or B32.Text =
B8.Text Or B32.Text = B7.Text Or B32.Text = B6.Text Or B32.Text =
B5.Text Or B32.Text = B4.Text Or B32.Text = B3.Text Or B32.Text =
B2.Text Or B32.Text = B1.Text Then
Dim theWord31 As String = _listWords(_rnd.Next(0, _listWords.Count))
Me.B32.Text = theWord31
End If

Der ganze Code war zu lang ist nur der letzte Abschnitt.

Hoffe mir kann wer helfen

mfg. TwiTIn

Nikx · 24. März 2013, 15:09

Wat? Du nimmst ne Liste und gehst Random durch, dann entfernst du den Namen einfach aus der Liste.
Is doch sonst bescheuert.

Außerdem: Design ist keine Glückssache

Grüße

TwiTIn · 24. März 2013, 15:15

Ja ich probiers mal danke

Design ist ja erstmal egal soll erstmal nur sein Zweck erfüllen

Kangaroo · 24. März 2013, 15:27

Wie wärs wenn Du Liste mit Namen einfach 'schüttelst', d.h. eine zufällige Reihenfolge erzeugst. -> Namen aus .txt-Datei zufällig auf auf Labels verteilen

Dann kannst Du Deine Gruppen/Label einfach der Reihenfolge nach befüllen.

TwiTIn · 24. März 2013, 15:45

Ich habe den jetzt so abgeändert aber irgendwie funtkioniert das nicht so richtig...
Ich finde den Fehler nicht. Der Code liegt auf einem Button.

VB.NET-Quellcode

Dim Spieler() As String = {T1.Text, T2.Text, T3.Text, T4.Text, T5.Text, T6.Text, T7.Text, T8.Text, T9.Text, T10.Text, T11.Text, T12.Text, T13.Text, T14.Text, T15.Text, T16.Text, T17.Text, T18.Text, T19.Text, T20.Text, T21.Text, T22.Text, T23.Text, T24.Text, T25.Text, T26.Text, T27.Text, T28.Text, T29.Text, T30.Text, T31.Text, T32.Text}
Dim r As New Random
Dim tmpDouble(Spieler.Length - 1) As Double
For i As Integer = 0 To Spieler.Length - 1 : tmpDouble(i) = r.NextDouble : Next i
Array.Sort(tmpDouble, Spieler)
Dim count As Integer = 0
For Each c As Control In Me.Controls
If TypeOf (c) Is Button AndAlso c.Name.ToLower.StartsWith("B") Then c.Text = Spieler(count) : count += 1
Next

Nikx · 24. März 2013, 15:53

VB.NET-Quellcode

Dim players As New List(Of String)({"abc", "def", "ghi", "jkl", "mno"})
Dim rnd As New Random
Dim num As Integer = rnd.Next(players.Count - 1)
MsgBox(players(num))
players.RemoveAt(num)

Da die List in meinem Beispiel bei jedem Aufruf neu erstellt wird musst du sie entweder
außerhalb der Sub als Private deklarieren und in einer anderen Sub befüllen oder co.

Mit dem Beispiel gehst du dann einfach alle Buttons der Reihe nach durch und
gibst ihnen nen zufälligen Spielernamen. An den Buttons musst du ja nichts zurechtmischen,
die können ja ihre feste Reihenfolge haben.

-> Ich hab dir mal nen erklärtes Projekt gebastelt, im Anhang.

Grüße

Kangaroo · 24. März 2013, 16:08

TwiTIn schrieb:

Ich finde den Fehler nicht. Der Code liegt auf einem Button.

der Fehler liegt hier c.Name.ToLower.StartsWith("B") : mit tolower wird der Name ja in Kleinbuchstaben konvertiert, aber von Dir mit einem grossen 'B' verglichen. Das kann natürlich nie zutreffen.

TwiTIn · 24. März 2013, 16:16

funktioniert mit einem kleinen b auch nicht... ich steig da irgendwie nicht durch weiss auch nicht warum -.-

Nikx · 24. März 2013, 16:24

WIeso brauchst du das auch?
Deine Buttons heißen mal angenommen BtnPlayer1 bis BtnPlayer32.

Geh alle Buttons durch und gib ihnen zufällige Werte, mein Beispiel is ja
oben.

Grüße

TwiTIn · 24. März 2013, 16:40

Danke Nikx klappt einwandfrei

Turnierbaum HILFE

Turnierbaum HILFE

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

TwiTIn schrieb:

Ähnliche Themen

2 Benutzer haben hier geschrieben