Conversion d'une chaîne en valeur numérique
libellule123
Messages postés
4
Statut
Membre
-
libellule123 Messages postés 4 Statut Membre -
libellule123 Messages postés 4 Statut Membre -
Bonjour, avant tout je précise que je travaille sur Visual Basic 2010 en application console et que je suis débutante.
je souhaite afficher la valeur de chaque lettres (par rapport à son emplacement dans l'alphabet ou son code ASCII)
exemple : si je saisie JOUR, le résultat en nombre serai 10,15,21,18, mais je pense que cela serai compliquer, je ne voit pas comment je pourrais affecter une valeur (ex A=1, B=2 ) pour chacune des lettres, le code serais interminable ?
j'ai donc commencer par faire un essais en utilisant le code ASCII mais j'ai un message d'erreur qui me dit que le résultat est read only (donc si je ne fait pas erreur il ne retourne aucunes valeurs?)
voici mon code:
Res = Mot
Return Res
Next
End Function</code>
Pourriez-vous m'éclairez afin que je comprenne ou est mon erreur merci.
je souhaite afficher la valeur de chaque lettres (par rapport à son emplacement dans l'alphabet ou son code ASCII)
exemple : si je saisie JOUR, le résultat en nombre serai 10,15,21,18, mais je pense que cela serai compliquer, je ne voit pas comment je pourrais affecter une valeur (ex A=1, B=2 ) pour chacune des lettres, le code serais interminable ?
j'ai donc commencer par faire un essais en utilisant le code ASCII mais j'ai un message d'erreur qui me dit que le résultat est read only (donc si je ne fait pas erreur il ne retourne aucunes valeurs?)
voici mon code:
Public Function convertString(ByVal Mot As String) As String
Dim Res As String
For i = 0 To Mot.Length
Mot(i) = Mot(i).Chr(Asc("A") + 1)
Mot = Mot(i)<code basic>
Res = Mot
Return Res
Next
End Function</code>
Pourriez-vous m'éclairez afin que je comprenne ou est mon erreur merci.
A voir également:
- Conversion d'une chaîne en valeur numérique
- Télévision numérique - Guide
- Télévision numérique terrestre - Accueil - TV & Vidéo
- Chaine tnt gratuite sur mobile - Guide
- Pavé numérique bloqué - Guide
- Clavier numérique bloqué - Guide
Public Function convertString(ByVal Mot As String, i As Integer) As Integer Mot = "" For i = 1 To Mot.Length Mot = Mot & Asc(Mid(Mot, i, 1)) & " " Next Return Mot End Functionnmalheureusement je n'arrive pas à le tester, j'ai une erreur qui s'affiche lors de la transcription du test au niveau "fonction.ConvertSting(st) ???
Sub Main() Console.WriteLine("veuillez saisir un mot") Dim st As Integer st = Console.ReadLine() Console.WriteLine(fonctions.ConvertString(st)) End Subj'espère que vous m'apporterez votre aide, merci