Programme pour debutant avec vb
bjour,je voudrai faire un programme relativement simple avec le logiciel visual basic express.
le pgrme doit donner la valeur de 1 à 9 correspondante à chaque mot introduit(valeur ki est la somme de la valeur dordre alphabetique de chaque lettre du mot).ex: balle 2+1+12+12+5=32,on fait la somme des chiffres 3+2 donne 5 ki correspond au mot balle;merci de votre aide.
le pgrme doit donner la valeur de 1 à 9 correspondante à chaque mot introduit(valeur ki est la somme de la valeur dordre alphabetique de chaque lettre du mot).ex: balle 2+1+12+12+5=32,on fait la somme des chiffres 3+2 donne 5 ki correspond au mot balle;merci de votre aide.
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
Bonjour,
Oui effectivement, tu peux faire un tableau dans lequel tu affectes une valeur à chaque lettre...mais ce n'est pas vraiment intéressant (beaucoup de déclaration de variables, de saisies de valeur pour ces variables), mieux vaut passer par les valeurs ASCII des touches tapées au clavier, çà permet de ne pas prendre en compte les caractères qui ne sont pas des lettres majuscules (ou minuscules, ou les deux, ou le signe + ou $) ==> c'est beaucoup plus souple et c'est standart : https://www.commentcamarche.net/informatique/technologies/1589-code-ascii/
le code que j'ai fait ne te semble pas clair ? (j'ai l'impression...) -
le mot sera entré tjrs en majuscules,les affectations pour lettres maj.
-
cest nouveau pour moi comme langage fo se familiariser ca prend un peu de temps,ms pour les valeurs des lettres on ne peut pas je crois faire une affectation des 26 lettres de lakphabet comme en pascan A=:1 I=:9 Z=:26 et le programme fera la somme des valeurs affectées des lettres du mot.
-
Bonjour,
Vas-voir sur https://codes-sources.commentcamarche.net/ pour trouver des exemples, des sources, des tutoriaux...
sinon voilà une petite source vite fait :
tu mets une form avec un textbox, un bouton
Private Sub Command1_Click()
Dim Mot As String
Dim Lettre As String
Dim Num As Integer
Dim Somme As Long
Dim Resultat As Integer
Mot = Text1.Text
'Correspondance lettre/chiffre
Somme = 0
For n = 1 To Len(Mot)
Lettre = Mid(Mot, n, 1)
Num = ChercheValeur(Lettre)
Somme = Somme + Num
Next
'Ajoute les chiffres de la somme
Resultat = 0
For n = 1 To Len(CStr(Somme))
Resultat = Resultat + CInt(Mid(CStr(Somme), n, 1))
Next
'Affiche le résultat
MsgBox "Le mot " & Mot & " correspond à " & Resultat & "."
End Sub
Function ChercheValeur(Lettre As String) As Integer
Dim Ascii As Integer
Ascii = Asc(Lettre)
If Ascii >= 65 And Ascii <= 90 Then
'C'est une lettre majuscule
ChercheValeur = Ascii - 64
ElseIf Ascii >= 97 And Ascii <= 122 Then
'C'est une lettre minuscule
ChercheValeur = Ascii - 96
Else
'Ce n'est pas une lettre
ChercheValeur = 0
End If
End Function
çà marche pour le mot balle, pour les autres tu testeras...
