I am working on a homework assignment and have been hashing it out for days. Hopefully my novice status with this wears off soon. I am supposed to create an ISP calculator with checked radio buttons and the user enters the hours.
Package A = $9.95 for 10 hours each hour after that is $2/hour
Package B = $14.95 for 20 hours each hour after that is $1/hour
Package C = $19.95 unlimited monthly access.
Max hours to be used is 744 hours per month.
I've tried everything I can think of and I have no idea where I am going wrong and our instructor doesn't respond to emails and I am taking this course online. Any tips or help would be appreciated. I don't expect anyone to do my homework by any means but I have no idea what I am doing wrong. When I debug for package A it just tells me that it's $9.95 no matter how many hours I input and for package B it tells me $0.00 but the codes are the same.
Private Sub btnCalculate_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click Dim decCharges As Decimal Dim intHours As Integer Const decA As Decimal = 9.95D Const decB As Decimal = 14.95D Const decC As Decimal = 19.95D inthours = CInt(txtHours.Text) If radA.Checked = True then If intHours >= 10 then decCharges = decA Else If intHours <10 and intHours >744 then decCharges = intHours * 2 End if End If If radB.Checked = True then If intHours >= 20 then decCharges = decB Else If IntHours <10 and intHours > 744 then DecCharges = intHours *2 End If End If End If End If If radC.Checked = True then If intHours >= 744 then decCharges = decC End If End If lblTotal.Text = decCharges.ToString("c") End Sub