Discussion :

[Juan26]

Bonjour,

je peaufine mon apprentissage en VB6 avec aujourd'hui besoin de votre aide pour un switch de numéro.
En résumé, je souhaite qu'à chaque fois que l'on appuie sur la touche TAB cela invoque un numéro mais dans l'ordre.

J'ai donc rédigé ce morceau de code tout simple qui fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim NUMERO as long
 
If KeyCode = vbkeytab then
 
If NUMERO = 1 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero1")) = 1 then NUMERO = 2
If NUMERO = 2 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero2")) = 1 then NUMERO = 3
If NUMERO = 3 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero3")) = 1 then NUMERO = 4
If NUMERO = 4 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero4")) = 1 then NUMERO = 5
If NUMERO = 5 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero5")) = 1 then NUMERO = 1
 
End if

Sauf que si un NUMERO1 n'est pas disponible j'aimerai que cela passe au NUMERO + 1 jusqu'à tomber sur un NUMERO disponible.
Y'a t'il un moyen simple de dire passe au suivant jusqu'à ce que les conditions soit ok ?

merci par avance

[ProgElecT]

Salut

J'ai donc rédigé ce morceau de code tout simple qui fonctionne.

Code :

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

1
2
3
4
5
Dim NUMERO as long
 
If KeyCode = vbkeytab then
 
      If NUMERO = ....

à se stade, la variable NUMERO n'est pas initialisée, elle vaut Empty, ton code ne peut pas fonctionner correctement.

Si tu peux nous éclairer déjà sur ce point cela nous permettra de continuer à t'aider.

[Juan26]

MErci ProgElecT du temps pris pour me répondre.

Dim NUMERO as long ==> NUMERO est un paquet que j'envoi du client au serveur c'est pour cela que ce n'est pas défini dans mon premier message.


Si j'appuie sur TAB le client envoi un chiffre (cette partie du code est déjà ok).

Là où je bloque c'est coté serveur.

Je recois donc NUMERO = 2
J'essaie donc de faire en sorte que si 2 est un chiffre valide

Code :

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

VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero2")) = 1

Alors lorsque j'ai appuyez sur 2 je passe au chiffre 3 et ainsi desuite avec 3 si j'appuie TAB cela passe au 4.

Dans mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim NUMERO as long
 
If KeyCode = vbkeytab then
 
If NUMERO = 1 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero1")) = 1 then NUMERO = 2
If NUMERO = 2 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero2")) = 1 then NUMERO = 3
If NUMERO = 3 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero3")) = 1 then NUMERO = 4
If NUMERO = 4 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero4")) = 1 then NUMERO = 5
If NUMERO = 5 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero5")) = 1 then NUMERO = 1
 
End if

J'ai crée une boucle à ma manière mais ca marche.
Sauf que si ma vérification ==>

Code :

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

VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero2"))

n'est pas bonne je sais pas dire passe au chiffre suivant.

Ex :
si le chiffre que j'ai est 2.
J'appuie sur TAB je passe au chiffre 3 mais si 3 n'est pas opérationnel ("Numero3" = 0) alors passe au numéro 4 et si ("Numero4" = 0) passe au 5.
Et ainsi desuite jusqu'à tomber sur un "NumeroX" = 1 sinon retour au chiffre existant de base.

J'espère avoir été plus clair, Merci par avance

[Juan26]

Pour faire plus simple si quelqu'un peut me donner une base de code pour que lorsque j'appuie sur une touche une variable change de 1 à 5 en boucle et en qu'à de condition non respecté cela continue jusqu'au chiffre suivant et ainsi desuite jusqu'à ce que la condition soit respecté ?

Merci

[wheel]

Dans une boule vous devriez changer la partie constante "Numero2" par "Numero" & CStr(NUMERO) pour la ligne correcte ..

[Juan26]

J'ai trouvé une solution à mon problème merci tout de meme