Faire un switch number

Version imprimable

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:

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 :)

18/08/2022, 11h10
ProgElecT
Salut
Citation:
J'ai donc rédigé ce morceau de code tout simple qui fonctionne.

Code:

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.

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:

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:

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:

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 :oops:

19/08/2022, 15h40
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 :hola::hola::hola::hola::hola::hola::hola::hola::hola:
20/08/2022, 08h39
wheel

Dans une boule vous devriez changer la partie constante "Numero2" par "Numero" & CStr(NUMERO) pour la ligne correcte ..
20/08/2022, 09h03
Juan26

J'ai trouvé une solution à mon problème merci tout de meme :zoubi:
20/08/2022, 20h16
DAUDET78

Citation:

Envoyé par Juan26

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

Vachement sympa de ne pas donner ta solution. Si un lecteur, qui a le même problème, passe par ici, il serra heureux !

Citation:

Envoyé par DAUDET78

Vachement sympa de ne pas donner ta solution. Si un lecteur, qui a le même problème, passe par ici, il serra heureux !

Vachement sympa de faire une réflexion mais de ne pas aider :aie:
Je pensais que ca n'interessait personne au vu du peu de réponses :lol: mais tu as raison pour d'autres ça pourrait servir.

La solution était toute bete, j'ai mutiplié les conditions jusqu'à obtenir celle qui me convient et qui executera la suite du code via fonction Goto.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
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 : Goto fin
If NUMERO = 1 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero2")) = 1 then NUMERO = 3 : Goto fin
If NUMERO = 1 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero3")) = 1 then NUMERO = 4 : Goto fin
If NUMERO = 1 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero4")) = 1 then NUMERO = 5 : Goto fin
If NUMERO = 1 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero4")) = 1 then NUMERO = 1 : exit sub
 
If NUMERO = 2 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero2")) = 1 then NUMERO = 3 : Goto fin
If NUMERO = 2 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero3")) = 1 then NUMERO = 4 : Goto fin
If NUMERO = 2 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero4")) = 1 then NUMERO = 5 : Goto fin
If NUMERO = 2 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero5")) = 1 then NUMERO = 1 : Goto fin
If NUMERO = 2 and VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero1")) = 1 then NUMERO = 1 : exit sub
 
End if

Ainsi desuite pour les NUMERO = 1 2 3 4 5

Puis j'execute le reste de mon code via

Code:

1
2
 
: Fin

Ce n'est pas la meilleur facon de coder (multiplie les lignes) mais cela fonctionne.

21/08/2022, 08h40
DAUDET78

Citation:

Envoyé par Juan26

Vachement sympa de faire une réflexion mais de ne pas aider

Je ne pouvais pas t'aider car je ne suis pas assez bon en VB6, par contre j’améliore ma culturation en lisant les réponses.

Salut

Citation:

Envoyé par Juan26

Vachement sympa de faire une réflexion mais de ne pas aider

Ben moi je ne suis toujours pas sûr d'avoir compris . . . . mais ...
Comme le suggère wheel, il doit être possible de passer par une boucle pour réduire la longueur du code, peut être celle-ci
Code:

1 2 3 4 5 6 7 8 9 10 11 If KeyCode = vbkeytab then Dim Condition2 As Integer For T = 1 To 5 Condition2 = VAL(GetVar(App.Path & "\accounts\" & Trim$(Login(index)) & ".ini", "INFO", "Numero" & T)) If NUMERO = T And Condition2 = T Then NUMERO = T + 1 If NUMERO = 6 Then NUMERO = 1 Exit Sub End If Next T End If
Code non vérifier (je n'ai plus d'ordinateur avec VB6 d'installé), mais dans l'idée ....

Je pense qu'il veut effectuer une recherche à partir de l'indice NUMERO jusqu’à trouver une valeur valide renvoyée par le paramètre "NumeroX" si c'était le cas NUMERO est incrémenté d'un pas .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim I As Long, T As Long
Dim Condition2 As Boolean
If KeyCode = vbKeyTab Then
  T = NUMERO
  For I = 1 To 5
    Condition2 = Val(GetVar(App.Path & "\accounts\" & Trim$(Login(Index)) & ".ini", "INFO", "Numero" & CStr(T))) <> 0
    T = T + 1
    If T > 5 Then: T = 1
 
    If Condition2 Then
       NUMERO = T
       Exit Sub
    End If
  Next
End If

24/08/2022, 07h34
Juan26

Merci à tous pour vos réponses, je vais essayer de réduire le code avec ce systeme de boucle. :ave::ave::ave: