Help with an assignment

[darkshadow54104]

so my question here is when i click exit its suppose to give me the global totals of net and gross and the rows and there is 19 tickets per row but every time i click exit the gross and net work correctly i believe but the rows just show me 19.00 can someone please help me to figure this out.
Thanks

Public Class Form1
    Dim decGrandGross As Decimal
    Dim decGrandNet As Decimal
    Dim intGrandTotalTickets As Integer
    Const Rows As Integer = 19




    Dim dtenow As Object

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lbltitlechildsales.Click

    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles lblNetChild.Click

    End Sub

    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles lblNetTicket.Click

    End Sub

    Private Sub Label4_Click(sender As Object, e As EventArgs) Handles lblATicketSales.Click

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtGrossSales.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtGrossChild.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles txtGrossAdult.TextChanged

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles txtChildCost.TextChanged

    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles txtNetChild.TextChanged

    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles txtNetAdult.TextChanged

    End Sub

    Private Sub lblCTicketsSold_Click(sender As Object, e As EventArgs) Handles lblChildSold.Click

    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles txtAdultSold.TextChanged

    End Sub

    Private Sub txtPricePerTicket_TextChanged(sender As Object, e As EventArgs) Handles txtAdultCost.TextChanged

    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click



        
        MessageBox.Show("Grand Gross Revenue Total: " & decGrandGross.ToString("C"))

        MessageBox.Show("Grand Net Revenue Total: " & decGrandNet.ToString("C"))

        MessageBox.Show("Grand Total Rows Sold: " & Rows.ToString("C"))
        Me.Close()
    End Sub

    Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
        txtMonth.Clear()
        txtDay.Clear()
        txtYear.Clear()
        lblDate.Text = ""
        txtAdultSold.Clear()
        txtAdultCost.Clear()
        txtChildSold.Clear()
        txtChildCost.Clear()
        txtNetAdult.Clear()
        txtNetChild.Clear()
        txtGrossAdult.Clear()
        txtGrossChild.Clear()
        txtGrossSales.Clear()
        txtNetSales.Clear()
        txtAdultCost.Focus()

    End Sub

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        ' Declare Variables for the calculations.
        Dim decAdultCost As Decimal     ' Adult ticket cost
        Dim intAdultSold As Decimal     ' Adult tickets sold
        Dim decChildCost As Decimal     ' Childern ticket cost
        Dim intChildSold As Decimal     ' Childern tickets sold
        Dim decNetAdult As Decimal     ' Childern tickets sold
        Dim decNetChild As Decimal     ' Childern tickets sold
        Dim decNetSales As Decimal     ' Childern tickets sold
        Dim decGrossAdult As Decimal     ' Childern tickets sold
        Dim decGrossChild As Decimal     ' Childern tickets sold
        Dim decGrossSales As Decimal     ' Childern tickets sold
        Const DecTax_RATE As Decimal = CDec(0.2)  ' Tax Rate
        Try
            ' Calculate and display adult tickets sold.

            intAdultSold = CDec(txtAdultSold.Text)
            decAdultCost = CDec(txtAdultCost.Text)

            decGrossAdult = decAdultCost * intAdultSold
            txtGrossAdult.Text = decGrossAdult.ToString("c")

            ' Calculate and display child tickets sold.
            intChildSold = CDec(txtChildSold.Text)
            decChildCost = CDec(txtChildCost.Text)

            decGrossChild = decChildCost * intChildSold
            txtGrossChild.Text = decGrossChild.ToString("c")

            ' Calculate total Gross Ticket Sales.
            decGrossAdult = CDec(txtGrossAdult.Text)
            decGrossChild = CDec(txtGrossChild.Text)

            decGrossSales = decGrossAdult + decGrossChild
            txtGrossSales.Text = decGrossSales.ToString("c")

            ' Calculate and display net adult tickets sold.
            intAdultSold = CDec(txtAdultSold.Text)
            decAdultCost = CDec(txtAdultCost.Text)

            decNetAdult = decAdultCost * intAdultSold * DecTax_RATE
            txtNetAdult.Text = decNetAdult.ToString("c")

            ' Calculate and display net child tickets sold.
            intChildSold = CDec(txtChildSold.Text)
            decChildCost = CDec(txtChildCost.Text)

            decNetChild = decChildCost * intChildSold * DecTax_RATE
            txtNetChild.Text = decNetChild.ToString("c")

            ' Calculate total Net Ticket Sales.
            decNetAdult = CDec(txtNetAdult.Text)
            decNetChild = CDec(txtNetChild.Text)

            decNetSales = decNetAdult + decNetChild
            txtNetSales.Text = decNetSales.ToString("c")

            decGrandGross += decGrossSales
            decGrandNet += decNetSales
            intGrandTotalTickets = CInt(intGrandTotalTickets + intAdultSold + intChildSold)
            intGrandTotalTickets = CInt(intGrandTotalTickets / Rows)



        Catch

        End Try

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '   Use the NOW function to place the current date/time into a DATE variable
        Dim dteNow As Date
        dteNow = Now

        '   Concatenate the formatted the DATE to what's already in the form's title bar
        Me.Text &= " " & dteNow.ToString("d")
        btnCalculate.Enabled = False
        btnSetDate.Focus()
        btnCalculate.Enabled = True


    End Sub

    Private Sub txtChildSold_TextChanged(sender As Object, e As EventArgs) Handles txtChildSold.TextChanged

    End Sub

    Private Sub Label15_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub lblGrossRevenue_Click(sender As Object, e As EventArgs) Handles lblGrossRevenue.Click

    End Sub

    Private Sub LblGrossChild_Click(sender As Object, e As EventArgs) Handles LblGrossChild.Click

    End Sub

    Private Sub lblGrossAdult_Click(sender As Object, e As EventArgs) Handles lblGrossAdult.Click

    End Sub

    Private Sub Label16_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub lblNetSales_Click(sender As Object, e As EventArgs) Handles lblNetSales.Click

    End Sub

    Private Sub lblNetAdult_Click(sender As Object, e As EventArgs) Handles lblNetAdult.Click

    End Sub

    Private Sub txtCPricePerTicket_Click(sender As Object, e As EventArgs) Handles txtCPricePerTicket.Click

    End Sub

    Private Sub lblAPricePerTicket_Click(sender As Object, e As EventArgs) Handles lblAPricePerTicket.Click

    End Sub

    Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub

    Private Sub TextBox4_TextChanged_1(sender As Object, e As EventArgs)

    End Sub

    Private Sub btnSetDate_Click(sender As Object, e As EventArgs) Handles btnSetDate.Click
        Dim strMonth As String
        Dim strYear As String
        Dim strDay As String
        Dim dtmDate As Date
        Dim strDate As String
        Try

       
        strMonth = txtMonth.Text
        strDay = txtDay.Text
        strYear = txtYear.Text
        strDate = lblDate.Text
            strDate = strMonth & "/" & strDay & "/" & strYear
            dtmDate = CDate(strDate)
            lblDate.Text = dtmDate.ToString("D")
        Catch ex As Exception

        End Try
    End Sub

    Private Function Day(p1 As Date) As Object
        Throw New NotImplementedException
    End Function

    Private Sub txtMonth_TextChanged(sender As Object, e As EventArgs) Handles txtMonth.TextChanged

    End Sub

    Private Sub Label6_Click(sender As Object, e As EventArgs) Handles lblDate.Click

    End Sub
End Class

[kareninstructor]

Hello,

Have you tried asking the instructor or person that gave the assignment for assistance?

[techgnome]

becaue you used Rows.ToString("C") ... "C" means "Currency" format... which include .00 ... try just plain old, ordinary .ToString() ...

-tg

[darkshadow54104]

thanks worked perfectly techgnome. thanks for your help.