PC qui pioche une lettre random
Bonsoir,
J'ai une petite question :
Comment faire pour que, sitot que qu'une lettre de l'alphabet sorte dans mon txtbox, je ne puisse plus la reutiliser ?
En effet, j'ai un pendu a faire ou c'est le PC qui doit piocher des lettres et les tester sur le mot.
Donc, il genere un nombre entre 1 et 26, prenons 5 donc E. Il compare, il la place et maintenant il ne peut plus la reutiliser.
J'ai utiliser un
Code:
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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
| Randomize()
RandomNombre = (25 * Rnd()) + 1
Select Case RandomNombre
Case "1"
RandomLettre = "A"
Case "2"
RandomLettre = "B"
Case "3"
RandomLettre = "C"
Case "4"
RandomLettre = "D"
Case "5"
RandomLettre = "E"
Case "6"
RandomLettre = "F"
Case "7"
RandomLettre = "G"
Case "8"
RandomLettre = "H"
Case "9"
RandomLettre = "I"
Case "10"
RandomLettre = "J"
Case "1"
RandomLettre = "K"
Case "12"
RandomLettre = "L"
Case "13"
RandomLettre = "M"
Case "14"
RandomLettre = "N"
Case "15"
RandomLettre = "O"
Case "16"
RandomLettre = "P"
Case "17"
RandomLettre = "Q"
Case "18"
RandomLettre = "R"
Case "19"
RandomLettre = "S"
Case "20"
RandomLettre = "T"
Case "21"
RandomLettre = "U"
Case "22"
RandomLettre = "V"
Case "23"
RandomLettre = "W"
Case "24"
RandomLettre = "X"
Case "25"
RandomLettre = "Y"
Case "26"
RandomLettre = "Z"
End Select |
Mais je doute que ce soit la bonne méthode...