Poels zamen stellen in mijn App

[JoZ1]

Oh ja, twee dezelfde personen mochten niet tegen elkaar. Dat maakt het wel lastiger...

Ik ga een poging wagen.

 

[old Hippy]

Ja als je wild graag Joz1
heb zelf ook al gekeken maar ben er nog niet uit.

Alfast bedankt.

 

[JoZ1]

Wat ik niet helemaal begrijp, als de teams evenveel spelers hebben, dan maakt het toch niet uit of het willekeurig is of niet ? Want alle spelers spelen dan tegen elkaar.

Dat zou de code dan ook een stuk versimpelen.

 

[old Hippy]

Nee dat is niet zo
een 1 speler bvb ik speel tegen 5 spelers uit de andere Straat.
Dus niet tegen alle tien Dat zou een toornooi van meerdere dagen worden.
En het word in een weekend gespeeld zaterdag en zondag.

Het is van geen belang tegen wie je geloot word.

of in dit geval door de computer gekozen.
Dus als je speler 1 in poel1 in elke poel 1 of 2 x doorschuift ten opzichte van poel-2 zou je er al zijn.

dan heeft hij dus 5x een andere speler

door dat ik kan husselen heb ik toch iedere keer een andere samen stelling

Hopelijk begrijp je het nu beter.

 

[JoZ1]

In dat geval hoeven we niet met randoms te werken en wordt het makkelijker

[cpp]Dim Team1 As String() = {"Speler 1", "Speler 2", "Speler 3", "Speler 4", "Speler 5"}
Dim Team2 As String() = {"Speler 6", "Speler 7", "Speler 8", "Speler 9", "Speler 10"}

For i = 0 To 4
TreeView1.Nodes.Add("Poel " & i.ToString)
For spelerIndex As Integer = 0 To Team1.Length - 1
Dim tegenstanderIndex As Integer = spelerIndex + i
If tegenstanderIndex >= Team2.Length Then tegenstanderIndex = (spelerIndex + i) - Team2.Length
TreeView1.Nodes(i).Nodes.Add(Team1(spelerIndex) & " versus " & Team2(tegenstanderIndex))
Next
Next[/cpp]

Output:

 

[old Hippy]

Hi Joz1

Geweldig dit is goed bruikbaar.
Heel hartelijk dank voor je inzet.
Geweldig ik zet de vraag op opgelost.

Was zelf al een heel eind maar kreeg het niet in de treeview.
Dat element was nieuw voor mij.

Joz1 een dankbare Old Hippy

 

[JoZ1]

Heel graag gedaan

Als er nog problemen zijn, hoor ik het wel!

Succes verder! :thumb:

 

[old Hippy]

Dank

 

[old Hippy]

Vervolg vraag op poels invullen

Hi Ik heb een vervolg vraag op de oplossing Van Joz1.

Hier de code die geheel naar behoeve werkt.
Maar in de praktijk blijkt dat het aantal deelnemers toch noch wel eens verschild.
Dus dat er van 1 straat meer of minder deelnemers zijn.
Bv. 13 uit straat-1 en 10 uit straat-2.

Wat ik dus zou willen is dat het aantal spelers variabel kan zijn.
Dit is de code

Wat rood is zou dus per team variabel moeten zijn.
Tussen de vijf en twintig spelers.

 Try
           [COLOR="#FF0000"] Dim Team1 As String() = {Form1.ListBox1.Items.Item(0), Form1.ListBox1.Items.Item(1), Form1.ListBox1.Items.Item(2), Form1.ListBox1.Items.Item(3) _
                                    , Form1.ListBox1.Items.Item(4), Form1.ListBox1.Items.Item(5), Form1.ListBox1.Items.Item(6), Form1.ListBox1.Items.Item(7), Form1.ListBox1.Items.Item(8), Form1.ListBox1.Items.Item(9)}
            Dim Team2 As String() = {Form1.ListBox2.Items.Item(0), Form1.ListBox2.Items.Item(1), Form1.ListBox2.Items.Item(2), Form1.ListBox2.Items.Item(3) _
                                     , Form1.ListBox2.Items.Item(4), Form1.ListBox2.Items.Item(5), Form1.ListBox2.Items.Item(6), Form1.ListBox2.Items.Item(7), Form1.ListBox2.Items.Item(8), Form1.ListBox2.Items.Item(9)}[/COLOR]
            For i = 0 To 4
                TreeView1.Nodes.Add("Partijen " & i.ToString)
                For spelerIndex As Integer = 0 To Team1.Length - 1
                    Dim tegenstanderIndex As Integer = spelerIndex + i
                    If tegenstanderIndex >= Team2.Length Then tegenstanderIndex = (spelerIndex + i) - Team2.Length
                    TreeView1.Nodes(i).Nodes.Add(Team1(spelerIndex) & " - " & My.Settings.Straat1 & " - Tegen - " & My.Settings.Straat2 & " - " & Team2(tegenstanderIndex))
                Next
            Next
        Catch ex As Exception

        End Try

 

[crash]

Ik heb je "Vervolg vraag" bij je eerder gemaakte topic gezet. Past prima in 1 topic. Heb ook de status van de topic weer op "Niet opgelost" gezet, zodat men ziet dat er nog vragen zijn.

 

[old Hippy]

Ok Dank hier voor

 

[JoZ1]

Dat kan hoor:

[cpp]Dim Team1, Team2 As New List(Of String)
For Each speler As String In ListBox1.Items : Team1.Add(speler) : Next
For Each speler2 As String In ListBox2.Items : Team2.Add(speler2) : Next[/cpp]

Alleen dan moet je in je code wel Team1.Count i.p.v. Team1.Length gebruiken

 

[old Hippy]

Ha Joz1

Van daar ik had al iet gevonden op google maar het wilde niet werken.
nooit aan Team1.Count gedacht.

Weer heelveel dank

Old hippy