'Project:       Array and Structure example
'Programmer:    Andy McCone
'Date:          Winter 2008
'Description:   This program collects Troupe number, name and sales, of
'               multiple troupes and stores all three pieces of information
'               in an Array of a structure.

Option Strict On
Public Class mainForm

    'Declare structure
    Structure CookieSales
        Dim troupeNumberString As String
        Dim troupeNameString As String
        Dim troupeSalesDecimal As Decimal
    End Structure

    'Create instance of structure
    Dim m_indTroupeCookieSales(23) As CookieSales
    Dim m_counterInteger As Integer

    Private Sub addButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addButton.Click

        'Add user info from textboxes to structure
        m_indTroupeCookieSales(m_counterInteger).troupeNumberString = troupeNumTextBox.Text()
        m_indTroupeCookieSales(m_counterInteger).troupeNameString = troupeNameTextBox.Text()
        m_indTroupeCookieSales(m_counterInteger).troupeSalesDecimal = CDec(troupeSalesTextBox.Text)

        'Increase counter
        m_counterInteger += 1

        'Clear out textboxes and focus back on Number textbox
        troupeNumTextBox.Text = ""
        troupeNameTextBox.Text = ""
        troupeSalesTextBox.Text = ""
        troupeNumTextBox.Focus()

    End Sub

    Private Sub displayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles displayButton.Click

        Dim loopCountInteger As Integer

        'Display all sales in label
        Do Until loopCountInteger = m_counterInteger
            'Capture the troupe name and sales and display in label
            displayLabel.Text &= m_indTroupeCookieSales(loopCountInteger).troupeNameString & _
            "       " & FormatCurrency(m_indTroupeCookieSales(loopCountInteger).troupeSalesDecimal) & _
            ControlChars.NewLine

            'increase loop counter
            loopCountInteger += 1
        Loop

    End Sub
End Class