Computer Programming Concepts and Visual Basic David I. Schneider

‘Program to compute employees’ weekly payroll
Private Sub cmdDisplay_Click()
Dim empName As String ‘Name of employee
Dim hrWage As Single ‘Hourly wage
Dim hrsWorked As Single ‘Hours worked this week
Dim exemptions As Integer ‘Number of exemptions for employee
Dim mStatus As String ‘Marital status: S for Single; M for Married
Dim prevPay As Single ‘Total pay for year excluding this week
Dim pay As Single ‘This week’s pay before taxes
Dim totalPay As Single ‘Total pay for year including this week
Dim ficaTax As Single ‘FICA taxes for this week
Dim fedTax As Single ‘Federal income tax withheld this week
Dim check As Single ‘Paycheck this week (take-home pay)
‘Obtain data, compute payroll, display results
Call InputData(empName, hrWage, hrsWorked, exemptions,
mStatus, prevPay) ‘Task 0
pay = Gross_Pay(hrWage, hrsWorked) ‘Task 1
totalPay = Total_Pay(prevPay, pay) ‘Task 2
ficaTax = FICA_Tax(pay, prevPay, totalPay) ‘Task 3
fedTax = Fed_Tax(pay, exemptions, mStatus) ‘Task 4
check = Net_Check(pay, ficaTax, fedTax) ‘Task 5
Call ShowPayroll(empName, pay, totalPay, ficaTax, fedTax, check)
End Sub
‘Task 6
Private Sub cmdNext_Click()
‘Clear all text boxes for next employee’s data
txtName.Text = “ “
txtWage.Text = “ “
txtHours.Text = “ “
txtExempts.Text = “ “
txtMarital.Text = “ “
txtPriorPay.Text = “ “
picResults.Cls
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Function Fed_Tax(pay As Single, exemptions As Integer, mStatus As String)
Dim adjPay As Single
‘Task 4.1: Compute federal income tax
adjPay = pay - (51.92 * exemptions)
If adjPay < 0 Then
adjPay = 0
End If
If mStatus = “S” Then
Fed_Tax = TaxSingle(adjPay) ‘Task 4.2
Else
Fed_Tax = TaxMarried(adjPay) ‘Task 4.3
End If
Fed_Tax = Round(Fed_Tax, 2) ‘Round to nearest cent
End Function
Private Function FICA_Tax(pay As Single, prevPay As Single, totalPay As Single)
A Case Study: Weekly Payroll 123