VB. Net String conversion Exception Hanlder message

Hi.
now, for my finance project, got an exception error, and says some thing 
about conversion string.
how can i fix this one, and if any one can help, would be appreciative. vb 
programming book.
for my vb class.
if any one can help me out, and show me how to fix the problem, will go and 
show you the code and the exception helper window.


'Program:   Finance
'Programmer:    Marvin Hunkin
'Date:  Tuesday September 9 2008
'Description:   Enter beginning, ending and cost of living for a management 
company.
'Calculate  the beginning, ending and cost of living, display the average 
inventory,  and the turnover.


Public Class financeForm


    'Constant Declaration

    Const yearInteger As Integer = 365









    Private Sub calculateButton_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles calculateButton.Click


        'Calculate Beginning Inventory, Ending Inventory and Cost Of Goods

        Dim beginDecimal As Decimal
        Dim endDecimal As Decimal
        Dim costDecimal As Decimal
        Dim averageDecimal As Decimal
        Dim turnoverInteger As Integer


        'Convert variables.

        With Me



            beginDecimal = Decimal.Parse(beginTextBox.Text)
            endDecimal = Decimal.Parse(endTextBox.Text)
            costDecimal = Decimal.Parse(costTextBox.Text)
            averageDecimal = Decimal.Parse(averageTextBox.Text)
            turnoverInteger = Integer.Parse(turnoverTextBox.Text)


            'Calculate Finance Details.







            averageDecimal = beginDecimal * endDecimal * costDecimal / 
yearInteger
            turnoverInteger = beginDecimal * endDecimal / yearInteger


            Try




            Catch beginException As FormatException


                MessageBox.Show("Entry must be numeric.", "Data Errror", _
                                MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation)


            Catch endException As FormatException


                MessageBox.Show("Entry must be numeric.", "Data Errror", _
                                MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation)






            Catch costException As FormatException


                MessageBox.Show("Entry must be numeric.", "Data Errror", _
                                MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation)








                'Format Text Boxes.

                .beginTextBox.Text = beginDecimal.ToString("C")
                .endTextBox.Text = endDecimal.ToString("C")
                .costTextBox.Text = costDecimal.ToString("C")
                .averageTextBox.Text = averageDecimal.ToString("C")
                .turnoverTextBox.Text = turnoverInteger.ToString("N")


                With beginTextBox


                    .Focus()
                    .SelectAll()

                End With



            End Try


        End With




    End Sub

    Private Sub clearButton_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles clearButton.Click



        'Clear Text boxes.

        beginTextBox.Clear()

    End Sub

    Private Sub exitButton_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles exitButton.Click


        'Exit the project.

        Me.Close()

    End Sub
End Class


'Program:   Finance
'Programmer:    Marvin Hunkin
'Date:  Tuesday September 9 2008
'Description:   Enter beginning, ending and cost of living for a management 
company.
'Calculate  the beginning, ending and cost of living, display the average 
inventory,  and the turnover.


Public Class financeForm


    'Constant Declaration

    Const yearInteger As Integer = 365









    Private Sub calculateButton_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles calculateButton.Click


        'Calculate Beginning Inventory, Ending Inventory and Cost Of Goods

        Dim beginDecimal As Decimal
        Dim endDecimal As Decimal
        Dim costDecimal As Decimal
        Dim averageDecimal As Decimal
        Dim turnoverInteger As Integer


        'Convert variables.

        With Me



            beginDecimal = Decimal.Parse(beginTextBox.Text)
            endDecimal = Decimal.Parse(endTextBox.Text)
            costDecimal = Decimal.Parse(costTextBox.Text)
            averageDecimal = Decimal.Parse(averageTextBox.Text)
            turnoverInteger = Integer.Parse(turnoverTextBox.Text)


            'Calculate Finance Details.







            averageDecimal = beginDecimal * endDecimal * costDecimal / 
yearInteger
            turnoverInteger = beginDecimal * endDecimal / yearInteger


            Try




            Catch beginException As FormatException


                MessageBox.Show("Entry must be numeric.", "Data Errror", _
                                MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation)


            Catch endException As FormatException


                MessageBox.Show("Entry must be numeric.", "Data Errror", _
                                MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation)






            Catch costException As FormatException


                MessageBox.Show("Entry must be numeric.", "Data Errror", _
                                MessageBoxButtons.OK, 
MessageBoxIcon.Exclamation)








                'Format Text Boxes.

                .beginTextBox.Text = beginDecimal.ToString("C")
                .endTextBox.Text = endDecimal.ToString("C")
                .costTextBox.Text = costDecimal.ToString("C")
                .averageTextBox.Text = averageDecimal.ToString("C")
                .turnoverTextBox.Text = turnoverInteger.ToString("N")


                With beginTextBox


                    .Focus()
                    .SelectAll()

                End With



            End Try


        End With




    End Sub

    Private Sub clearButton_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles clearButton.Click



        'Clear Text boxes.

        beginTextBox.Clear()

    End Sub

    Private Sub exitButton_Click(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles exitButton.Click


        'Exit the project.

        Me.Close()

    End Sub
End Class

graphic 94  Solution Explo... Data SourcetTextBox.Text)
averageTextBox.Text) Properties
(turnoverTextBox.Text) graphic 545
graphic 545
graphic 932
graphic 756  graphic 692



__________
View the list's information and change your settings at 
http://www.freelists.org/list/programmingblind

Other related posts: