Getallen uit 1 textbox optellen

[erton]

hallo,

ik moet een kassa maken waar ik een prijs en aantal ingeef, en dit resultaat gaat dan naar een tekstvak txtSubTotaal.

Zo kan ik een paar keer een berekening uitvoeren en dan zitten er in txtSubtotaal een paar getallen onder elkaar.

Ik moet nu deze getallen optellen om het totaal te bekomen, maar ik weet niet hoe.

Heeft iemand een idee?

hartelijk dank

 

[theblindman]

hallo,

ik moet een kassa maken waar ik een prijs en aantal ingeef, en dit resultaat gaat dan naar een tekstvak txtSubTotaal.

Zo kan ik een paar keer een berekening uitvoeren en dan zitten er in txtSubtotaal een paar getallen onder elkaar.

Ik moet nu deze getallen optellen om het totaal te bekomen, maar ik weet niet hoe.

Heeft iemand een idee?

hartelijk dank

Hallo,

Kunnen we een stukje code zien?

Met vriendelijke groeten,
theblindman.

 

[erton]

Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
Dim prijs, aantalStuks, subTotaal As String
Dim eindtotaal As String = 0

prijs = CStr(Val(txtPrijs.Text))
aantalStuks = CStr(Val(txtAantal.Text))

subTotaal = prijs * aantalStuks

txtSubtotaal.Text &= subTotaal.ToString & vbNewLine

txtPrijs.Text = String.Empty
txtAantal.Text = String.Empty

eindtotaal = eindtotaal + subTotaal
txtTotaal.Text = eindtotaal.ToString

Met deze code is het totaal hetzelfde als het laatste subtotaal. En alle subtotalen moeten het totaal vormen.

mvg

 

[Pizara]

Ik zou een listbox als subtotaal gebruiken omdat je daar doorheen kan loopen en eventueel nog kan deleten of tussenvoegen.

    Private Sub btnToevoegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToevoegen.Click
        Dim aantal As Integer = CInt(txtAantal.Text)
        Dim prijs = Convert.ToDecimal(txtPrijs.Text)
        Dim subtotaal As Double = (txtAantal.Text) * (txtPrijs.Text)
        lstSubTotaal.Items.Add(Format(subtotaal, "0.00"))

        txtTotaal.Text = 0
        For Each item As String In lstSubTotaal.Items
            txtTotaal.Text = CDbl(txtTotaal.Text) + CDbl(item.ToString())
        Next

    End Sub

 

[erton]

bedankt, het werk zoals het moet

maar zou het ook mogelijk zijn om het enkel met een tekstbox en iteratie te doen?