New Topic/Question
Reply
- The number of days spent in the hospital
- The amount of medication charges
- The amount of surgical charges
- The amount of lab fees
- The amount of physical rehabilitation charges
The hospital charges $350 per day.
Create the following functions:
CalcStayCharges Calculates and returns the base charges for the hospital stay. The is compound as $350 times the number of days in the hospital.
CalcMiscCharges Calculates and returns the total of the medication, surgical, lab, and physical rehabilitation charges.
CalcTotalCharges Calculates and returns the total charges.
Input Validation: Do not accept a negative value for length of stay, medication charges, surgical charges, lab fees, or physical rehabilitation charges.
There will be 5 text boxes: Length of Stay (Days), Medication, Surgical Charges, Lab Fees and Physical. A label should contain the Total Cost. There will be three buttons: Calculate Charges, Clear Form and Close
**I need help writing the correct code so this problem executes properly. Thanks!**
This is what I have so far. I am lost. Please help
Private Sub btnCalculate_Click(sender As System.Object, e As System.EventArgs) Handles btnCalculate.Click
'This procedure calculates the total amount of a hospital stay
Dim SurgicalCharges As Decimal
Dim LabFees As Decimal
Dim MedicationCharge As Decimal
Dim PhysicalCharge As Decimal
Dim LengthOfStay As Integer
'This procedure calculates the total misc expenses of a hospital stay
If Not Decimal.TryParse(txtCharges.Text, SurgicalCharges) Then
MessageBox.Show("Please enter numeric value for surgical charges")
ElseIf Not Decimal.TryParse(txtFees.Text, LabFees) Then
MessageBox.Show("Please enter numeric value for Lab Fees")
ElseIf Not Decimal.TryParse(txtMedication.Text, MedicationCharge) Then
MessageBox.Show("Please enter numeric value for Medication Charge")
ElseIf Not Decimal.TryParse(txtPhysical.Text, PhysicalCharge) Then
MessageBox.Show("Please enter numeric value for Physical Charge")
ElseIf Not Integer.TryParse(txtStay.Text, LengthOfStay) Then
MessageBox.Show("Please enter numeric value for Lenth of stay")
Else
'Calculate total charges
lblTotalCost.Text =
End If
End Sub
Function CalcStayCharges(ByVal Days As Double) As Double
Dim StayCharges As Double
'Calculate Stay Charges
Days = CInt(txtStay.Text)
StayCharges = Days * 350
CalcStayCharges = CDbl(StayCharges.ToString)
'Testing results
MessageBox.Show(CalcStayCharges.ToString("c"))
lblTotalCost.Text = CStr(CalcStayCharges.ToString)
Return CalcStayCharges
End Function
Function CalcMiscCharges(ByVal Medication As Decimal, ByVal Charges As Decimal,
ByVal Fees As Decimal, ByVal Physical As Decimal) As Decimal
Dim MiscCharges As Decimal
Medication = CDec(txtMedication.Text)
Charges = CDec(txtCharges.Text)
Fees = CDec(txtFees.Text)
Physical = CDec(txtPhysical.Text)
'Calculate misc charges
MiscCharges = Medication + Charges + Fees + Physical
CalcMiscCharges = CDec(MiscCharges.ToString)
MessageBox.Show(CalcMiscCharges.ToString)
Return CalcMiscCharges
End Function
Function CalcTotalCharges(ByVal TotalCost As Decimal) As Decimal
Dim StayCharges As Decimal
Dim MiscCharges As Decimal
TotalCost = StayCharges + MiscCharges
CalcTotalCharges = CDec(TotalCost.ToString)
Return CalcTotalCharges + MiscCharges
End Function
Private Sub btnClear_Click() Handles btnClear.Click
'Clears all text boxes
txtStay.Clear()
txtMedication.Clear()
txtCharges.Clear()
txtFees.Clear()
txtPhysical.Clear()
'Clear label boxes
lblTotalCost.Text = String.Empty
End Sub
Private Sub btnExit_Click() Handles btnExit.Click
'Ends the application
Me.Close()
End Sub
End Class
MultiQuote
| 