Bonjour ![[:dawa] [:dawa]](https://forum-images.hardware.fr/images/perso/dawa.gif)
Voici le moment de voter pour le premier tour ![[:natas] [:natas]](https://forum-images.hardware.fr/images/perso/natas.gif)
Grâce à un script VB de mon cru, j’ai choisi mon PC de boulot comme main innocente pour séparer les 16 nerds en lice en deux tours. La répartition est la suivante:
1er tour
Elmoricq
dap++
skeye
Loom the Gloom
Shinuza
jovalise
flo850
Harkonnen
2è tour
mareek
IrmatDen
drasche
kadreg
FlorentG
Masklinn
Gatsu35
Et le code ![[:dawa] [:dawa]](https://forum-images.hardware.fr/images/perso/dawa.gif)
Code :
Option Explicit Public Sub Main() Dim col As Collection Dim nerds As Variant Dim index As Integer Dim pick As Integer Dim name As String ' Fill collection Set col = New Collection nerds = Split("Gatsu35;FlorentG;Harkonnen;jovalise;dap++;flo850;drasche;IrmatDen;kadreg;Shinuza;skeye;Masklinn;Loom the Gloom;Elmoricq;mareek", ";" ) For index = 0 To UBound(nerds) Call col.Add(nerds(index)) Next index ' Pick half the collection Randomize For index = UBound(nerds) To 0 Step -1 pick = CInt(Rnd(1) * index) + 1 name = col.Item(pick) Call col.Remove(pick) Debug.Print index; name Next index Set col = Nothing End Sub
|
vous avez une semaine puis on passe au tour suivant ![[:dawa] [:dawa]](https://forum-images.hardware.fr/images/perso/dawa.gif)
Let's fight! ![[:natas] [:natas]](https://forum-images.hardware.fr/images/perso/natas.gif)
---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)