Problem with Loop and ListBox (VB 2005)

[Kappadon5]

Hello All, I am new to programming and I apologize in advance if I am out of protocol in any way shape or fashion. My problem is that I have a program where you select an option from two different list boxes which will in turn populate a third list box with a numeric number when you click a button. Then I have a calculate button that is supposed to add all the numbers that were populated in the third list box. I can only get the first item and the last item from the third list box to be added correctly. I cannot get all the numbers in between added. I am hoping someone might help me with my problem. I think my issue is how I have my loop set up but I cannot figure it out. Thanks in advance, I have taken the liberty of adding my source code at the bottom.

Public Class Form1
 
    Private Sub btnAddWorkshop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddWorkshop.Click
 
        ' Declaring Items for Calculations
 
        Dim RegistrationFee As Integer
        Dim LodgingFee As Integer
        Dim Days As Integer
        Dim inttest2 As Integer
 
        ' Getting User selected Workshop and Number of Days for workshop
        If lstWorkshop.SelectedItem = "Handling Stress" Then
            RegistrationFee = 595
            Days = 3
        ElseIf lstWorkshop.SelectedItem = "Time Management" Then
            RegistrationFee = 695
            Days = 3
        ElseIf lstWorkshop.SelectedItem = "Supervision Skills" Then
            RegistrationFee = 995
            Days = 3
        ElseIf lstWorkshop.SelectedItem = "Negotiation" Then
            RegistrationFee = 1295
            Days = 5
        ElseIf lstWorkshop.SelectedItem = "How to Interview" Then
            RegistrationFee = 395
            Days = 1
        End If
 
        ' Getting User selected Locations for Workshop
        If lstLocation.SelectedItem = "Austin" Then
            LodgingFee = 95
        ElseIf lstLocation.SelectedItem = "Chicago" Then
            LodgingFee = 125
        ElseIf lstLocation.SelectedItem = "Dallas" Then
            LodgingFee = 110
        ElseIf lstLocation.SelectedItem = "Orlando" Then
            LodgingFee = 100
        ElseIf lstLocation.SelectedItem = "Phoenix" Then
            LodgingFee = 92
        ElseIf lstLocation.SelectedItem = "Raleigh" Then
            LodgingFee = 90
        End If
        ' Populate the Costs List Box
        inttest2 = lstCosts.Items.Add(RegistrationFee + (LodgingFee * Days).ToString)
        Return
    End Sub
 
    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
 
        Dim intTest As Integer
        Dim X As Integer = 1
 
        ' Display Error message if no workshop and selection have not been selected
        If lstCosts.Items.Count = 0 Then
            MessageBox.Show("Please select a Workshop and Location!", "Roland Toussaint--Error")
        Else
             '  I think my problem is here somewhere ******
            ' Add items from list for display
            Do While X <> lstCosts.Items.Count
 
                intTest = CInt(lstCosts.Items(0)) + (lstCosts.Items(X))
 
                X += 1
            Loop
 
            ' Display total
            lblTotalCost.Text = intTest
        End If
 
 
    End Sub
 
    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        ' Reset the list Boxes by deselecting the currently selected items
        lstWorkshop.SelectedIndex = -1
        lstLocation.SelectedIndex = -1
        lstCosts.Items.Clear()
        lblTotalCost.Text = String.Empty
    End Sub
 
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        ' Exit program by closing window
        Me.Close()
    End Sub
End Class

[pumasr10]

Does anybody have a solution for this code? Need Help!

[Killer42]

Sorry to see it has taken so long to get a response. I'm afraid we're a little short on VB experts these days.

I think the problem is in line 62 (since I added a CODE=vbnet tag around your source, the lines are now numbered).
This line says to add together the first and "Xth" items in the list, and place the result in intTest. So, each time around the loop you are generating a new value in intTest, based on the first item and the item you're up to.

What you should be doing is simply adding each item to what's currently in intTest.

By the way, I'd recommend using a For loop rather than a Do loop. There's no practical difference, but the For loop will make it much more obvious what the code does, to anyone reading the program in future.

As for "taking the liberty" of including your source code, I wish more people would do so. Far too often people give a really detailed description like "I'm trying to write an accounting system and it doesn't work" and expect us to debug it somehow. Posting the code allows us to see exactly what is really going on.

Oh, and I've deleted the duplicate thread you started today, pumasr10.

[pumasr10]

So all I have to do is change the value of the (0) and the (X) in line 62? Please correct me if I'm wrong. Thank you in advance!

[Killer42]

So all I have to do is change the value of the (0) and the (X) in line 62? Please correct me if I'm wrong. Thank you in advance!

Um... try this.

For X = 0 To (lstCosts.Items.Count - 1)
  intTest = intTest + lstCosts.Items(X)
  ' Or perhaps this is the way to write it...
  ' intTest += lstCosts.Items(X)
Next

[pumasr10]

Well Thanks for the solution! I appreciate your help!

[Killer42]

Well Thanks for the solution! I appreciate your help!

So, that does what you want?

[pumasr10]

So, that does what you want?

Of course, it worked perfectly! Thank You!

[Killer42]

Of course, it worked perfectly! Thank You!

Glad we could help. :)