Trouver le rang d'une lettre dans l'alphabet

Comment on fait pour que lorsque le type il entre une phrase, le prog met le rang de chaque lettre ????

Charlax

Si tu veux dire par là afficher en temps réel la longueur de la phrase saisie par le type, il suffit d'afficher la "Len()" du contenu de ta zone de texte et la rafraichir "OnChange()"...

Mais j'ai comme l'impression que c'est pas ce que tu cherches a faire. Tout du moins c'est hors sujet avec le titre de ton post.

Be cool....


-------------------------------
Réponse au message :
-------------------------------

> Comment on fait pour que lorsque le type il entre une phrase, le prog met le rang de chaque lettre ????
>
> Charlax

salut

pour obtenir le rend d'une lettre tu fais :

rend = asc(ucase$(caractere))-64

si tu es dans l'evenement KeyPress tu fais :
rend = keyascii - 64

voila

ShareVB


-------------------------------
Réponse au message :
-------------------------------

> Comment on fait pour que lorsque le type il entre une phrase, le prog met le rang de chaque lettre ????
>
> Charlax

tu veux dire lorsqu'il frappe au clavier, on puisse savoir quel position se situe ce qu'il vient de frapper ? et bein il suffit de faire sur l'événement key up ou down

rang = len(text)


-------------------------------
Réponse au message :
-------------------------------

> Comment on fait pour que lorsque le type il entre une phrase, le prog met le rang de chaque lettre ????
>
> Charlax

Je me rexplique :
si le type rentre "Bonjour"
l'ordi met
2 15 ...
en bref A donnera 1 (c la première lettre de l'alphabet)
b : 2
c : 3
d : 4
et ainsi de suite

scusez moi de m'être mal expliqué

en fait pour une seule lettre ça marche komme ça :
Dim rend As Integer
rend = Asc(UCase$(text)) - 64
MsgBox rend

mais pour plusieur il met seuleument la première
ex : azerty il mettra 1
et bonjour il mettra 2
En tout cas merci parce que ça marche un peu !!

et sinon (ce sera mon deuxième prog en basic) pouvez vous expliquer un peu :
asc(Ucase$())

sinon voilà merci beaucoup ! ! !

après faudra compliquer tout ça ! !

Charlax

salut

bon ben c facile
ucase$ ca met le texte en MAJ
asc ca renvoie le code ascii du caractere
par ex A = 65,B=66

voila

ShareVB


-------------------------------
Réponse au message :
-------------------------------

> Je me rexplique :
> si le type rentre "Bonjour"
> l'ordi met
> 2 15 ...
> en bref A donnera 1 (c la première lettre de l'alphabet)
> b : 2
> c : 3
> d : 4
> et ainsi de suite
>
> scusez moi de m'être mal expliqué
>
> en fait pour une seule lettre ça marche komme ça :
> Dim rend As Integer
> rend = Asc(UCase$(text)) - 64
> MsgBox rend
>
> mais pour plusieur il met seuleument la première
> ex : azerty il mettra 1
> et bonjour il mettra 2
> En tout cas merci parce que ça marche un peu !!
>
> et sinon (ce sera mon deuxième prog en basic) pouvez vous expliquer un peu :
> asc(Ucase$())
>
> sinon voilà merci beaucoup ! ! !
>
> après faudra compliquer tout ça ! !
>
> Charlax
>

Merci j'ai tout pigé mais sinon pour plusieurs lettres ????
(voir plus bas)
Faut que ça marche pour plusieurs lettres

Charlax


-------------------------------
Réponse au message :
-------------------------------

> > Je me rexplique :
> > si le type rentre "Bonjour"
> > l'ordi met
> > 2 15 ...
> > en bref A donnera 1 (c la première lettre de l'alphabet)
> > b : 2
> > c : 3
> > d : 4
> > et ainsi de suite

Dim i As Integer
Dim Rang As String

Text = "azerty"

For i = 1 To Len(Text)
Rang = Rang & " " & Asc(UCase$(Mid$(Text, i, 1))) - 64
Next i

MsgBox Rang


@+

wape


-------------------------------
Réponse au message :
-------------------------------

> Merci j'ai tout pigé mais sinon pour plusieurs lettres ????
> (voir plus bas)
> Faut que ça marche pour plusieurs lettres
>
> Charlax
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > > Je me rexplique :
> > > si le type rentre "Bonjour"
> > > l'ordi met
> > > 2 15 ...
> > > en bref A donnera 1 (c la première lettre de l'alphabet)
> > > b : 2
> > > c : 3
> > > d : 4
> > > et ainsi de suite

tu mets deux textbox (text1 et text2)

Private Sub Text1_KeyPress(KeyAscii As Integer)
text2.text = text2.text & " " & asc(ucase$(chr$(keyascii))) - 64
End Sub

chr$ ca renvoie un caractere correspondant au code ascii en parametre. chr$(65)=A,chr$(90)=Z

quand c pas des lettres ca affichera quand meme quelque chose. si tu veux que ca affiche pas quand c pas une lettre
tu mets en plus :
if keyascii >= 65 and keyascii <= 90 then
'si c une lettre
else
'si c pas une lettre
end if

ShareVB


-------------------------------
Réponse au message :
-------------------------------

> Merci j'ai tout pigé mais sinon pour plusieurs lettres ????
> (voir plus bas)
> Faut que ça marche pour plusieurs lettres
>
> Charlax
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > > Je me rexplique :
> > > si le type rentre "Bonjour"
> > > l'ordi met
> > > 2 15 ...
> > > en bref A donnera 1 (c la première lettre de l'alphabet)
> > > b : 2
> > > c : 3
> > > d : 4
> > > et ainsi de suite

MERCI BEAUCOUP !
ça marche maintenant ! ! ! !
mais j'aimerais que vous m'expliquierz un tout petit peu
Text2.text & " " & Asc(UCase$(Chr$(KeyAscii)))

merci encore ! ! !
Charlax