Visual Basic. My code is not calculating taxes for a single person (see screensh
ID: 3707862 • Letter: V
Question
Visual Basic. My code is not calculating taxes for a single person (see screenshot). It will calculate for a married person but the NetPay is incorrect See screenshot). It may be connected to the health insurance cost.
My code:
Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click, txtName.TextChanged, txtHoursWrk.TextChanged,
txtRate.TextChanged, txtDepend.TextChanged, rbtSingle.TextChanged, rbtMarried.TextChanged, ckInsurance.TextChanged
'clearall textboxes
lblGross.Text = String.Empty
lblHealth.Text = String.Empty
lblTax.Text = String.Empty
lblNetPay.Text = String.Empty
End Sub
Private Sub CancelKeys(sender As Object, e As KeyPressEventArgs) Handles txtRate.KeyPress,
txtDepend.KeyPress, txtHoursWrk.KeyPress
'allows the text box to accept only numbers and the Backspace
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso
e.KeyChar <> ControlChars.Back Then
'cancel the key
e.Handled = True
End If
End Sub
Private Function CalculateGrossPay(ByVal Pay As Decimal) As Decimal
'Calculate gross pay
Dim grossPay As Decimal
Dim hourlyRate As Decimal
Dim hrsWrk As Decimal
Decimal.TryParse(txtHoursWrk.Text, hrsWrk)
Decimal.TryParse(txtRate.Text, hourlyRate)
If hourlyRate >= 0 And hourlyRate >= 0 And hrsWrk <= 40 Then
grossPay = hourlyRate * 40
ElseIf hourlyRate >= 0 And hrsWrk > 40 Then
grossPay = 40 * hourlyRate + (hrsWrk - 40) * hourlyRate * 1.5
End If
Return grossPay
End Function
Private Function CalculateInsuranceDeduction(ByVal InsuranceStatus As String) As Double
'calculate Insurance deduction
Dim healthCost As Double
If ckInsurance.Checked Then
If rbtSingle.Checked Then
'standard $60 medical $75
healthCost = 135
Else
healthCost = 60
If rbtMarried.Checked Then
'$ medical 150 medical
healthCost = 250
Else
healthCost = 100
End If
End If
End If
Return healthCost
End Function
Private Function CalculateTax(ByVal deduction As Decimal) As Double
Dim taxablePay As Decimal
Dim tax As Decimal
Dim NumberDependents As Integer
Dim grossPay As Decimal
Integer.TryParse(txtDepend.Text, NumberDependents)
grossPay = CalculateGrossPay(grossPay)
If rbtMarried.Checked = True Then
taxablePay = grossPay - 150 - 70 * NumberDependents
If ckInsurance.Checked Then
taxablePay = taxablePay - 100
If taxablePay > 800 Then
tax = (taxablePay - 800) * 0.35 + (800 - 500) * 0.25 + (500 - 200) * 0.15 + 200 * 0.1
ElseIf taxablePay > 500 Then
tax = (taxablePay - 500) * 0.25 + (500 - 200) * 0.15 + 200 * 0.1
ElseIf taxablePay > 200 Then
tax = (taxablePay - 200) * 0.15 + 200 * 0.1
Else
tax = taxablePay * 0.1
End If
End If
Else
If rbtSingle.Checked = True Then
taxablePay = grossPay - 75 - 70 * NumberDependents
If ckInsurance.Checked Then
taxablePay = taxablePay - 60
If taxablePay > 400 Then
tax = (taxablePay - 400) * 0.35 + (400 - 250) * 0.25 + (250 - 100) * 0.15 + 100 * 0.1
ElseIf taxablePay > 250 Then
tax = (taxablePay - 250) * 0.25 + (250 - 100) * 0.15 + 100 * 0.1
ElseIf taxablePay > 100 Then
tax = (taxablePay - 100) * 0.15 + 100 * 0.1
Else
tax = taxablePay * 0.1
End If
End If
End If
End If
Return tax
End Function
Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
Dim netPay As Decimal
Dim Gross As Decimal
Dim Health As Decimal
Dim Tax As Decimal
Gross = CalculateGrossPay(Gross)
Health = CalculateInsuranceDeduction(Health)
Tax = CalculateTax(Tax)
'calculate net pay
netPay = Gross - Health - Tax
' display results
lblGross.Text = Gross.ToString("N2")
lblHealth.Text = Health.ToString("N2")
lblTax.Text = Tax.ToString("N2")
lblNetPay.Text = netPay.ToString("N2")
End Sub
Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
End Class
The requirement
Create a program that will calculate employee’s weekly pay as follows:
Inputs:
)Name
2)Hourly
3)Rate of Pay ($ / hour)
4)Marital Status (Married, Single)
5)# of Dependents
6)Healthcare(Yes or No)
Outputs:
1)Gross pay (Hours over 40 are paid at time and ½)
2)Health Insurance Amount Single Medical $60 Standard $75 Married Medical $ 100 Standard $150
3)Federal Tax, calculated as follows:
A. From gross taxable pay subtract $70 for each dependent
B. From value in A subtract appropriate value in Standard Deduction Column from table
below to give taxable gross.
C.Tax at rate of 10% appropriate amount in 10% Column from table below.
D. Tax at rate of 15% appropriate amount in 15% Column from table below.
E. Tax at rate of 25% appropriate amount in 25% Column from table below.
F. Tax at rate of 35% remaining amount (if any) in 35% Column from table below.
4) Net Pay (Gross Pay Health Care Deduction (if any)–Federal Tax).
5)If any of the inputs are unreasonable, tell user with a message and force reentry of the data.
Additional Requirements:
1)Name any control that is referenced in code with a meaningful name
2)Use functions for major tasks
a.Calculate Gross Pay
b.Calculate Health Deductions
c.Calculate Tax
3) Other than constants, do NOT use global variables(e.g You need to pass variable between functions through the argument list and the return value)
.4)Comment each function and variable and major sections of code.
Assume that variable
GrossPay
is the calculated total pay for individual. All the constants are from the
table on the previous page:
If married
TaxablePay = GrossPay–150–70.0 * NumberDependents
if healthcare
TaxablePay = TaxablePay–100
if TaxablePay > 800
Tax =(TaxablePay-800) * .35 + (800-500) * .25 + (500-200) * .15 +200 * .10
else if TaxablePay > 500
Tax = (TaxablePay-500) * .25 + (500–200) * .15 +200 * .10
else if TaxablePay > 200
Tax = (TaxablePay-200) * .15 +200 * .10
else
Tax = TaxablePay * .10
else
TaxablePay = GrossPay–75–70.0 * NumberDependents
if healthcare
TaxablePay = TaxablePay–60if TaxablePay > 400
Tax = (TaxablePay-400) * .35 + (400-250) * .25 + (250-100) * .15 +100 * .10
else if TaxablePay > 250Tax = (TaxablePay-250) * .25 + (250–100) * .15 +100 * .10
else if TaxablePay > 100
Tax = (TaxablePay-100) * .15 +100 * .10
else
Tax = TaxablePay * .10
xample
s
:
1.A married employee with 45 hours at $20.00/hour, 2 dependents and health care:
A.Gross Pay:40 *20.00 + 5 *20.00* 1.5= $950.00
B.Minus Standard Deduction of $150.00 = 800.00
C.Minus Medical Deduction of $100.00= $700.00
D.Minus 2 dependents (@$70) = $560.00
E.Tax at 10% Bracket= 200 * .10 = $20.00
F. Taxat 15% Bracket($500–$200)= 300 * .15 = $45.00
G.Tax at 25% Bracket($560–$500)=$60.00* .25= $15.00
H.Total Tax = $20 + $45 + $15.00= $80.00
I.Net Pay = 950.00-$100.00 (Medical)-$80.00(Tax) = $770.00
2. A single employee with 45 hours at $20.00/hour, 1 dependent and no health care:
A.Gross Pay: 40* 20.00 + 5 * 20.00 * 1.5 = $950.00
B.Minus Standard Deduction of $75.00 = 875.00
C.Minus 1 dependent (@$70) = $805.00
D.Tax at 10% Bracket = 100 * .10 = $10.00
E.Tax at 15% Bracket ($250–$100) =$150.00* .15 = $22.5
F.Tax at 25% Bracket ($400–$250) = $150.00 *.25 = $37.5
G.Tax at 35% Bracket ($805-$400) = $405 * .35 =$141.75H.
Total Tax = $10 + $22.50+ $37.50 + 141.75= $211.75I.
Net Pay = 950.00-$100.00 (Medical)-$80.00 (Tax) = $770.00
Explanation / Answer
Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click, txtName.TextChanged, txtHoursWrk.TextChanged,
txtRate.TextChanged, txtDepend.TextChanged, rbtSingle.TextChanged, rbtMarried.TextChanged, ckInsurance.TextChanged
'clearall textboxes
lblGross.Text = String.Empty
lblHealth.Text = String.Empty
lblTax.Text = String.Empty
lblNetPay.Text = String.Empty
End Sub
Private Sub CancelKeys(sender As Object, e As KeyPressEventArgs) Handles txtRate.KeyPress,
txtDepend.KeyPress, txtHoursWrk.KeyPress
'allows the text box to accept only numbers and the Backspace
If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso
e.KeyChar <> ControlChars.Back Then
'cancel the key
e.Handled = True
End If
End Sub
Private Function CalculateGrossPay(ByVal Pay As Decimal) As Decimal
'Calculate gross pay
Dim grossPay As Decimal
Dim hourlyRate As Decimal
Dim hrsWrk As Decimal
Decimal.TryParse(txtHoursWrk.Text, hrsWrk)
Decimal.TryParse(txtRate.Text, hourlyRate)
If hourlyRate >= 0 And hourlyRate >= 0 And hrsWrk <= 40 Then
grossPay = hourlyRate * 40
ElseIf hourlyRate >= 0 And hrsWrk > 40 Then
grossPay = 40 * hourlyRate + (hrsWrk - 40) * hourlyRate * 1.5
End If
Return grossPay
End Function
Private Function CalculateInsuranceDeduction(ByVal InsuranceStatus As String) As Double
'calculate Insurance deduction
Dim healthCost As Double
If ckInsurance.Checked Then
If rbtSingle.Checked Then
'standard $60 medical $75
healthCost = 135
Else
healthCost = 60
If rbtMarried.Checked Then
'$ medical 150 medical
healthCost = 250
Else
healthCost = 100
End If
End If
End If
Return healthCost
End Function
Private Function CalculateTax(ByVal deduction As Decimal) As Double
Dim taxablePay As Decimal
Dim tax As Decimal
Dim NumberDependents As Integer
Dim grossPay As Decimal
Integer.TryParse(txtDepend.Text, NumberDependents)
grossPay = CalculateGrossPay(grossPay)
If rbtMarried.Checked = True Then
taxablePay = grossPay - 150 - 70 * NumberDependents
If ckInsurance.Checked Then
taxablePay = taxablePay - 100
If taxablePay > 800 Then
tax = (taxablePay - 800) * 0.35 + (800 - 500) * 0.25 + (500 - 200) * 0.15 + 200 * 0.1
ElseIf taxablePay > 500 Then
tax = (taxablePay - 500) * 0.25 + (500 - 200) * 0.15 + 200 * 0.1
ElseIf taxablePay > 200 Then
tax = (taxablePay - 200) * 0.15 + 200 * 0.1
Else
tax = taxablePay * 0.1
End If
End If
Else
If rbtSingle.Checked = True Then
taxablePay = grossPay - 75 - 70 * NumberDependents
If ckInsurance.Checked Then
taxablePay = taxablePay - 60
If taxablePay > 400 Then
tax = (taxablePay - 400) * 0.35 + (400 - 250) * 0.25 + (250 - 100) * 0.15 + 100 * 0.1
ElseIf taxablePay > 250 Then
tax = (taxablePay - 250) * 0.25 + (250 - 100) * 0.15 + 100 * 0.1
ElseIf taxablePay > 100 Then
tax = (taxablePay - 100) * 0.15 + 100 * 0.1
Else
tax = taxablePay * 0.1
End If
End If
End If
End If
Return tax
End Function
Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
Dim netPay As Decimal
Dim Gross As Decimal
Dim Health As Decimal
Dim Tax As Decimal
Gross = CalculateGrossPay(Gross)
Health = CalculateInsuranceDeduction(Health)
Tax = CalculateTax(Tax)
'calculate net pay
netPay = Gross - Health - Tax
' display results
lblGross.Text = Gross.ToString("N2")
lblHealth.Text = Health.ToString("N2")
lblTax.Text = Tax.ToString("N2")
lblNetPay.Text = netPay.ToString("N2")
End Sub
Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click
Me.Close()
End Sub
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.