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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...
Partager