paul2k335
Messages postés mercredi 26 novembre 2008Date d'inscription
28 décembre 2008
Dernière intervention
-
19 déc. 2008 à 16:23 - Dernière réponse : paul2k335
Messages postés mercredi 26 novembre 2008Date d'inscription
28 décembre 2008
Dernière intervention
- 19 déc. 2008 à 19:20
Salut;
je voi que tu a fait une erreur ; j'ai ecrit b=b+c et non b=a+b
et moi aussi j'ai fait une ereur il faut initialiser "b" chaque fois
don le code devient :
Private Sub Command1_Click()
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Integer ' variable intermediare
Dim i As Integer ' por la boucle 1
Dim j As Integer ' por la boucle 2
a = "ABC"
For j = 1 To 2 'nb est le nombre c'est combien de
b = "" ' initialisation de b ici
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc b b + c ' ici b b+c et non b = a+c
Next i
' b résultats intermédiaire ici tu peut l'afficher
Print b 'AFFICHER
a = b
Next j
End Sub
et je suis sure qu'il mareche tres bien;
cordialement, a+
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
Dim a As String 'chaine de caractères source par exemple "ABC"
Dim b As String 'chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte
b = ""
a = "ABCDEF"
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
N’hésiter pas a poser tes questions si tu n’a pas compris ça…
a+
paul2k335
Messages postés mercredi 26 novembre 2008Date d'inscription
28 décembre 2008
Dernière intervention -19 déc. 2008 à 17:18
0
Utile
merci pour repondre Moussaoui
enfaite mon projet
le client saisie un mots et un nombre (le nombre c'est combien de fois ca doit incrementer)
par exemple il tabe "ABC" et le nombre 2
paul2k335
Messages postés mercredi 26 novembre 2008Date d'inscription
28 décembre 2008
Dernière intervention -19 déc. 2008 à 17:19
0
Utile
merci pour repondre Moussaoui
enfaite mon projet
le client saisie un mots et un nombre (le nombre c'est combien de fois ca doit incrementer)
par exemple il tabe "ABC" et le nombre 2
Donc on va faire une simple modification , avec deux boucle imbriquée :
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Dim a As String ' chaine de caractères source par exemple "ABC"
Dim b As String ' chaine de caractères detination donc b = "BCD"
Dim c As String ' variable intermediare
Dim d As Byte ' variable intermediare
Dim i as byte ' por la boucle 1
dim j as byte ' por la boucle 2
b = ""
a = "ABCDEF"
for j = 1 to nb ‘nb est le nombre c'est combien de fois ca doit incrementer)
For i = 1 To Len(a)
c = Left(a, i)
c = Right(c, 1)
d = Asc(c) 'Asc est une fonction qui renvoi le code ascci
d = d + 1 'on l'incrimente
c = Chr(d) 'Chr est la fonction inverse de Asc
b = b + c
Next i
‘ b résultats intermédiaire ici tu peut l’afficher
a = b
Next j
Et en fin le résultat final est dans ‘b’, tu peu afficher les résultats intermédiaire
Ou bien si tu n’a pas intéresser par les résultats intermédiaire
Donc met ‘ d d + nb’ au lieu de ‘d d + <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /??><st1:metricconverter w:st="on" productid="1’">1’</st1:metricconverter> dans le premier code.
