'Programmed By: Michael Esposito
'Copyright October 2010


Public Class frmCh3MailOrder
    Private intSales As Decimal
    Private decHrsWorked As Decimal
    Dim decBonus, decTotalSales As Decimal


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print()
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lblBonusAmt.Text = ""
        txtFname.Text = ""
        txtLname.Text = ""
        txtHoursWorked.Text = ""
        lblError.Text = ""
    End Sub

    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click

        ''calculate value
        ''Declare Bonus Amount variable
        ''Bonus amount is 2% of total sales times hours worked
        '********NESTED TRY********
        Try
            'check quantity
            decTotalSales = Decimal.Parse(txtTotalSales.Text)
            Try
                'check sales
                decHrsWorked = Decimal.Parse(txtHoursWorked.Text)

                'do calculations for sales
                decBonus = ((decTotalSales * 0.02D) * decHrsWorked)

                'if no errors
                lblError.Text = "Great job! Keep up the good work!"

                'Display values as currency
                lblBonusAmt.Text = decBonus.ToString("C")

                ''if there are errors with hours worked
            Catch ex As Exception
                lblError.Text = "Error in Hours Worked: " + ex.Message
                With txtHoursWorked
                    .SelectAll()
                    .Focus()
                End With
            End Try

            ''if there are errors with total sales
        Catch ex As Exception
            lblError.Text = "Error in Total Sales: " + ex.Message
            With txtTotalSales
                .SelectAll()
                .Focus()
            End With
        End Try
    End Sub

    Private Sub lblBonusAmt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblBonusAmt.Click

    End Sub
End Class