Wsrtjtyk

I am having troubles with an exercise in my Visual Basic class.

I need to use a sub procedure can recognize whether or not certain radio buttons are selected and have them add to the cost of the product for sale.

I then need to reference them in the btnClick procedure so I can use that to display the cost to the string.

Instructions for reference:

Mats-R-Us sells three different types of mats:<br> 

- Standard ($99),<br>

- Deluxe ($129),<br>

- INTERMEDIATE Premium ($179).<br>



All of the mats are available in:<br>

- blue,<br>

- red ($10 extra), <br>

- pink ($15 extra). <br>

There is also an extra $25 charge if the customer wants the mat to be foldable.

Create a Windows Forms application. Use the following names for the
project and solution, respectively: Mats Project and Mats Solution.
Save the application in the VB2017Chap06 folder. Create the interface
shown in Figure 6-58. Use a function to determine the price of the mat
before any additional charges. Use a Sub procedure to calculate the
total additional charge (if any).

The code I currently have:
Option Explicit On, Option Strict On, Option Infer Off

Public Class frmMain

    Private Function GetStandard(dblTotal As Double) As Double

        Dim dblPrice As Double



        If radStandard.Checked Then

            dblPrice = 99

        ElseIf radDeluxe.Checked Then

            dblPrice = 129

        ElseIf radPremium.Checked Then

            dblPrice = 179

        End If

        Return dblPrice

        dblPrice = dblTotal

    End Function



    Private Sub AddColorCost(ByRef dblTotal As Double)

        Dim dblPrice As Double

        If radRed.Checked Then

            dblPrice = dblPrice + 10

        ElseIf radPink.Checked Then

            dblPrice = dblPrice + 15

        End If



    End Sub



    Private Sub btnCalc_Click(sender As Object, e As EventArgs) Handles btnCalc.Click

        Dim DblTotal As Double

        Call AddColorCost(dblTotal)

        lblPrice.Text = dblTotal.ToString("C2")

    End Sub



    Private Sub BtnExit_Click(sender As Object, e As EventArgs) Handles BtnExit.Click

        Me.Close()

    End Sub

End Class

Edit: I have attempted to include the price increases in the subfunction but $0 is the only number that displays when I debug everything.

Let's follow the instructions.
Use a function to determine the price of the mat before any additional charges.

Private Function BaseCost() As Decimal

        Dim dblPrice As Decimal



        If radStandard.Checked Then

            dblPrice = 99

        ElseIf radDeluxe.Checked Then

            dblPrice = 129

        ElseIf radPremium.Checked Then

            dblPrice = 179

        End If

        Return dblPrice

End Function

Use a Sub procedure to calculate the total additional charge (if any).
Since we are using a Sub and not returning a value we will use a Form level (class level) variable so other methods can see it. Another approach would be to pass a parameter ByRef but don't worry about that now.
AddChanges += 10 is a shortcut way to write AddChanges = AddChanges + 10

'This variable is Form level (class level) it is not inside a method but it is inside the class.

Private AddCharges As Decimal



Private Sub AdditionalCharges()

        If radRed.Checked Then

            AddCharges += 10

        ElseIf radPink.Checked Then

            AddCharges += 15

        End If

        If chkFoldable.Checked Then

            AddCharges += 25

        End If

End Sub

Now add it all up in the calculate button

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click

        Dim Total As Decimal

    'BaseCost is a Function and returns a value

        Total = BaseCost()

    'AdditionalCharges is a Sub and will change the Form level variable

        AdditionalCharges() 

        Total += AddCharges

        lblPrice.Text = Total.ToString("C2")

        'reset AddCharges so you can make different selections and Calculate again.

        AddCharges = 0

End Sub