A ver si me explico.


Mi intencion: Hacer un generador de calendario deportivo.


Lo que he conseguido:Que el usuario elija desde un combo cuantos participantes van a participar en la liga, y que genere las combinaciones posibles sin repetir, es decir:


4 jugadores:combinaciones que he conseguido que me saqué:


1-2 ;1-3 ;1-4 ;2-3 ;2-4 ;3-4


Código:


For i = 0 To 65
Label1(i).Caption = ""
Next i
Dim n1 As Integer, n2 As Integer
Dim nCombinaciones As Long, contador As Long
nCombinaciones = Combo1.Text
contador = 0
contador1 = -1
For n1 = 1 To nCombinaciones
For n2 = n1 To nCombinaciones
contador = contador + 1
If X < 1 Then
ReDim Preserve combis(0)
End If
If n1 <> n2 Then
If UBound(combis) <> 0 Then
X = UBound(combis)
X = X + 1
Else
X = X
End If
ReDim Preserve combis(X)
combis(X) = n1
X = X + 1
ReDim Preserve combis(X)
combis(X) = n2
contador1 = contador1 + 1
Label1(contador1).Caption = n1 & "-" & n2
Else

End If
Next
Next
Label2.Caption = "Total combinations: " & contador1


Lo que no consigo:


Habiendo 10 equipos(por ejemplo) que me haga cada jornada(solamente 1 ronda, la otra sería al reves).Es decir:


Jornada1:


1-2;3-4;5-6;7-8;9-10


Jornada2:


1-3;2-4;5-9;6-7;8-10


Jornada3:


...


Muchas gracias