Variables Tableau

PRINCIPE

dim salarie as string = 1 case mémoire réservée

dim Salarie (1 to 10) as string = 10 cases prévues

et si on demande salarie(6), l’ordi le ressort.

TABLEAU DYNAMIQUE

Redim Preserve Salarie (1 tp intcpt) as string

TABLEAU A 2 DIM

Dim Tableau (1 to 5, 1 to 5)

APPLICATION TIRAGE LOTO

Créer un formulaire qui va contenir 6 zones de texte + 1 complémentaire + 1 bouton tirage

Principe : Pour cela, tableau de 49 boléens, et inscrire 0 à chaque tirage de boule dans la case de la boule tirée. Si deja un zero, retire.

1. Déclaration des variables

2. initialiser variable sphere par une boucle (-1 / true)

3. tirage d’une boule

4. vérifier dans sphere que boule n’a jamais été tirée – si dejà tirée, aller à 3

5. mémoriser la boule dans tirage (7 fois)

6. afficher le résultat

code

=====

Private Sub ButtTirage2_Click()

Dim loto(1 To 7) As Integer

Dim sphere(1 To 49) As Boolean

Dim cpt1%, cpt2%, tirage%

For cpt1 = 1 To 49

sphere(cpt1) = True

Next cpt1

For cpt2 = 1 To 7

tirage = CInt(Rnd * 48) + 1

Do While sphere(tirage) = False

tirage = CInt(Rnd * 48) + 1

Loop

loto(cpt2) = tirage

sphere(tirage) = False

Next cpt2

C1.Value = loto(1)

c2.Value = loto(2)

c3.Value = loto(3)

c4.Value = loto(4)

c5.Value = loto(5)

c6.Value = loto(6)

compl.Value = loto(7)

End Sub