Discussion :

[méphistopheles]

Bonjour.

je suis incapable de te dire si ton algorithme est juste pour la bonne raison que je suis incapable de lire dans te pensées. Il serait peut-êtrte utile de condescendre à nous dire ce que tu veut faire avec ton algorithme ?

là, ton algorithme calcule un résutat obtenu à partir d'une certaine valeur donné à chaque lettre (ça irais tres bnien pour calculer le score d'un scrable).

Tu pourrais également nous dire si tu l'à testé et ce que ça donne non ?

ton problème, sinon, m'à l'air d'être plus un problème de Vb que d'algorithmie, je pense qu'un modo devrais déplacer.
Une petite optimisation de code par exemple:
on ne met pas:

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
LVal(0) = 1     'A
LVal(1) = 3     'B
LVal(2) = 3     'C
LVal(3) = 2     'D
LVal(4) = 1     'E
LVal(5) = 4     'F
LVal(6) = 2     'G
LVal(7) = 4     'H
LVal(8) = 1     'I
LVal(9) = 8     'J
LVal(10) = 10     'K
LVal(11) = 1     'L
LVal(12) = 2     'M
LVal(13) = 1     'N
LVal(14) = 1     'O
LVal(15) = 3     'P
LVal(16) = 8     'Q
LVal(17) = 1     'R
LVal(18) = 1     'S
LVal(19) = 1     'T
LVal(20) = 1     'U
LVal(21) = 4     'V
LVal(22) = 10     'W
LVal(23) = 10     'X
LVal(24) = 10     'Y
LVal(25) = 10     'Z

mais:

Code :

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

LVal= aray(1,3,3,2... 10)

sinon, il seraitr aussi utile de nous expliquer où se situe ton problème.

[lol88]

Oui Je fais un algorithme à coté de mon programme.

C'est pour çà que je demandais des informations sur SelStart et Ucase pour voir s'il gardait la même forme en algorithmique!
Car je ne voyais pas comment retranscrire la partie de code qui concerne ces fonction

Code :

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

1
2
3
  I = Text1.SelStart 'on mémorise l'emplacement du curseur
    Text1.Text = UCase(Text1.Text)  'on met tout en majuscule
    Text1.SelStart = I 'on remet le curseur à sa place

merci pour les réponses déjà apportés.