Additionner les Nombres contenus dans chaque ligne d'une Textbox [Résolu]
Dri60
70
Messages postés
lundi 24 décembre 2007Date d'inscription
17 novembre 2008
Dernière intervention
-
21 mars 2008 à 21:10 - Dernière réponse :
cs_Galain
1270
Messages postés
mardi 11 novembre 2003Date d'inscription
24 juillet 2013
Dernière intervention
- 23 mars 2008 à 23:10
- Additionner les Nombres contenus dans chaque ligne d'une Textbox
- Boucle pour additionner les nombres d'un array + affichage du total dans un text (Résolu) » Forum - Flash
- Additionner deux nombres d'un fichier txt » Forum - Java
- Afficher un fichier texte ligne par ligne dans une textbox » Codes sources - Visual Basic / VB.NET (Texte)
- Numéro de la ligne dans un textbox » Codes sources - Visual Basic / VB.NET (Texte)
- [Visual Basic 2010] Retour à la ligne dans une textBox Multiline (Résolu) » Forum - Visual Basic 6
10 réponses
Meilleure réponse
Salut Dri60
soit chn = "Article1 1.23 ?" ( c'est une String qui contient ta première ligne)
Dim valeur as String ' valeur chaine en euros
dim prix as Decimal ' le prix
' on récupère valeur à partir du 1° espace et on supprime les espaces à gauche
valeur = chn.substring(chn.indexof(" ")).trimstart
' on enléve l'espace à droite et le signe ?
valeur = chn.substring(0,chn.length -2)
' on convertit en decimal pour récupérer le prix
prix = Convert.ToDec(chn)
GRENIER Alain
soit chn = "Article1 1.23 ?" ( c'est une String qui contient ta première ligne)
Dim valeur as String ' valeur chaine en euros
dim prix as Decimal ' le prix
' on récupère valeur à partir du 1° espace et on supprime les espaces à gauche
valeur = chn.substring(chn.indexof(" ")).trimstart
' on enléve l'espace à droite et le signe ?
valeur = chn.substring(0,chn.length -2)
' on convertit en decimal pour récupérer le prix
prix = Convert.ToDec(chn)
GRENIER Alain
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 69 internautes ce mois-ci
Meilleure réponse
Tu initialises le prix total à 0 et tu fais une boucle pour chaque ligne de ta RichTextbox où tu ajoutes le prix de l'article
total =0
For i = 1 to nombre de ligne
total = total + prix de l'article
Next i
GRENIER Alain
total =0
For i = 1 to nombre de ligne
total = total + prix de l'article
Next i
GRENIER Alain
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 69 internautes ce mois-ci
Meilleure réponse
Sub Calcul_Total() Dim Total AsDecimal
Dim i as quoi ?
Dim Prix as quoi ?
Dim Nb_Ligne AsInteger
Total = 0
Nb_Ligne = RichTextBox1.GetLineFromCharIndex(0) - 4 ' doit donner le nombre de lignes de ta RichtextBox ( à vérifier)
For i = 1 To Nb_Ligne
' ici il faut récupérer la ligne et en extraire le prix de l'article ( voir mon premier post)
Total = Total + Prix Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
GRENIER Alain
Dim i as quoi ?
Dim Prix as quoi ?
Dim Nb_Ligne AsInteger
Total = 0
Nb_Ligne = RichTextBox1.GetLineFromCharIndex(0) - 4 ' doit donner le nombre de lignes de ta RichtextBox ( à vérifier)
For i = 1 To Nb_Ligne
' ici il faut récupérer la ligne et en extraire le prix de l'article ( voir mon premier post)
Total = Total + Prix Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
GRENIER Alain
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 69 internautes ce mois-ci
Euh je crois que j'ai un problème. Voici le Code :
Public
Sub Calcul_Total() Dim Total AsDecimal
Dim i
Dim Prix
Dim Nb_Ligne AsInteger
Total = 0
Nb_Ligne = RichTextBox1.GetLineFromCharIndex(0) - 4
For i = 1 To Nb_Ligne
Total = Total + Prix
Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
Et quand j'exécute, il me met comme résultat 0. J'ai du me tromper Comment fait-on ? Merci
Dri60
Public
Sub Calcul_Total() Dim Total AsDecimal
Dim i
Dim Prix
Dim Nb_Ligne AsInteger
Total = 0
Nb_Ligne = RichTextBox1.GetLineFromCharIndex(0) - 4
For i = 1 To Nb_Ligne
Total = Total + Prix
Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
Et quand j'exécute, il me met comme résultat 0. J'ai du me tromper Comment fait-on ? Merci
Dri60
En fait je crois que l'erreur vient de la Richtextbox. Même en mettant un autre code, sa donne toujours 0. Voici le Code :
Public
Sub Calcul_Total() Dim Total AsDecimal
Dim i AsDecimal
Dim Prix AsDecimal
Dim Nb_Ligne AsInteger
Prix = Lbl_Prix.Text
Total = 0
Dim i2 AsInteger
For i2 = 1 To Len(RichTextBox1.Text)
If Mid(RichTextBox1.Text, i2, 1) vbCr Then Nb_Ligne Nb_Ligne + 1
Next i2
MsgBox(Nb_Ligne)
Label_Test.Text = Nb_Ligne
For i = 1 To Nb_Ligne
Total = Total + Prix
Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
Dri60
Public
Sub Calcul_Total() Dim Total AsDecimal
Dim i AsDecimal
Dim Prix AsDecimal
Dim Nb_Ligne AsInteger
Prix = Lbl_Prix.Text
Total = 0
Dim i2 AsInteger
For i2 = 1 To Len(RichTextBox1.Text)
If Mid(RichTextBox1.Text, i2, 1) vbCr Then Nb_Ligne Nb_Ligne + 1
Next i2
MsgBox(Nb_Ligne)
Label_Test.Text = Nb_Ligne
For i = 1 To Nb_Ligne
Total = Total + Prix
Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
Dri60
Sub Calcul_Total() Dim Total AsDecimal
Dim i AsDecimal
Dim Prix AsDecimal
Dim Nb_Ligne AsInteger
Prix =Lbl_Prix
Total = 0
Dim i2 AsInteger
For i2 = 1 To Len(RichTextBox1.Text)
If Mid(RichTextBox1.Text, i2, 1) vbCrLF Then Nb_Ligne Nb_Ligne + 1
Next i2
MsgBox(Nb_Ligne) ' vérifie si le nombre de lignes est correct
Label_Test.Text = Nb_Ligne
For i = 1 To Nb_Ligne
' Récupère la ligne n° i et extrait le prix ( voir 1° post)
Total = Total + Prix
Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
GRENIER Alain
Dim i AsDecimal
Dim Prix AsDecimal
Dim Nb_Ligne AsInteger
Prix =Lbl_Prix
Total = 0
Dim i2 AsInteger
For i2 = 1 To Len(RichTextBox1.Text)
If Mid(RichTextBox1.Text, i2, 1) vbCrLF Then Nb_Ligne Nb_Ligne + 1
Next i2
MsgBox(Nb_Ligne) ' vérifie si le nombre de lignes est correct
Label_Test.Text = Nb_Ligne
For i = 1 To Nb_Ligne
' Récupère la ligne n° i et extrait le prix ( voir 1° post)
Total = Total + Prix
Next i
RichTextBox1.Text RichTextBox1.Text & vbCrLf & "Total " & Total & " ?" & vbCrLf & "Merci de votre Visite"
EndSub
GRENIER Alain
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.