Cédule d'un tournoi a la ronde
benmoffet
Messages postés
1
Date d'inscription
dimanche 4 septembre 2005
Statut
Membre
Dernière intervention
4 septembre 2005
-
4 sept. 2005 à 02:33
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 4 sept. 2005 à 18:18
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 4 sept. 2005 à 18:18
2 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
4 sept. 2005 à 16:52
4 sept. 2005 à 16:52
jouer 1 et 1seule fois à CHAQUE jeu et ne jamais jouer contre une équipe déjà rencontrée, il me semble que ce n'est pas possible avec 5jeux. il en faut 7
PCPT
PCPT
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
4 sept. 2005 à 18:18
4 sept. 2005 à 18:18
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim T(7, 8) As Integer
Dim X(8) As Integer
'remplissage Table avec tous les cas possibles: 28 match possible
'12
'13 23
'14 24 34
'15 25 35 45
'16 26 36 46 56
'17 27 37 47 57 67
'18 28 38 48 58 68 78
For i = 1 To 7
For j = i + 1 To 8
T(i, j) = 1
Next
Next
Randomize Timer
'boucle pour 5 jeux
For n = 1 To 5
'RAZ pour lignes éliminées
For i 1 To 8: X(i) 0: Next
MsgBox "Jeu numéro " & n
'boucle pour 4 match / 8 joueurs
For i = 1 To 7
'élimination joueur déjà pris
If X(i) = 0 Then
Do
j = Int(Rnd * 8) + 1
DoEvents
'élimination match déjà pris ou ligne déjà prise
Loop Until T(i, j) 1 And X(j) 0
MsgBox i & " - " & j
'on élimine le joueur j et la ligne j
X(j) = 1
'on élimine le joueur j
T(i, j) = 0
End If
Next
Next
End Sub
Daniel
Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim T(7, 8) As Integer
Dim X(8) As Integer
'remplissage Table avec tous les cas possibles: 28 match possible
'12
'13 23
'14 24 34
'15 25 35 45
'16 26 36 46 56
'17 27 37 47 57 67
'18 28 38 48 58 68 78
For i = 1 To 7
For j = i + 1 To 8
T(i, j) = 1
Next
Next
Randomize Timer
'boucle pour 5 jeux
For n = 1 To 5
'RAZ pour lignes éliminées
For i 1 To 8: X(i) 0: Next
MsgBox "Jeu numéro " & n
'boucle pour 4 match / 8 joueurs
For i = 1 To 7
'élimination joueur déjà pris
If X(i) = 0 Then
Do
j = Int(Rnd * 8) + 1
DoEvents
'élimination match déjà pris ou ligne déjà prise
Loop Until T(i, j) 1 And X(j) 0
MsgBox i & " - " & j
'on élimine le joueur j et la ligne j
X(j) = 1
'on élimine le joueur j
T(i, j) = 0
End If
Next
Next
End Sub
Daniel
