Listing Digits Program Résolu/Fermé

Question

salut , Je veux un programme s'il vous plaît En VB6 Qui contiens 2 textbox et un bouton ..
si on écrie un nombre " 5487 " dans textbox 1 et on clic sur le bouton , le programme affiche sur le 2éme textbox le nombre en multiline en utilisant les boucles  :
5
4
8
7
Merci pour m'aider .

Polux31 · Accepted Answer

Dans ton exercice, tu as un travail sur les boucles mais aussi sur la manipulation des chaînes de caractères.

Ici un très bon tuto de silkyroad sur la manipulation des chaînes de caractère en VB6 et VBA

Si tu déclares la variable a en string, tu ne peux pas lui assigner un numérique !!!

Et n'oublie pas le papier et le crayon :0)))

Polux31 · Answer

Bonjour,

C'est un exercice ça sur les boucles ça ? 

Montres nous ce que tu as déjà fait et où ça te pose un problème.

;0)

PS: "Je veux" n'est pas vraiment approprié sur un site quand on désire de l'aide. C'est ceux qui prendront la peine de se pencher sur ton problème qui décideront s'ils veulent ou pas te venir en aide.

xanonyme47 · Answer

j'ai fais ça 
Private Sub Command1_Click()
a = Text1.Text
For i = 0 To a
a = Text1.Text
b = a & vbCrLf & b
Text2.Text = b
Next
End Sub
mais ça rien a voir de ce que je veux :/

Polux31 · Answer

Non effectivement, ça ne peut pas fonctionner

Tout d'abord, il faut déclarer tes variables:

Dim a As String
Dim i As Integer

Ensuite l'indice i de la boucle For ... Next est numérique.
Donc le "For i = 0 to a" ne peut pas fonctionner.

Maintenant que tu sais ça, tu prends un papier et un crayon et tu écris l'algo de ce que tu veux obtenir.

;0)

xanonyme47 · Answer

Dim a As String
Dim b As String
Dim i As Integer
a = val(Text1.Text)
For i = 0 To a
b = a & vbCrLf & b
Next
Text2.Text = b

Maintenant tout est just mais le principe de program que je veux c'est pas ça

xanonyme47 · Answer

MerCi Mr . Maintenant je suis un peut proch ?

Private Sub Command1_Click()
Dim a As Integer
Dim b As String
Dim c As String
Dim i As Integer
a = Len(Text1.Text)
c = Text1.Text
For i = 1 To a
b = Left(c, i)
Text2.Text = b & vbCrLf
Next
End Sub

Polux31 · Answer

Tu as testé ? 

Tu sais faire tourner le programme pas à pas pour voir ce que contient tes variables ?

xanonyme47 · Answer

Oui Dans Ce cas Le programme Doit marche

Private [/contents/446-fichier-sub Sub] Command1_Click()
Dim a As Integer
Dim b As String
Dim c As String
Dim i As Integer
a = Len(Text1.Text)
c = Text1.Text
For i = 1 To a
b = mid(c, i, 1)
Text2.Text = b & vbCrLf
Next
End Sub

Polux31 · Answer

C'est à toi de dire si ça donne le résultat attendu ou pas ^^

Apparemment, ça devrait fonctionner.

Tu peux améliorer encore un peu pour libérer des ressources mémoire...

Tu n'as pas besoin de la variable a. Tu peux faire :

For i = 1 to Len(Text1.Text)

Tu peux encore te passer d'une autre variable. A toi de trouver ^^

;0)

 
 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

Polux31 · Answer

Je n'avais pas testé ton code, je viens de le faire ...

Je n'ai pas ce message. Par contre je n'ai pas le résultat attendu ...

Polux31 · Answer

Comme tu as bien bossé, voilà une solution :

'Mettre la propriété Multiline de Text2 à True
Private Sub Command1_Click()
Dim a As String
Dim i As Integer

'Si le Text1 est vide, on sort de la Sub
    If Text1.Text = "" Then Exit Sub

For i = 1 To Len(Text1.Text)
        a = Mid(Text1.Text, i, 1)
        Text2.Text = Text2.Text & a & vbCrLf
    Next

End Sub

xanonyme47 · Answer

Ouiii MErcI beaucoup , Tu as travailler avec variables par default du programme , je pence que ça va prend plus de memoire si le programme est grand

Listing Digits Program

12 réponses

Discussions similaires