Hi, Im looking for any kind of nudge in the right direction. In this vb.net program I have declared 3 private variables, quantity, weight, and price. I will then type the following into textboxes and when I click the "add this item" button the info will be displayed into 3 matching labels. I coded so it will accumulate each order until done. Then there is an update summary button, this button shows the dollar amount due(price * quantity), sales tax, shipping and handling and then total amount due. Im almost done with this but I am having a problem with accumulating dollar amount due and shipping and handling. So far it will only calculate dollar amount due and shipping for one order only. When I type in multiple orders it will only give dollar amount due, etc, for the first one. I need to a know a way I could get the orders to accumulate in a variable but I just can 't figure out anything that works. Below I have copied some of the code for the addthisitem button and the update summary button.
Any help would be greatly appreciated.
Private Sub additemButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles additemButton.Click
Dim descriptionString As String
With Me
quantityDecimal = Decimal.Parse(.quantityTextBox.Text)
weightDecimal = Decimal.Parse(.weightTextBox.Text)
priceDecimal = Decimal.Parse(.priceTextBox.Text)
descriptionString = .productTextBox.Text
'Display and accumulate variables accordingly
.descriptionresultLabel.Text += vbNewLine & descriptionString.ToString
.quantityresultLabel.Text += vbNewLine & quantityDecimal.ToString
.weightresultLabel.Text += vbNewLine & weightDecimal.ToString
.priceresultLabel.Text += vbNewLine & priceDecimal.ToString
End With
End Sub
Private Sub updatesummaryButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updatesummaryButton.Click
'Declare variables
Dim amountdueDecimal, handlingDecimal As Decimal
Dim shippingDecimal As Decimal
Dim salestaxDecimal, totalshippingDecimal As Decimal
Dim isConverted As Boolean
Dim isConverted2, isConverted3 As Boolean
With Me
isConverted = Decimal.TryParse(.quantityTextBox.Text, quantityDecimal)
If isConverted Then
isConverted2 = Decimal.TryParse(.priceTextBox.Text, priceDecimal)
'find a place for the below variables
If isConverted2 Then
amountdueDecimal += priceDecimal * quantityDecimal
salestaxDecimal = priceDecimal * quantityDecimal * 0.08D
Else : MessageBox.Show("Please enter non-zero values.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
With .priceTextBox
.Focus()
'Declaring boolean variable for shipping and handling calculations(last left off here)
isConverted3 = Decimal.TryParse(weightTextBox.Text, weightDecimal)
weightDecimal = weightDecimal * quantityDecimal
If isConverted3 Then
If weightDecimal < 10D Then
handlingDecimal = 1D
ElseIf weightDecimal >= 10D And weightDecimal <= 100 Then
handlingDecimal = 3D
ElseIf weightDecimal > 100D Then
handlingDecimal = 5D
End If
'display results
End If
End With
End If
'Display the shipping and handling total
shippingDecimal = weightDecimal * 0.25D
totalshippingDecimal = shippingDecimal + handlingDecimal
.resultLabel.Text = "Dollar Amount Due " & amountdueDecimal.ToString _
& vbNewLine & "Sales Tax " & salestaxDecimal.ToString & vbNewLine & _
"Shipping and Handling " & totalshippingDecimal.ToString
Else
MessageBox.Show("Please enter non-zero values.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
With .quantityTextBox
End With
.Focus()
End If
End With