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:
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
Der ganze Code war zu lang ist nur der letzte Abschnitt.
Hoffe mir kann wer helfen
mfg. TwiTIn
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:
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:
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