Variable et portée

**jive** · 06/08/2006, 16h24

Salut,

Voilà mon projet est ok mais il y a juste une coquille qui me reste à résoudre et même si elle ne parait pas insurmontable, rien y fait je ne trouve pas le probléme par manque d'expérience.

En fait j'utilise un composant MSFlexGrid, et pour celui ci je mais de mots dans les lignes pour un jeu "motus".

Puisque il y a plusieurs test permettant d'incrémenter les lignes, j'ai une variable range correspondant à mon numéro de ligne.

Cette variable "range" est déclaré en haut de mon form parce je le veux public pour tous le form.

A l'appel de mon form de jeu et de formatage du form pour une nouvelle partie, j'initialise la variable "range" a 0. Ensuite j'ai une procédure qui change plusieurs fois la valeur de la variable.

Lorsque un mot est trouvé je repasse a la procedure de reformatage et mon range est repassé à 0.

Mais ensuite je sais pas pourquoi il suit pas linéairement ma procédure suivante, il va directement dans une boucle en bas de ma procédure à un endroit ou j'ai une incérementaton de mon range, je capte pas pourquoi.

Et du coup mon range ne vaut pas 0 !

C'est chaud de vous expliquez ca parce que j'ai pas d'explications logiques.

Mais punaise, pourquoi il pointe directement sur une boucle en bas, au lieu de suivre la procédure suivante depuis le début ??

**jadey** · 06/08/2006, 16h29

montre nous un peu ce code...on est pas devin non plus

**SfJ5Rpw8** · 06/08/2006, 16h30

ben j'ai pas ma boule de cristal... et sans voir ton code...? tu as peu-être oublié d'initialiser une autre variable.. un compteur..? ... la cellule active dans Flexgrid... ? ...

**jive** · 06/08/2006, 17h17

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
Dim nblignes As Long
Dim range As Byte
Dim nblettre(25) As Byte
Public MotAlea As String
Dim TabLettre(6) As String
Const rouge = &H40C0&
Const jaune = &HC0FFFF
Const bleu = &HFFFF00
Public repare As String
Public motrouve As Integer
Public Sub Form_Load()
 
LblNbmots.Caption = "0"
LblNom1Joueur.Caption = FrmNomDuJoueur.VarNom1Joueur
 
Chemin = App.Path 'spécifie l'emplacement de mon programme
Open Chemin + "\BaseDeMots.txt" For Input As #1 'je rajoute BaseDeMots.txt a mon chemin
nblignes = 0
While Not EOF(1)
    Line Input #1, valeur 'tant que on est pas a la fin je lit mes lignes
           nblignes = nblignes + 1 '...et je compte le nombre de lignes
Wend
 
Close #1
MSFlexGrid2.ColWidth(-1) = 600
MSFlexGrid2.RowHeight(-1) = 500
Joueur1 = FrmNomDesJoueurs.VarNomJoueur1
MSFlexGrid2.Visible = True
Call GrilleJeu
 
End Sub
 
Private Sub GrilleJeu()
 
range = 0
mottrouve = 0
MotJoue = ""
 
For i = 0 To 6
    TabLettre(i) = ""
Next i
 
MSFlexGrid2.Clear 'on efface la grille
 
'////////ouverture du fichier "doc.txt"////////////////////////////////////////////////////////
Chemin = App.Path
Open Chemin + "\BaseDeMots.txt" For Input As #1
'////////Fin ouverture du fichier "doc.txt"////////////////////////////////////////////////////
 
'///////////Recherche d'un mot aleatoirement//////////////////////////////////////////////////
Randomize 'fonction random de telle sorte que la valeur n'est jamais la meme et que tes tirages soient differents.
numligne = Int(Rnd() * nblignes) 'generation d'un nombre aleatoires
'numligne=un entier de un nombre aléatoire entre 0 et 1 auquel par multiplication avec
'le nombre de lignes totale
 
'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
If numligne > nblignes Then ' evite un nombre superieur a nb de lignes
    numligne = nblignes
    End If
'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 
For i = 1 To numligne
    Line Input #1, MotAlea
Next i
Close #1
 
MotAlea = Trim(UCase(MotAlea))
 
TabLettre(0) = Mid(MotAlea, 1, 1)
'je recupere la 1ere lettre de mon MotAlea pour l'afficher
 
MSFlexGrid2.Row = 0
MSFlexGrid2.Col = 0
 
MSFlexGrid2.Text = TabLettre(0) 'ma grille recoit la premiere lettre
 
End Sub
 
'////////////////PARTIE CODE 1 JOUEUR//////////////////////////////////////////////
Private Sub CmdSoumettre_Click()
 
 Dim Codage1 As String, Codage2 As String, ValeurPos As String, tmp As String, tmpRecomp As String
    Dim X As Integer, Pos As Byte
    Dim Stock(6) As String
    Dim yo(6) As String
 
  MotJoue = ""
  '****************************************************************************
  If range <= 5 Then 'tant que le nombre de clics est inferieur a 6
 
   '//////////////////////////////////////////////////////////////////////////////////
    For i = 1 To 7 'de 1 a 7 soit 6 tours
      lettre = Mid(txtMotJoue, i, 1)
      lettre = UCase(lettre)
      MotJoue = MotJoue + lettre 'a la fin on a le mot complet inscrit par le joueur
      MSFlexGrid2.Col = i - 1
      MSFlexGrid2.Row = range
      MSFlexGrid2.Text = lettre
    Next i
    '//////////////////////////////////////////////////////////////////////////////////
    txtMotJoue.Text = ""
 
'//////////////////LE CHEMIN////////////////////
Chemin = App.Path
Open Chemin + "\BaseDeMots.txt" For Input As #1
 
PresentDsBase = False 'on initialise PresentDsBase a faux
 
While (Not EOF(1) And Not PresentDsBase)
    Line Input #1, valeur
    valeur = Trim(UCase(valeur))
    If StrComp(MotJoue, valeur) = 0 Then
       PresentDsBase = True
    End If
Wend
'//////////////////LE CHEMIN////////////////////
Close #1
 
'/////////////////TEST POUR LA LONGUEUR DU MOT ET SON EXISTANCE////////////////////////
 
 '*************************************************************************
    If (Len(MotJoue) = 7 And PresentDsBase) Then 'si le resultat est pri
 '---------------------------------sinon passe a la suite------------------
 
'//////////////////BOUCLE DE REMPLISSAGE DU TABLEAU NBLETTRE PAR DES VALEUR 0////////////
 
    If MotJoue = MotAlea Then
 
      For i = 1 To 7
        MSFlexGrid2.Row = range
        MSFlexGrid2.Col = i - 1
        MSFlexGrid2.CellBackColor = rouge
      Next i
 
      MsgBox "Bravo, vous avez trouvé le mot", vbInformation, "Motus"
      motrouve = motrouve + 1
      LblNbmots.Caption = "Vous avez trouvé " & motrouve & " mots"
      Call GrilleJeu
 
    Else
 
        CodeMot = ""
       Codage1 = ""
       Codage2 = ""
 
    '"Codage1" recoit 1 pour chaque lettre bien placées
    '"TabLettre" stock les lettres bien placees
    For X = 1 To 7
        If Mid(MotAlea, X, 1) = Mid(MotJoue, X, 1) Then
           Codage1 = Codage1 & "1"
            'puisque TabLettre(0) deja initialise dans GrilleJeu
            If TabLettre(X - 1) <> "" Then
                TabLettre(X - 1) = TabLettre(X - 1)
            Else
                TabLettre(X - 1) = TabLettre(X - 1) & Mid(MotJoue, X, 1)
            End If
        Else
            Codage1 = Codage1 & Mid(MotJoue, X, 1)
            TabLettre(X - 1) = TabLettre(X - 1) & ""
        End If
    Next X
 
    For X = 1 To 7
        If Mid(Codage1, X, 1) = "1" Then
            'dans "codage2" on met toutes les lettres que les chiffre
            'trouve dans coadge1
            'on range ca dans tableau stock
           Codage2 = Codage2 & "1"
            Stock(X - 1) = "1"
        Else
        'sinon on prend les lettre de BaseDeMots
           Codage2 = Codage2 & Mid(MotAlea, X, 1)
        End If
    Next X
 
    'met un 2 dans le code codage2 pour chaque lettre
    'bonne mais pas a la bonne place
 
    For X = 1 To 7
    'on met dans ValeurPos les lettres ou chiffres de Codage1; si jamais on a 1 on va au prochain x
      'sinon on renvoi une valeur correspondant a la position de lettre de Codage2 qui est egal
      'a la lettre de Codage1
        ValeurPos = Mid(Codage1, X, 1)
        If ValeurPos = "1" Then GoTo suite
        Pos = InStr(1, Codage2, ValeurPos)
        'si la position est egal a 0 c'est que on a trouve une correspondance
        'dans ce cas on met un diese
        If Pos > 0 Then
            Codage2 = Replace(Codage2, ValeurPos, "$", , 1)
            Stock(X - 1) = "2"
        End If
suite:
    Next X
    'suivant ce que contient stock on constitue le code du mot afin d'afficher les couleurs.
    tmp = ""
    For X = 1 To 7
    'on reprend notre tableau pour constituer le code dans tmp
        If IsNumeric(Stock(X - 1)) Then
            CodeMot = CodeMot & Stock(X - 1)
        Else
            CodeMot = CodeMot & "0"
        End If
    Next X
 
 
    PartieCode = ""
 
    For i = 1 To 7
    PartieCode = Mid(CodeMot, i, 1)
    Select Case PartieCode
 
 
                    Case "1"
                        MSFlexGrid2.Row = range
                        MSFlexGrid2.Col = i - 1
                        MSFlexGrid2.CellBackColor = rouge
 
                    Case "2"
                        MSFlexGrid2.Row = range
                        MSFlexGrid2.Col = i - 1
                        MSFlexGrid2.CellBackColor = jaune
 
                End Select
 
    Next i
 
 
    End If
 
 
        If range < 6 Then
            range = range + 1
            MSFlexGrid2.Row = range
 
             For i = 1 To 7
                MSFlexGrid2.Col = i - 1
                MSFlexGrid2.Text = TabLettre(i - 1)
             Next i
        Else
 
        range = range + 1
 
 
        End If
 
 
    Else
        If range < 6 Then
 
        range = range + 1
 
        For i = 0 To 6
            If TabLettre(i) <> "" Then
                MSFlexGrid2.Row = range
                MSFlexGrid2.Col = i
                MSFlexGrid2.Text = TabLettre(i)
            End If
        Next i
 
            Else
 
            Call AfficheMot
            MsgBox "Désolé, vous n'avez pas trouvé le mot", vbInformation, "Motus"
            Call GrilleJeu
 
            End If
 
        End If
 
Else
 
Call AfficheMot
MsgBox "Désolé, vous n'avez pas trouvé le mot", vbInformation, "Motus"
Call GrilleJeu
 
End If
 
End Sub

Voilà la bête !

En fait comme je vous disais, à partir d'un deuxiéme appel de GrilleJeu(), il reformate tout, puis il va dans la procedure CmdSoumettre_Click() et il pointe direct à cette partie là

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
CmdSoumettre_Click() End If
 
 
        If range < 6 Then
            range = range + 1
            MSFlexGrid2.Row = range
 
             For i = 1 To 7
                MSFlexGrid2.Col = i - 1
                MSFlexGrid2.Text = TabLettre(i - 1)
             Next i
        Else
 
        range = range + 1
 
 
        End If

Et là évidement il incrémente ma variable "range".

**SfJ5Rpw8** · 06/08/2006, 17h31

il faudrai revoir l'indentation de ton code... je pense que tu as un endif de mal placé...

**jive** · 06/08/2006, 17h39

Si j'avais un endif de mal placé le programme me l'aurai signalé non ?

**SfJ5Rpw8** · 06/08/2006, 17h44

Envoyé par jive

Si j'avais un endif de mal placé le programme me l'aurai signalé non ?

non ...'Le programme' n'est pas censé savoir ce que tu ve faire...

Je suis pas sur que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   If MotJoue = MotAlea Then

à bien son else et son endif associé au bon endroit....

**SfJ5Rpw8** · 06/08/2006, 17h50

Bon si tu n'arrive pas à ordonné tes if/endif ... tu peu appliquer une "rustine"...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
...
    LblNbmots.Caption = "Vous avez trouvé " & motrouve & " mots"
      Call GrilleJeu
      Exit Sub ' Sortie de la procedure CmdSoumettre_Click 
    Else
...

**jive** · 06/08/2006, 18h31

ok merci,

j'ai fait ca et ca marche bien a present mais je vais reesaye de réindentter correctement; je te remercie.

Variable et portée

VB 6 et antérieur

Discussions similaires

Partager

Partager