1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| PRIVATE $aTableVbx AS NEW ValueBox[] PRIVATE $aEtoilVbx AS NEW ValueBox[]
PUBLIC SUB Form_Open()
DIM i AS INTEGER DIM vbx AS ValueBox
vbxRandom.Value = CInt(Now) + 1 RANDOMIZE ME.Title = "Zéromillions " "Version : Application.Version
'tableau $aTableVbx.Clear() panTable.Arrangement = 3 '<---------------------------'panTable arrangé par Row FOR EACH vbx IN panTable.Children $aTableVbx.Add(vbx) NEXT $aTableVbx[0].Value = 1 '<------------------------------' valeur de départ FOR i = 1 TO 49 '<------------------------------------' alimentation du tableau $aTableVbx[i].Value = $aTableVbx[i - 1].Value + 1 NEXT '<------------------------------------------------' de zéro à 49 cela fait 50 valeurs soit tout le tableau
'Étoiles $aEtoilVbx.Clear() panEtoiles.Arrangement = 3 '<-------------------------'panEtoiles arrangé par Row FOR EACH vbx IN panEtoiles.Children $aEtoilVbx.Add(vbx) NEXT $aEtoilVbx[0].Value = 1 '<------------------------------' valeur de départ FOR i = 1 TO 11 $aEtoilVbx[i].Value = $aEtoilVbx[i - 1].Value + 1 NEXT
END
|