Discussion :

[ahmedfa71]

bon soir
J'ai un numéro de compte contient 10 ou 9 ou 8 ou bien 7 numéro et je veux trouver le clé de ce compte
Par exemple 1012344597
C'est comme ça de droite à gauche
on commence avec fois *4 , *5, *6 ……….
(13*1)+(12*0)+(11*1)+(10*2)+(9*3)+(8*4)+(7*4)+(6*5)+(5*9)+(4*7)
= 13+0+11+20+27+32+28+30+45+28
=234
le clé et 34
J'ai essai ce code mais ça n'a pas marché
Dim text As String = TextBox1.Text


Dim str1 As String = Microsoft.VisualBasic.Right(text, 1)
Dim str2 As String = Microsoft.VisualBasic.Right(text, 2)
Dim str3 As String = Microsoft.VisualBasic.Right(text, 3)
Dim str4 As String = Microsoft.VisualBasic.Right(text, 4)
Dim str5 As String = Microsoft.VisualBasic.Right(text, 5)
Dim str6 As String = Microsoft.VisualBasic.Right(text, 6)
Dim str7 As String = Microsoft.VisualBasic.Right(text, 7)
Dim str8 As String = Microsoft.VisualBasic.Right(text, 8)

TextBox2.Text = Val(str1 * 4) + Val(str2 * 5) + Val(str3 * 6) + Val(str4 * 7) + Val(str5 * 8) + Val(str6 * 9) + Val(str7 * 10) + Val(str8 * 11)

et merci

[arthur57]

Bonjour,

Par exemple 1012344597
C'est comme ça de droite à gauche
on commence avec fois *4 , *5, *6 ……….
(13*1)+(12*0)+(11*1)+(10*2)+(9*3)+(8*4)+(7*4)+(6*5)+(5*9)+(4*7)

Je ne comprends pas bien la méthode de calcul, peux-tu être plus clair ?

ps : le deuxième paramètre de la méthode right est la longueur, es-tu sûr que c'est ce que tu veux obtenir ?
https://msdn.microsoft.com/fr-fr/library/dxs6hz0a(v=vs.90).aspx
Tu cherches peut-être à accéder au n ème caractère ?

Cordialement.

[wpjo1956]

tapez "TextBox2.Text = str3" et vous verrez directement en quoi votre idée ne peut fonctionner.

En VB6, j'aurais écrit:

Code VB.NET :

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

    str3 = Left(Right(TextBox1.text, 3), 1)

Et en tant que programmeur j'aurais écrit une code plus logique, plus claire et plus facile à debugger. Genre:

Code VB.NET :

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

1
2
3
4
5
    Dim intLettre(9) as Integer
 
    For i = 1 to Len(txtBankAccountNumber.text)
      intLettre(i) = Left(Right(txtBankAccountNumber.text, i), 1) 
    Next   'For i = 1 to Len(txtBankAccountNumber.text)

Je commente ce petit bout de code:

-1- en VB j'utilise quai-systématiquement les préfixes normés, "int" pour un entier, "str" pour une chaîne, txt pour un textBox etc. La liste est longue donc je vous demande de le chercher vous-même sur le web
La conséquence est que vous voyez directement pourquoi le code suivant, n'importe où dans votre programme, va créer un bug

Code VB.NET :

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

    intVariableQuelconqueIci = strVariableMachinLa

ou,

Code VB.NET :

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

   intVariableQuelconqueIci = txtBancAccountNumber

-2- Le "For ... Next"

A la fin de mon boucle (donc le 'Next' ou 'Wend', ou 'EndCase'), je rappelle systématiquement le début sous forme de commentaire. Soit, en entier, sois en forme abrégé sir la condition initiale contient un 'Or' ou 'And'. Dans l'exemple en entier, voit ci-dessus. Un exemple en abrégé, voici le suivant :

Code VB.NET :

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

    Next   'For If ... Or ... Then ... Else ...

-3- les "noms"

Je n'utilise jamais les variables genre TextBox1 etc. C'est une horreur et je ne comprends rien quand je débugge un programme de 300 pages. Si par exemple, j'ai une commande avec la caption "Stop", je le nomme d'office pas 'Commande1' mais 'cmdStop'. Et ainsi de suite. La conséquence c'est que quand je débugge, je sais à quel objet ou variable j'ai eu affaire. On reproche souvent que de cette façon, les noms deviennent trop longs. Certes. Mais dès que vous mettez le programme dans en exécution, le compilateur remplace le nom long de 18 caractères par un nom court de 2 octets ou qq chose de la sorte. Votre programme devient donc plus lisible, plus facile à débugger tout en ne perdant rien en efficacité.

Ce sont seulement et UNIQUEMENT ces trucs, et autres, qui me permettent d'écrire, ET DE DEBUGGER des programmes de centaines de pages de longueur.

Pour poursuivre cette conversation, mon contact est oomenwong at free.fr.

Cordialement, W