Bonjour à tous,
j'ai codé avec l'aide d'un ami le fait de générer 32 cartes de manière aléatoire.
Cependant, cette distribution est visible, c'est-à-dire que le joueur jouant au memmory(jeu consistant à rerouver des paires) voit pas les cartes et non le dos des cartes. Je vous contacte pour vous demander de l'aide sur ce dernier point. Je ne sais pas comment effectuer cette distribution aléatoire tout en laissant sur le plateau de jeu le dos des cartes (image: fichier bmp), sachant qu'ensuite lorsque le joueur clique sur une des cartes il trouve une carte qui a été distribué aléatoirement précédemment. Je vous ai ajouté ci-dessous le code pour mieux comprendre:
PS: Je suis débutant
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
60
61
62
63
64
65 Private Sub cmd_Distribuer_Click() Dim chemin As String Dim TableauAffectation(1 To 16) As Integer ReDim TabImages(1 To 32) As Object Set TabImages(1) = Image1 Set TabImages(2) = Image2 Set TabImages(3) = Image3 Set TabImages(4) = Image4 Set TabImages(5) = Image5 Set TabImages(6) = Image6 Set TabImages(7) = Image7 Set TabImages(8) = Image8 Set TabImages(9) = Image9 Set TabImages(10) = Image10 Set TabImages(11) = Image11 Set TabImages(12) = Image12 Set TabImages(13) = Image13 Set TabImages(14) = Image14 Set TabImages(15) = Image15 Set TabImages(16) = Image16 Set TabImages(17) = Image17 Set TabImages(18) = Image18 Set TabImages(19) = Image19 Set TabImages(20) = Image20 Set TabImages(21) = Image21 Set TabImages(22) = Image22 Set TabImages(23) = Image23 Set TabImages(24) = Image24 Set TabImages(25) = Image25 Set TabImages(26) = Image26 Set TabImages(27) = Image27 Set TabImages(28) = Image28 Set TabImages(29) = Image29 Set TabImages(30) = Image30 Set TabImages(31) = Image31 Set TabImages(32) = Image32 For a = 1 To 32 Do NbrAléatoire = Int((16 * Rnd) + 1) 'nbre aléatoire entre 1 et 16 If TableauAffectation(NbrAléatoire) < 2 Then TableauAffectation(NbrAléatoire) = TableauAffectation(NbrAléatoire) + 1 TableauCartes(a) = NbrAléatoire Exit Do End If Loop Next For a = 1 To 32 chemin = (ThisWorkbook.Path + "\" + CStr(TableauCartes(a)) + ".bmp") TabImages(a).PictureSizeMode = fmPictureSizeModeStretch TabImages(a).AutoSize = False TabImages(a).Picture = LoadPicture(chemin) Next End Sub
Partager