0

Hi,
I am stuck with this logical error and I was hoping someone could point me in the right direction. When I debug this program the array's do not contain the data from the textboxes that the user enetered. as far as I know the code is in the correct format but I may be mistaken. I need to use the public shared array's in order to allow otheer forms in the program to access the data. Any and all help would be greatly appreciated. Thank You, C.D.

I am not sure I enered this code propeerly in the web page editor either because it came back as all comments. If you could explain what I did wrong thier also I would appreciate it.
Have a nice day, C.D.

' Program Name: TicketSeller
' Developer:    Charles 
' Date:         5/28/14
' Purpose:      This program accepts information from a user about an Event taking place at a college stadium it determines the 
'               price of tickets sales and records those sales. It displays a daily and weekly record of the sales on two separate
'               forms. This program is designed to accept up to 100 event entries.
' Comments:     This program is password protected. The password to open the menu is "pass". The Main menu is always available.




Public Class frmEventPlanner

    ' Declare and initialize variables
    Public Shared _intSizeOfArray As Integer = 100
    Public Shared _intEventCode(_intSizeOfArray) As Integer
    Public Shared _strEventName(_intSizeOfArray) As String
    Public Shared _strEventType(_intSizeOfArray) As String
    Public Shared _strEventPriceClass(_intSizeOfArray) As String
    Public Shared _strEventPromoterName(_intSizeOfArray) As String
    Public Shared _strEventPromoterAddy(_intSizeOfArray) As String
    Public Shared _strEventPromoterPhone(_intSizeOfArray) As String
    Public Shared _strEventDate(_intSizeOfArray) As String
    Public Shared _strRainDate(_intSizeOfArray) As String
    Public Shared _strEventStartTime(_intSizeOfArray) As String
    Public Shared _strEventTimeEnd(_intSizeOfArray) As String
    Public Shared _decUpperPrice(_intSizeOfArray) As Decimal
    Public Shared _decLowerPrice(_intSizeOfArray) As Decimal
    Public Shared _strStaffContact(_intSizeOfArray) As String
    Dim _Count As Integer = 0

    Private Sub mnuLogin_Click(sender As System.Object, e As System.EventArgs) Handles mnuLogin.Click
        Hide()
        frmLogin.ShowDialog()

    End Sub



    Private Sub TicketSalesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuTicketSales.Click

        'Opens Ticket Sales Window and Closes all others
        Hide()
        frmTicketSales.ShowDialog()


    End Sub

    Private Sub DailyReportsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuDailySales.Click

        'Opens Daily Report Window and Closes this Window
        Hide()
        frmDailySales.ShowDialog()

    End Sub

    Private Sub WeeklyReportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuWeeklySales.Click

        ' Opens Weekly Report Window and Closes this Window
        Hide()
        frmWeeklySales.ShowDialog()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuExit.Click
        ' This menu event closes the window and application
        Close()

    End Sub

    Private Sub ClearToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuClear.Click

        ' This menu event clears all textboxes and resets the radio buttoms to the 
        ' default settings on this window. it also sets the focus on the Event Name textbox

        txtEventName.Clear()
        txtPromoterAddy.Clear()
        txtPromoterName.Clear()
        mtxtPromoterPhone.Clear()
        txtStaffContact.Clear()
        mtxtEventStartTime.Clear()
        mtxtEventEndTime.Clear()
        lblCalendarError.Visible = False
        lblRainDateError.Visible = False
        radRainNo.Checked = False
        radRainYes.Checked = False
        radSports.Checked = True
        radConcert.Checked = False
        radMarket.Checked = False
        radClassAPrice.Checked = False
        radClassBPrice.Checked = True
        radClassCPrice.Checked = False
        radClassDPrice.Checked = False
        radClassEPrice.Checked = False
        txtEventName.Focus()


    End Sub

    Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClearForm.Click

        ' This event clears all textboxes and resets the radio buttoms to the
        ' default settings on this window. it also sets the focus on the Event Name textbox

        txtEventName.Clear()
        txtPromoterAddy.Clear()
        txtPromoterName.Clear()
        mtxtPromoterPhone.Clear()
        txtStaffContact.Clear()
        mtxtEventStartTime.Clear()
        mtxtEventEndTime.Clear()
        lblCalendarError.Visible = False
        lblRainDateError.Visible = False
        radRainNo.Checked = False
        radRainYes.Checked = False
        radSports.Checked = True
        radConcert.Checked = False
        radMarket.Checked = False
        radClassAPrice.Checked = False
        radClassBPrice.Checked = True
        radClassCPrice.Checked = False
        radClassDPrice.Checked = False
        radClassEPrice.Checked = False
        txtEventName.Focus()

    End Sub

    Private Sub btbSubmit_Click(sender As System.Object, e As System.EventArgs) Handles btbSubmit.Click
        ' This event handler initiates the storage of all the pertinent event information in the 
        ' appropriate Array And designates an Event Code that correspondes to the position of the data in the array. It determines 
        ' the price for the Upper and Lower seating sections based on the information the user entered.

        ' Declare and initialize Ticket Price variables.
        Dim decAclassUpper As Decimal = 20D
        Dim decAclassLower As Decimal = 30D
        Dim decBclassUpper As Decimal = 7.5D
        Dim decBclassLower As Decimal = 15D
        Dim decCclassUpper As Decimal = 1D
        Dim decCclassLower As Decimal = 1D
        Dim decDclass As Decimal = 5D
        Dim decEclass As Decimal = 0D
        Dim txtEventDate As String = " "
        Dim txtTodaysDate As String = " "
        Dim txtRainDate As String = " "

        ' Determine Event Pricing

        If radClassAPrice.Checked = True Then
            _decUpperPrice(_Count) = decAclassUpper
            _decLowerPrice(_Count) = decAclassLower


        ElseIf radClassBPrice.Checked = True Then
            _decUpperPrice(_Count) = decBclassUpper
            _decLowerPrice(_Count) = decBclassLower


        ElseIf radClassCPrice.Checked = True Then
            _decUpperPrice(_Count) = CDec(InputBox("Please enter the desired price for the Lower section seating", "Suplemented Lower Level Pricing"))
            _decLowerPrice(_Count) = CDec(InputBox("Please enter the desired price for the Upper section seating", "Suplemented Lower Level Pricing"))


        ElseIf radClassDPrice.Checked = True Then
            _decUpperPrice(_Count) = decDclass
            _decLowerPrice(_Count) = decDclass

        ElseIf radClassEPrice.Checked = True Then
            _decUpperPrice(_Count) = decEclass
            _decLowerPrice(_Count) = decEclass
        End If

        ' Assign User input into the Programs array's and ensure all textboxes include data.

        If txtEventName.Text = "" Then
            MsgBox("Please enter the Event Name in the Event Name Textbox", MsgBoxStyle.DefaultButton1, "Required Field Error")
            txtEventName.Focus()
            lblInputError.Visible = True
        Else
            _strEventName(_Count) = txtEventName.Text
        End If

        If txtPromoterName.Text = "" Then
            MsgBox("Please enter the Promoters Name in the Name Textbox", MsgBoxStyle.DefaultButton1, "Required Field Error")
            txtPromoterName.Focus()
            lblInputError.Visible = True
        Else
            _strEventPromoterName(_Count) = txtPromoterName.Text
        End If

        If txtPromoterAddy.Text = "" Then
            MsgBox("Please enter the Promoters Address in the Address Textbox", MsgBoxStyle.DefaultButton1, "Required Field Error")
            txtPromoterAddy.Focus()
            lblInputError.Visible = True
        Else
            _strEventPromoterAddy(_Count) = txtPromoterAddy.Text
        End If

        If mtxtPromoterPhone.Text = "" Then
            MsgBox("Please enter the Promoters Phone Number in the Phone Textbox", MsgBoxStyle.DefaultButton1, "Required Field Error")
            mtxtPromoterPhone.Focus()
            lblInputError.Visible = True
        Else
            _strEventPromoterPhone(_Count) = mtxtPromoterPhone.Text
        End If

        ''''''''''''''''''''?????????????????????????????????????????''''''''''''''''''''
        txtEventDate = cldEventDate.SelectionStart.ToShortDateString
        txtTodaysDate = cldEventDate.TodayDate.ToShortDateString
        txtRainDate = cldRainDate.SelectionStart.ToShortDateString

        If txtEventDate < txtTodaysDate Then
            lblCalendarError.Visible = True
        Else
            _strEventDate(_Count) = txtEventDate
        End If

        If radRainYes.Checked = True Then

            If txtRainDate < txtTodaysDate Then
                lblRainDateError.Visible = True
            End If

            _strRainDate(_Count) = txtRainDate

        End If
        '''''''''''''''''''''''?????????????????????????????????????????'''''''''''''''''''''''''''''''''


        If txtStaffContact.Text = "" Then
            MsgBox("Please enter the Executive Staff in Charge of the event in the Management Contact Textbox", MsgBoxStyle.DefaultButton1, "Required Field Error")
            txtStaffContact.Focus()
            lblInputError.Visible = True
        Else
            _strStaffContact(_Count) = txtStaffContact.Text
        End If
        MsgBox("Event " & _strEventName(_Count) & " Has been submitted. Thank You", MsgBoxStyle.DefaultButton1, "Verification")


    End Sub

    Private Sub radSports_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles radSports.CheckedChanged

        ' Setd the Ticket Price to Standard for Sports Event
        If radSports.Checked = True Then
            radClassBPrice.Checked = True
        End If

    End Sub

    Private Sub radConcert_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles radConcert.CheckedChanged

        'Sets the ticket price to Premium for Concerts
        If radConcert.Checked = True Then
            radClassAPrice.Checked = True
        End If

    End Sub

    Private Sub radMarket_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles radMarket.CheckedChanged

        'Sets the ticket price to flat rate for Flea Market
        If radMarket.Checked = True Then
            radClassDPrice.Checked = True
        End If

    End Sub

    Private Sub frmEventPlanner_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'Sets the focus in the Event Name Textbox
        txtEventName.Focus()

    End Sub

    Private Sub btbEventCodeGen_Click(sender As System.Object, e As System.EventArgs) Handles btnEventCodeGen.Click

        ' designate an Event code # to be used as array placement retrieval variable show event code on form

        btbSubmit.Enabled = True
        lblGeneratedEventCode.Text = _Count.ToString
        lblGeneratedEventCode.Visible = True



        ' Designate the Array index as the Event Code

        _intEventCode(_Count) = _Count


            '''''''''''''''''''''Thinking this may need to be changed''''''''''''''''''''''''''''''''

         ' add 1 to _Count

        _Count += 1

    End Sub
End Class





' Program Name: TicketSeller
' Developer:    Charles 
' Date:         5/28/14
' Purpose:      This program accepts information from a user about an Event taking place at a college stadium it determines the 
'               price of tickets sales and records those sales. It displays a daily and weekly record of the sales on two separate
'               forms. 
' Comments:     This program is password protected. The password to open the menu is "pass". The Main menu is always available.

Option Strict On

Public Class frmTicketSales

    ' Declare and Initailize Variables
    Public Shared _intSizeOfArray As Integer = 100
    Public Shared _strCustFirstName(_intSizeOfArray) As String
    Public Shared _strCustLastName(_intSizeOfArray) As String
    Public Shared _strCustAddy(_intSizeOfArray) As String
    Public Shared _strCustPhone(_intSizeOfArray) As String
    Public Shared _strCustEmail(_intSizeOfArray) As String
    Public Shared _decNumberOfTickets(_intSizeOfArray) As Decimal
    Public Shared _decTicketSection(_intSizeOfArray) As Decimal
    Public Shared _decTotalPrice(_intSizeOfArray) As Decimal
    Dim _intCurrentEvent As Integer


    Private Sub mnuLogin_Click(sender As System.Object, e As System.EventArgs) Handles mnuLogin.Click
        Hide()
        frmLogin.ShowDialog()

    End Sub

    Private Sub EventPlannerToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuEventPlanner.Click

        ' Opens Event Planner Window and Closes this Window
        Hide()
        frmEventPlanner.ShowDialog()


    End Sub



    Private Sub DailyReportsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuDailysales.Click

        'Opens Daily Report Window and Closes this Window
        Hide()
        frmDailySales.ShowDialog()

    End Sub

    Private Sub WeeklyReportToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuWeeklySales.Click

        ' Opens Weekly Report Window and Closes this Window
        Hide()
        frmWeeklySales.ShowDialog()

    End Sub



    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuExit.Click
        ' This menu event closes the window and application
        Close()

    End Sub

    Private Sub ClearToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles mnuClear.Click
        ' This menu event clears all the textboxes and clears all the radio buttons as well as setting the focus on the event 
        ' code textbox

        txtCustEmail.Clear()
        txtCustFirstName.Clear()
        txtCustLastName.Clear()
        txtCustPhone.Clear()
        txtCustEmail.Clear()
        txtCustAddy.Clear()
        txtEventCodeVerification.Clear()
        txtAmountTicketsPurchased.Clear()
        txtEventCodeVerification.Focus()
        radAlumni.Checked = False
        radHome.Checked = False
        radLower.Checked = False
        radUpper.Checked = False
        radVisitor.Checked = False
        radStudent.Checked = False



    End Sub

    Private Sub btnClearSale_Click(sender As System.Object, e As System.EventArgs) Handles btnClearSale.Click
        ' This event clears all the textboxes and clears all the radio buttons as well as setting the focus on the event 
        ' code textbox

        txtCustEmail.Clear()
        txtCustFirstName.Clear()
        txtCustLastName.Clear()
        txtCustPhone.Clear()
        txtCustEmail.Clear()
        txtCustAddy.Clear()
        txtEventCodeVerification.Clear()
        txtAmountTicketsPurchased.Clear()
        txtEventCodeVerification.Focus()
        radAlumni.Checked = False
        radHome.Checked = False
        radLower.Checked = False
        radUpper.Checked = False
        radVisitor.Checked = False
        radStudent.Checked = False

    End Sub



    Private Sub btnCodeVerification_Click(sender As System.Object, e As System.EventArgs) Handles btnCodeVerification.Click
        ' This event verifies that a valid event has been chosen then displays the Event Name,Event Date
        ' and the current date. It also allows all the textboxes and group boxes to become visible.

        ' Declare and Initialize Variables

        Dim strCurrentEvent As String
        Dim txtSaleDate As String



        ' Ensures that thier is an event with the code number entered
        strCurrentEvent = txtEventCodeVerification.Text
        _intCurrentEvent = Convert.ToInt32(strCurrentEvent)


        If _intCurrentEvent <= frmEventPlanner._intSizeOfArray - 1 Then
            lblEventSalesTitle.Text = frmEventPlanner._strEventName(_intCurrentEvent)
            lblEventDateSales.Text = frmEventPlanner._strEventDate(_intCurrentEvent)
            txtSaleDate = cldSaleDate.TodayDate.ToShortDateString
            lblSaleDate.Text = txtSaleDate

            ' Change labels and textboxes and Radio Buttons to Visible and enables the Process Button

            lblEventSalesTitle.Visible = True
            lblEventDateSales.Visible = True
            lblSaleDate.Visible = True
            txtAmountTicketsPurchased.Visible = True
            txtCustAddy.Visible = True
            txtCustEmail.Visible = True
            txtCustFirstName.Visible = True
            txtCustLastName.Visible = True
            txtCustPhone.Visible = True
            txtAmountTicketsPurchased.Visible = True
            grpHomeVisitor.Visible = True
            grpSchoolDiscount.Visible = True
            grpUpperLower.Visible = True
            btnProcess.Enabled = True

        Else
            MsgBox("The Event Code you entered does not exist Please try again)", MsgBoxStyle.DefaultButton1, "Invald Entry")

        End If

        ' sets the focus in the  Customer first Name Textbox
        txtCustFirstName.Focus()

    End Sub


    Private Sub frmTicketSales_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ' sets the focus in the Event Code Verification textbox
        txtEventCodeVerification.Focus()

    End Sub

    Private Sub btnProcess_Click(sender As System.Object, e As System.EventArgs) Handles btnProcess.Click
        ' This Event records the data the user entered into the appropriate Variables. It records the Customers 
        ' Geographic information and the ticket(s) they wish to purchase. It determines the price charged the customer 
        ' for the tickets purchased and stores all the information in the appropriate variables for later use.

        ' Declare and initialize variables

        Dim decTicketSection As Decimal
        Dim decPricePerTicket As Decimal
        Dim strTicketAmount As String
        Dim decTicketAmount As Decimal

        ' Record Customer's geographics


        If txtCustFirstName.Text = "" Then
            MsgBox("Please enter a value for the Customers First Name", MsgBoxStyle.DefaultButton1, "Input Error")
            txtCustFirstName.Focus()
            lblInputError.Visible = True
        Else
            _strCustFirstName(_intCurrentEvent) = txtCustFirstName.Text
        End If

        If txtCustLastName.Text = "" Then
            MsgBox("Please enter a value for the Customers Last Name", MsgBoxStyle.DefaultButton1, "Input Error")
            txtCustLastName.Focus()
            lblInputError.Visible = True
        Else
            _strCustLastName(_intCurrentEvent) = txtCustLastName.Text
        End If

        If txtCustEmail.Text = "" Then
            MsgBox("Please enter a value for the Customers Last Name", MsgBoxStyle.DefaultButton1, "Input Error")
            txtCustEmail.Focus()
            lblInputError.Visible = True
        Else
            _strCustEmail(_intCurrentEvent) = txtCustEmail.Text
        End If

        If txtCustAddy.Text = "" Then
            MsgBox("Please enter a value for the Customers Last Name", MsgBoxStyle.DefaultButton1, "Input Error")
            txtCustAddy.Focus()
            lblInputError.Visible = True
        Else
            _strCustAddy(_intCurrentEvent) = txtCustAddy.Text
        End If

        If txtCustPhone.Text = "" Then
            MsgBox("Please enter a value for the Customers Last Name", MsgBoxStyle.DefaultButton1, "Input Error")
            txtCustPhone.Focus()
            lblInputError.Visible = True
        Else
            _strCustPhone(_intCurrentEvent) = txtCustPhone.Text
        End If

        ' Determine Section Seating (The code for sections is as follows:)
        ' Home-Lower is Ticket Section-1
        ' Home-Upper is Ticket Section-2
        ' Visitor-Upper is Ticket Section-3
        ' Visitor-Lower is Ticket Section-4
        If radHome.Checked = True And radUpper.Checked = True Then
            decTicketSection = 2
        End If

        If radHome.Checked = True And radLower.Checked = True Then
            decTicketSection = 1

        End If

        If radVisitor.Checked = True And radUpper.Checked = True Then
            decTicketSection = 3
        End If

        If radVisitor.Checked = True And radLower.Checked = True Then
            decTicketSection = 4
        End If

        ' Determine the price per Ticket

        If decTicketSection = 1 Then
            decPricePerTicket = frmEventPlanner._decLowerPrice(_intCurrentEvent)
        End If

        If decTicketSection = 2 Then
            decPricePerTicket = frmEventPlanner._decUpperPrice(_intCurrentEvent)
        End If

        If decTicketSection = 3 Then
            decPricePerTicket = frmEventPlanner._decUpperPrice(_intCurrentEvent)
        End If

        If decTicketSection = 4 Then
            decPricePerTicket = frmEventPlanner._decLowerPrice(_intCurrentEvent)
        End If

        ' Determine the total Cost of Tickets

        strTicketAmount = txtAmountTicketsPurchased.Text
        decTicketAmount = Convert.ToDecimal(strTicketAmount)
        _decTotalPrice(_intCurrentEvent) = decTicketAmount * decPricePerTicket

        ' Record Ticket Section for later use
        _decTicketSection(_intCurrentEvent) = decTicketSection

        ' Record amount of tickets purchased for later use
        _decNumberOfTickets(_intCurrentEvent) = decTicketAmount





    End Sub
End Class
1
Contributor
1
Reply
8
Views
2 Years
Discussion Span
Last Post by cd88
0

Hi, Every one I figured out my mistake weeeeeee.
Here is the solution

' designate an Event code # to be used as array placement retrieval variable show event code on form
btbSubmit.Enabled = True
lblGeneratedEventCode.Text = _Count.ToString
lblGeneratedEventCode.Visible = True
' Designate the Array index as the Event Code
_intEventCode(_Count) = _Count
'''''''''''''''''''''Thinking this may need to be changed''''''''''''''''''''''''''''''''
' add 1 to _Count
_Count += 1

I had to change the above code to :

' designate an Event code # to be used as array placement retrieval variable show event code on form

    btbSubmit.Enabled = True
    lblGeneratedEventCode.Text = _Count.ToString + 1
    lblGeneratedEventCode.Visible = True



    ' Designate the Array index as the Event Code

    _intEventCode(_Count + 1) = _Count + 1


    '''''''''''''''''''''Thinking this may need to be changed''''''''''''''''''''''''''''''''

    ' add 1 to _Count

    _Count += 1

    Therfore the info in the attay's added up to the event code I lose one array space but I will live with the overhead.
    Have a nice day, C.D>
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.