Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement