[VB6] Ignorer une verification

Version imprimable

Bonjour je voudrais ignorer la verification de k(0) (en rouge) une fois qu'elle a ete vérifié une fois en fait pour que quand je clique sur le Bt(0) une deuxieme fois il ne reverifie pas k(0)

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
60
Private Sub bt_Click(i As Integer)

Msg = MsgBox("Etes-vous sûr?", vbYesNo + vbQuestion, "Avertissement")

If Msg = vbYes Then
    
    k(i) = True 'mémorise action sur bouton i
    
    For i = 0 To 13
    bt(i).Enabled = False
    Next i
    
    If Lancer.Enabled = False Then Lancer.Enabled = True
    Jeu = 0
    If Jeu = 3 Then Lancer.Enabled = False
    
    Check1.Value = 0
    Check1.Enabled = False
    Check2.Value = 0
    Check2.Enabled = False
    Check3.Value = 0
    Check3.Enabled = False
    Check4.Value = 0
    Check4.Enabled = False
    Check5.Value = 0
    Check5.Enabled = False
    
    If k(0) = True Then
        
        If de1 = 1 Then
        x1 = 1
        Else
        x1 = 0
        End If
        If de2 = 1 Then
        x2 = 1
        Else
        x2 = 0
        End If
        If de3 = 1 Then
        x3 = 1
        Else
        x3 = 0
        End If
        If de4 = 1 Then
        x4 = 1
        Else
        x4 = 0
        End If
        If de5 = 1 Then
        x5 = 1
        Else
        x5 = 0
        End If
        Lb(0) = x1 + x2 + x3 + x4 + x5
        k(0) = False
            
    End If
End If
End sub

06/05/2006, 15h00
jacma

Bonjour

Un "drapeau" déclaré en booléen dans ta section de déclaration.
06/05/2006, 15h36
Spiritkiller

c koi un drapeau??
06/05/2006, 15h38
jmfmarques

une variable, ou l'utilisation d'une propriété tag, par exemple, que tu utilises pour écrire un état et que tu relis ensuite pour voir quel est l'état !.
Tu ne vas pas demander maintenant, j'espère, ce qu'est une variable ou la propriété tag d'un controle !
Je ne veux personnellement plus voir du "c koi" ou n'importe quoi d'autre écrit en SMS (Règles de ce forum également) :roll:
06/05/2006, 15h43
Spiritkiller

je connais la propriete tag mais je ne voit pas comment l'utiliser (je suis debutant)
06/05/2006, 15h44
jacma

Citation:

Envoyé par jmfmarques

Tu ne vas pas demander maintenant, j'espère, ce qu'est une variable ou la propriété tag d'un controle !

Pourquoi pas ;) .
06/05/2006, 16h05
Spiritkiller

je connais la propriete tag mais je ne voit pas comment l'utiliser (je suis debutant)
06/05/2006, 16h16
jacma

Oui, ma première réponse a croisé la tienne. Donc, si tu connais la propriété Tag, tu dois savoir qu'il est possible de lui affecter une valeur et de la lire. Donc, utilise la propriété Tag du formulaire, donne lui par exemple la valeur 0 lors de l'évènement Form_Load ou Form_Active.

Dans ta procédure bt_Click, avant ta vérificartion, testes la valeur de la propriété Tag. Si elle est "0", effectues la vérif, sinon saute la. A la fin de cette vérif, passe la propriété Tag à 1 par exemple.

Donc, sans relancer l'exécution de ton formulaire, après la première vérif, la propriété Tag aura la valeur "1" et le test ne sera pas refait lors d'un prochain clic.

en realité mon code est le suivant et je voudrais que k(0) ne soit pas reverifier apres avoir cliquer sur bt(0) et que si je clique sur bt(1), k(1) ne soit pas reverifier et idem pour k(2) mais je veux aussi pouvoir cliquer dans n'importe quel ordre et que le k qui a ete verifier reste inverifiable jusqu'a la fin du programme. (chaud a comprendre. hien!! mais aussi chaud a expliquer.)

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
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
Private Sub bt_Click(i As Integer)
 
en
 
Msg = MsgBox("Etes-vous sûr?", vbYesNo + vbQuestion, "Avertissement")
 
If Msg = vbYes Then
 
    k(i) = True 'mémorise action sur bouton i
 
    For i = 0 To 13
    bt(i).Enabled = False
    Next i
 
    If Lancer.Enabled = False Then Lancer.Enabled = True
    Jeu = 0
    If Jeu = 3 Then Lancer.Enabled = False
 
    Check1.Value = 0
    Check1.Enabled = False
    Check2.Value = 0
    Check2.Enabled = False
    Check3.Value = 0
    Check3.Enabled = False
    Check4.Value = 0
    Check4.Enabled = False
    Check5.Value = 0
    Check5.Enabled = False
 
If Form1.Tag = 0 Then
    If k(0) = True Then
        Form1.Tag = 1
        If de1 = 1 Then
        x1 = 1
        Else
        x1 = 0
        End If
        If de2 = 1 Then
        x2 = 1
        Else
        x2 = 0
        End If
        If de3 = 1 Then
        x3 = 1
        Else
        x3 = 0
        End If
        If de4 = 1 Then
        x4 = 1
        Else
        x4 = 0
        End If
        If de5 = 1 Then
        x5 = 1
        Else
        x5 = 0
        End If
        Lb(0) = x1 + x2 + x3 + x4 + x5
        k(0) = False
 
    End If
End If
    If k(1) = True Then
 
        If de1 = 2 Then
        x1 = 2
        Else
        x1 = 0
        End If
        If de2 = 2 Then
        x2 = 2
        Else
        x2 = 0
        End If
        If de3 = 2 Then
        x3 = 2
        Else
        x3 = 0
        End If
        If de4 = 2 Then
        x4 = 2
        Else
        x4 = 0
        End If
        If de5 = 2 Then
        x5 = 2
        Else
        x5 = 0
        End If
        Lb(1) = x1 + x2 + x3 + x4 + x5
        k(1) = False
    End If
 
    If k(2) = True Then
 
        If de1 = 3 Then
        x1 = 3
        Else
        x1 = 0
        End If
        If de2 = 3 Then
        x2 = 3
        Else
        x2 = 0
        End If
        If de3 = 3 Then
        x3 = 3
        Else
        x3 = 0
        End If
        If de4 = 3 Then
        x4 = 3
        Else
        x4 = 0
        End If
        If de5 = 3 Then
        x5 = 3
        Else
        x5 = 0
        End If
        Lb(2) = x1 + x2 + x3 + x4 + x5
        k(2) = False
    End If
end If

06/05/2006, 17h09
jacma

Bon, si j'ai bien compris, tu as une série de boutons, et chaque bouton correspond à une sorte de propriété "Etat" (x) qui peut prendre deux valeurs: 0 et 1, et lorsque une propriété a été définie, tu ne veux plus avoir à la tester, elle reste identique jusqu'à la fin.

Je te propose une méthode que j'emploie pour gérer des boutons d'outils dans une barre d'outils. Elle repose sur une chaîne de texte d'une longueur égale au nombre de boutons, chaque caractères étant un " " ou tout autre carctère significatif plus visible au départ.

A partir de ce point de départ, il y a beaucoup d'alternatives qui dépendent de ce que tu veux faire par la suite. La plus simple est de "désaciver" le bouton sur lequel tu cliques et de passer le caractère de rang identique à l'index du bouton à "0" ou "1". Tu obtiens donc, à chaque clic une chaîne mémorisant en fait deux points:
1°/ La propriété x de rang i a été définie puisque le bouton est désactivé.
2°/ La valeur de cette propriété de rang i a été déterminée à 0 ou 1.
Et comme cette propriété x reste inchangés, plus de test. Et tu peux ensuite la récupérer pour tout usage.

Voilà l'idée générale. N'hésite pas à poser des questions si je ne suis pas clair.

PS: évites ces longs listings de code dans lequels on se perd, aussi bien ceux qui lisent (en tout cas moi ;) ) que celui qui l'écrit. Lorsque que tu as un problème qui te semble complexe, réduit le, tant en nombre de "composants" qu'en le fractionnant en plusieurs sous problèmes. Dans ton cas, essaye par exemple avec 2 boutons... Tu auras ensuite tout le temps de les traiter tous...
06/05/2006, 17h22
Spiritkiller

je comprends pas tout c'est un peu du charabia pour moi peux tu detailler STP.
06/05/2006, 17h34
jacma

Citation:

Envoyé par Spiritkiller

je comprends pas tout c'est un peu du charabia pour moi peux tu detailler STP.

Mieux que celà: va voir mon praticiel A"ccès aux données ADO" dans lequell cette méthode est exposée (pour une barre d'outils).

Et précises ce que tu ne comprends pas: la méthode ou la technique?
07/05/2006, 01h33
SfJ5Rpw8

Citation:

Envoyé par Spiritkiller

je comprends pas tout c'est un peu du charabia pour moi peux tu detailler STP.

:mouarf: lol moi c'est le tiens charabia ou je comprends rien ??? qu'est ce que tu ve dire avec tes "vérifier" ...

bonjour

Il me semble que cette façon d'ecrire ce code est plus lisible et permet d'avoir une vision globale plus facile, pour comprendre la question, j'ai du le formater de la façon suivante.

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
Private Sub bt_Click(i As Integer)
en '<---- ??? qu'est ce que c'est ce EN
Msg = MsgBox("Etes-vous sûr?", vbYesNo + vbQuestion, "Avertissement")
If Msg = vbYes Then
 K(i) = True 'mémorise action sur bouton i
 For i = 0 To 13: bt(i).Enabled = False: Next i
 
 If Lancer.Enabled = False Then Lancer.Enabled = True
 
 Jeu = 0
 '  JEU vient d'etre declare = 0 donc la ligne suivante s'avere inutile
 If Jeu = 3 Then Lancer.Enabled = False
 
 Check1.Value = 0: Check1.Enabled = False
 Check2.Value = 0: Check2.Enabled = False
 Check3.Value = 0: Check3.Enabled = False
 Check4.Value = 0: Check4.Enabled = False
 Check5.Value = 0: Check5.Enabled = False
 
 If Form1.Tag = 0 Then
  If K(0) = True Then
   Form1.Tag = 1
   'vue que Form1.Tag prend pour valeur 1, et si aucune autre ligne de commande ne
' change cette valeur,
'lors du 2° click sur bt(x), K(0) ne serat pas de nouveau verifié
   If de1 = 1 Then X1 = 1 Else X1 = 0
   If de2 = 1 Then X2 = 1 Else X2 = 0
   If de3 = 1 Then X3 = 1 Else X3 = 0
   If de4 = 1 Then X4 = 1 Else X4 = 0
   If de5 = 1 Then X5 = 1 Else X5 = 0
   Lb(0) = X1 + X2 + X3 + X4 + X5
   K(0) = False
  End If
 End If
 
 If K(1) = True Then
  If de1 = 2 Then X1 = 2 Else X1 = 0
  If de2 = 2 Then X2 = 2 Else X2 = 0
  If de3 = 2 Then X3 = 2 Else X3 = 0
  If de4 = 2 Then X4 = 2 Else X4 = 0
  If de5 = 2 Then X5 = 2 Else X5 = 0
  Lb(1) = X1 + X2 + X3 + X4 + X5
  K(1) = False
 End If
 
 If K(2) = True Then
  If de1 = 3 Then X1 = 3 Else X1 = 0
  If de2 = 3 Then X2 = 3 Else X2 = 0
  If de3 = 3 Then X3 = 3 Else X3 = 0
  If de4 = 3 Then X4 = 3 Else X4 = 0
  If de5 = 3 Then X5 = 3 Else X5 = 0
  Lb(2) = X1 + X2 + X3 + X4 + X5
  K(2) = False
 End If
 
End If
End Sub

Pour moi K(0) n'est verifié qu'une fois, a suposer que Form1.tag a ete declaré = 0 dans Form1_Load, et ne prendrat plus pour valeur zero par aucune ligne de code.

Salut. ;)

07/05/2006, 13h16
SfJ5Rpw8

utilisée comme elle est utilisée dans, ces 2 codes la variables K .. ne sert à rien ...! tout autant utiliser i..

Citation:

Envoyé par ProgElecT

bonjour

Il me semble que cette façon d'ecrire ce code est plus lisible et permet d'avoir une vision globale plus facile, pour comprendre la question, j'ai du le formater de la façon suivante.

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
Private Sub bt_Click(i As Integer)
en '<---- ??? qu'est ce que c'est ce EN
Msg = MsgBox("Etes-vous sûr?", vbYesNo + vbQuestion, "Avertissement")
If Msg = vbYes Then
 K(i) = True 'mémorise action sur bouton i
 For i = 0 To 13: bt(i).Enabled = False: Next i
 
 If Lancer.Enabled = False Then Lancer.Enabled = True
 
 Jeu = 0
 '  JEU vient d'etre declare = 0 donc la ligne suivante s'avere inutile
 If Jeu = 3 Then Lancer.Enabled = False
 
 Check1.Value = 0: Check1.Enabled = False
 Check2.Value = 0: Check2.Enabled = False
 Check3.Value = 0: Check3.Enabled = False
 Check4.Value = 0: Check4.Enabled = False
 Check5.Value = 0: Check5.Enabled = False
 
 If Form1.Tag = 0 Then
  If K(0) = True Then
   Form1.Tag = 1
   'vue que Form1.Tag prend pour valeur 1, et si aucune autre ligne de commande ne
' change cette valeur,
'lors du 2° click sur bt(x), K(0) ne serat pas de nouveau verifié
   If de1 = 1 Then X1 = 1 Else X1 = 0
   If de2 = 1 Then X2 = 1 Else X2 = 0
   If de3 = 1 Then X3 = 1 Else X3 = 0
   If de4 = 1 Then X4 = 1 Else X4 = 0
   If de5 = 1 Then X5 = 1 Else X5 = 0
   Lb(0) = X1 + X2 + X3 + X4 + X5
   K(0) = False
  End If
 End If
 
 If K(1) = True Then
  If de1 = 2 Then X1 = 2 Else X1 = 0
  If de2 = 2 Then X2 = 2 Else X2 = 0
  If de3 = 2 Then X3 = 2 Else X3 = 0
  If de4 = 2 Then X4 = 2 Else X4 = 0
  If de5 = 2 Then X5 = 2 Else X5 = 0
  Lb(1) = X1 + X2 + X3 + X4 + X5
  K(1) = False
 End If
 
 If K(2) = True Then
  If de1 = 3 Then X1 = 3 Else X1 = 0
  If de2 = 3 Then X2 = 3 Else X2 = 0
  If de3 = 3 Then X3 = 3 Else X3 = 0
  If de4 = 3 Then X4 = 3 Else X4 = 0
  If de5 = 3 Then X5 = 3 Else X5 = 0
  Lb(2) = X1 + X2 + X3 + X4 + X5
  K(2) = False
 End If
 
End If
End Sub

Pour moi K(0) n'est verifié qu'une fois, a suposer que Form1.tag a ete declaré = 0 dans Form1_Load, et ne prendrat plus pour valeur zero par aucune ligne de code.

Salut. ;)

d'accord mais je fais comment pour k(1), k(2), ...

07/05/2006, 20h56
SfJ5Rpw8

Moi j'ai beau relire ... je vois pas ce que tu ve faire... tu peu pas l'expliquer en langage .. plus clair... sans te préocuper des k() ou des Tags... ?

au départ K() été bien prévu pour mémoriser l'action sur le bouton correspondant à son indice... et ainsi le laisser à "Enable = false" le bouton associé... pourquoi repasse-tu sa valeur à false ?
07/05/2006, 20h57
jacma

Faudrait mettre plus long! Et en plusieurs exemplaires, pourquoi pas?
07/05/2006, 21h08
Spiritkiller

Citation:

Envoyé par bbil

Moi j'ai beau relire ... je vois pas ce que tu ve faire... tu peu pas l'expliquer en langage .. plus clair... sans te préocuper des k() ou des Tags... ?

au départ K() été bien prévu pour mémoriser l'action sur le bouton correspondant à son indice... et ainsi le laisser à "Enable = false" le bouton associé... pourquoi repasse-tu sa valeur à false ?

En fait bbil ce programme n'est pas le "vrai" programme, le "vrai" c'est un Yahtzee (jeu de societé). il marche mais ont peut encore tricher. si tu veux je peux t'envoyer le programme complet comme ca tu verra mon problème????
07/05/2006, 22h12
ThierryAIM

eh ho, on n'est pas là pour jouer aux devinettes !! (ni au yahtzee)

alors, soit tu t'expliques clairement, soit ce sujet est verrouillé !