simpel optellen

[jaccovh]

ik heb reeds een programma gemaakt en dat is een soort restaurant programma.
nu heb ik dus een RTB waar de prijzen in komen als ik ergens op klik. dus zoiets als dit

Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
richtextbox.item.add ("29.99")
End Sub

dit is dan dus voor een 2 persoons gerecht.
en de prijzen komen er dus iedere keer bij.
dan heb je uiteindelijk iets van dit:

29.99
40.00
9.90
1.10
27.32



maar dan heb ik ook een kleine rtb die er voor moet zorgen dat de totale prijs realtime word geupdate.


dus als ik deze prijzen heb:

29.99
40.00
9.90
1.10
27.32

moet dat andere rtb zeggen wat de intotale prijs is.



als ik het ingewikkeld/raar/onbegrijpelijk heb uitgelegd zeg het dan dan geef ik jullie het programma dat jullie het kunnen zien.
maar wat moet ik dus doen dat een rtb het totale uitrekend van de andere?

 

[wampier]

Op een change event van de textbox (hoewel listbox waarschijnlijker handiger is, dat is tenslotte gespecialiseerd in lijstjes) door elke regel lopen en de VAL daarvan optellen. vervolgens het totaal in de andere box stoppen.

 

[JoZ1]

Zoals wampier al zegt is een ListBox makkelijker.

Zo optellen:

[CPP]Dim totaal As Double
For Each item In ListBox1.Items
totaal += Double.Parse(item)
Next[/CPP]

 

[MartinJM]

Als je het toch met een rtb wilt doen, dan kan dat zo:

        Dim totaal As Double = 0
        For teller As Integer = 0 To RichTextBox1.Lines.Count - 1 Step 1
            totaal += CDbl(RichTextBox1.Lines(teller).Replace(".", ","))
        Next

Het ".replace" deel is ervoor dat er ook punten in kunnen komen te staan. Doubles kijken naar de komma voor decimalen.


Het kan dus ook in een rtb, maar een listbox lijkt mij idd ook handiger.

MartinJM