Discussion :

[sabrimi]

Bonsoir à tous,

J'apprends à utiliser VB5 car j'ai qq notions en basic, mais j'ai besoin de votre aide.

Voilà, pour mes essais, j'ai fait une page avec 5CommandButton et 5 label.

Quand, je clique sur un contrôle, je fais afficher l'incrémentation dans le label correspondant.
Mais ce que je voudrais faire, c'est par exemple, après avoir cliqué 4 fois sur le bouton, l'incrémentation s'affiche dans un autre label en plus de son affichage déjà existant.

Je sais pas si je me fais bien comprendre et vous remercie de votre aide.

Cordialement.
Sabrimi

[SfJ5Rpw8]

bonjour,

montre nous ton code permettant ton incrémentation..dans ton premier label..

[sabrimi]

J'ai essayé divers solutions mais aucune ne va !

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
Private Sub Form_Load()
Dim click, NB As Integer
Dim C1, C2, C3, C4, C5 As Integer
Dim vote1 As Integer
End Sub
 
Private Sub Command1_Click()
click = 1
NB = NB + click
If NB = 3 Then
CS = C2 + 1
Exit Sub
Else
C1 = C1 + 1
 
End If
 
End Sub
 
'Private Sub Command5_Click()
'For vote1 = 3 To 1
'If C5 = 3 Then
'Stop
'End If
'C5 = 1
'Next vote1
'End Sub

Je suis un peu perdu avec tout ces "IF" et "FOR".
En fait, je sais plus quoi est le meilleur.

[ProgElecT]

Salut

Déjà tu as un problème de porté pour tes variables, si tu veux les utiliser dans tout ton Form il faut les declarer au tout debut du code.

Code :

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

1
2
3
4
Option explicit
Dim Leclick As Integer, NB As Integer
Dim C1 As Integer, C2 As Integer, C3 As Integer, C4 As Integer, C5 As Integer
Dim vote1 As Integer

Comme tu le vois, il faut typer chaque variables sinon seul la variable typée prendra le typage, les autres seront typées Variant par VB6, ce qui prend beaucoup plus de place en mémoire.
Il faut éviter, voire bannir le nommage des variables équivalent aux mots réservés du langage (click dans ton cas).
La portée des variable s'étend dans la sub ou fonction ou elles sont déclarées, exception si elle sont déclarées Public dans un module.bas.

après avoir cliqué 4 fois sur le bouton, l'incrémentation s'affiche dans un autre label en plus de son affichage déjà existant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
' Click = 1 ' Me semble inutile à moins que tu utilises cette variable ailleurs
nb = nb + 1
If nb = 3 Then
    'affiche dans le label du Command1 et dans l'autre label
    Label1.Caption = nb: Label2.Caption = nb
    'CS = C2 + 1 ' ?????
    'Exit Sub
    Else
    'C1 = C1 + 1
    Label1.Caption = nb
End If
End Sub

Je ne sais pas si cela t'aidera

[sabrimi]

D'après certains sur un forum spécialisé mais je m'en rappelle plus, ils disais que si plusieurs variables avaient le même type, il est plus simple de les mettre à la suite !!!!

Comme tu me dis que chaque variable doit être typer indépendamment, ton explication est on ne peut plus clair.
Mais tu parles de VB6, moi je commence avec VB5 !
C'est presque pareil pour les mots réservés ?

C'est très bien noté pour les noms à bannir (réservés), j'avais pas pensé que ça aurait un impact quelconque sur le programme.

Et c'est vrai qu'en voyant ton code, c'est très facile, encore fallait-il le voir plus avant.

Bon, j'ai essayé ton code, mais je ne peux pas tester parce que j'ai une erreur de compilation au niveau de C1 as Integer.
Il est dit que "L'identificateur du membre existe déjà dans une classe dont la présente classe est dérivée."
Alors, ce que ça veut dire, je sais pas trop parce C1 n'est déclaré qu'une seule fois ?????

[sabrimi]

Je ne sais pas si cela t'aidera

Effectivement, c'est presque parfait.

Le problème est qu'après le nombre de click, le nombre de fois la commande cliquée est bien dans les Label 1 et 2.
Mais, lorsque je clique sur un autre bouton de commande, au lieu de marquer le nombre de click de cette commande, c'est affiché la totalité, donc, c'est pris en compte les click de la 1ère command et même de autres.

Il y a certainement qq chose qui cloche dans mon programme mais je ne vois plus du tout !

C'est le NB qui pose problème je pense.
J'ai essayé de le remettre à 0 en début de procédure ou à la fin (juste après End If, mais c'est pas ça.

[iclic]

Bonjour,

Tu peux faire un clic de souris sur ta feuille pour initialiser ton nb

Code :

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

1
2
3
4
 
Private Sub Form_Click()
  nb = 0
End Sub

[sabrimi]

Salut

Déjà tu as un problème de porté pour tes variables

Bonjour ProgElec,

C'est vrai que ton code allait bien (ou presque) tant qu'il n'y avait que 2 votes possibles, mais si j'en rajoutais d'autres, là, y avait un problème.

J'avais pensé à "Select Case" parce que j'ai vu ça dans l'aide et j'ai posé la question, c'était le meilleur moyen pour faire ce que j'avais envisagé.

En tout cas, ton aide m'a été précieuse.

Merci beaucoup.