pb de language

Version imprimable

1 pièce(s) jointe(s)

pb de language

le programme ci dessous est une partie du 2048 que je dois faire, ici je me concentre sur la touche bas (flèche cliqué avec la souris) cependant tester le avec l'ordi moi il me met des erreurs tous le temps si j'en résous une (erreur) il m'en met une autre donc un coup de main ne serait pas de trop merci d'avance.
mon tableau commence a la colonne 2 jusqu’à 5 et en ligne sa va de 3 jusqu'à 6
voici le programme:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub bas()
Dim x
For j = 2 To 5
      i = 5
        While i >= 3
          If Cells(i, j) = "" Then
              i = i - 1
          End If
          If Cells(i + 1, j) = "" Then
              While Cells(i + 1, j) = ""
                   Cells((i + 1), j) = Cells(i, j)
                   Cells(i, j) = ""
                   i = i - 1
              Wend
          End If
        Wend
          While Cells(i + 1, j) = Cells(i, j)
                Cells(i + 1, j) = 2 * Cells(i, j)
                Cells(i, j) = ""
          Wend
Next j
End Sub

Pièce jointe 195365

15/12/2015, 21h56
clementmarcotte

Citation:

Envoyé par layer69

le programme ci dessous est une partie du 2048 que je dois faire

Comme on dit par chez-nous : "Cela veut dire quoi en français" ?
15/12/2015, 22h46
layer69

c'est pas compliqué dans le 2048 on a l'initialisation (qui est similaire a "nouveau jeu"), flèche bas, flèche haut, flèche droite, flèche gauche et généré (faut généré un nb a chaque déplacement)
or ici je prend le cas de la flèche du bas, quand je l'ai écrit je n'ai vu aucun pb je l'ai relu vérifié (comme si j'était le pc) mais je vois pas le pb.
de plus Gaston Lagaffe est pire qu'un fainéant donc ...

Bonjour,

Pardonnes mon ignorance mais je ne sait pas ce qu'est "2048" ?
J'ai commenté ton code mais je ne sais pas vraiment à quoi il sert toute fois, il y a un risque d'erreur là où j'ai mis les étoiles :

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
 
Sub bas()
 
    Dim I As Integer
    Dim J As Integer
 
    For J = 2 To 5
 
        I = 5
 
        While I >= 3
 
            'si la cellule est vide on retranche 1 à I
            If Cells(I, J) = "" Then I = I - 1
 
            'si la même cellule est toujours vide, ce qui est le cas
            'car on rajoute 1 à I auquel on vient de retirer 1
            If Cells(I + 1, J) = "" Then
 
                'tant que la cellule est vide...
                While Cells(I + 1, J) = ""
 
                    'on tranfère la valeur...
                    Cells((I + 1), J) = Cells(I, J)
                    Cells(I, J) = ""
 
                    '**************************************************
                    'et on retire 1 à I et là, il y a de fortes chances
                    'pour qu'on se trouve avec I = 0 d'où l'erreur !!!
                    I = I - 1
                    '**************************************************
 
                Wend
 
            End If
 
        Wend
 
        'ici, I vaut 2...
        While Cells(I + 1, J) = Cells(I, J)
 
            'on tranfère la valeur après avoir multiplié par 2...
            Cells(I + 1, J) = 2 * Cells(I, J)
            Cells(I, J) = ""
 
        Wend
 
    Next J
 
End Sub

16/12/2015, 08h48
Stanler

Il me semble que "2048" est un jeu de mathématiques. Vous avez seulement 4 commandes : Fléches de droite, gauche, haut, et bas. Lorsque appuyez sur la flèche de bas, toutes les cases et toutes les valeurs similaires s'additionnent. Le jeu est gagné si on atteint 2048.

layer69, essayes d'être plus explicite à la l'avenir.
16/12/2015, 20h11
clementmarcotte

Citation:

Envoyé par layer69

c'est pas compliqué dans le 2048 on a l'initialisation (qui est similaire a "nouveau jeu"), flèche bas, flèche haut, flèche droite, flèche gauche et généré (faut généré un nb a chaque déplacement)
or ici je prend le cas de la flèche du bas, quand je l'ai écrit je n'ai vu aucun pb je l'ai relu vérifié (comme si j'était le pc) mais je vois pas le pb.
de plus Gaston Lagaffe est pire qu'un fainéant donc ...

Je n'habite pas en France, tabouère. Ton 2048, me faisait penser à un quelconque formulaire officiel connu des seuls initiés.

Tiens, fais-moi donc un programme pour compléter la T2 d'une compagnie du Canada.