radio button/function problems

[tragic54]

Alright so i've come across a problem. Basically what i have is 3 seperate radio buttons within a panel labeled ( tall, huge, bucket) I'm trying to return values from check boxes once the choice of the radio button is clicked. I'm just trying to return the value of the radio button clicked (tall being 2.59, huge being 3.09, and bucket being 3.59) Once the radio button is clicked I'm trying to call functions to return the total value with a few optional checkboxes that can be checked (each .49 each). I'm positive there is an easier way to do this, just don't know what the solution is. All values returned are 0. :/

[code=vbnet]
'Cost of different coffee sizes
Dim decTall As Decimal = 2.59D
Dim decHuge As Decimal = 3.09D
Dim decBucket As Decimal = 3.59D
Dim decDoubleShot As Decimal = 0.49D
Dim decSyrup As Decimal = 0.49D
Dim decWhipCream As Decimal = 0.49D
Dim decSoyMilk As Decimal = 0.49D
Dim decTax As Decimal = 0.65D
Dim decCost2 As Decimal = 0D

Protected Sub btnCalculate_Cl ick(ByVal sender As Object, ByVal e As System.EventArg s) Handles btnCalculate.Cl ick
Dim strFirstName As String

'Trim Spaces
strFirstName = Me.txtName.Text .Trim

If Me.radTall.Chec ked Then
getTall()
ElseIf Me.radHuge.Chec ked Then
getHuge()
ElseIf Me.radBucket.Ch ecked Then
getBucket()
End If

Me.lblTotal.Tex t = strFirstName & " cost " & decCost2

End Sub

Function getTall() As Decimal

If Me.chkDoubleSho t.Checked And Me.chkSoyMilk.C hecked And Me.chkSyrup.Che cked _
And Me.chkWhipCream .Checked Then
decCost2 = decTall + decDoubleShot + decSoyMilk + decSyrup + decWhipCream
ElseIf Me.chkDoubleSho t.Checked And Me.chkSyrup.Che cked And Me.chkWhipCream .Checked Then
decCost2 = decTall + decDoubleShot + decSyrup + decWhipCream
ElseIf Me.chkDoubleSho t.Checked And Me.chkSyrup.Che cked Then
decCost2 = decTall + decDoubleShot + decSyrup
ElseIf Me.chkDoubleSho t.Checked Then
decCost2 = decTall + decDoubleShot
Else
decCost2 = decTall
End If
Return decCost2
End Function

Function getHuge() As Decimal
If Me.chkDoubleSho t.Checked And Me.chkSoyMilk.C hecked And Me.chkSyrup.Che cked _
And Me.chkWhipCream .Checked Then
decCost2 = decHuge + decDoubleShot + decSoyMilk + decSyrup + decWhipCream
ElseIf Me.chkDoubleSho t.Checked And Me.chkSyrup.Che cked And Me.chkWhipCream .Checked Then
decCost2 = decHuge + decDoubleShot + decSyrup + decWhipCream
ElseIf Me.chkDoubleSho t.Checked And Me.chkSyrup.Che cked Then
decCost2 = decHuge + decDoubleShot + decSyrup
ElseIf Me.chkDoubleSho t.Checked Then
decCost2 = decHuge + decDoubleShot
Else
decCost2 = decHuge
End If
Return decCost2
End Function

Function getBucket() As Decimal
If Me.chkDoubleSho t.Checked And Me.chkSoyMilk.C hecked And Me.chkSyrup.Che cked _
And Me.chkWhipCream .Checked Then
decCost2 = decBucket + decDoubleShot + decSoyMilk + decSyrup + decWhipCream
ElseIf Me.chkDoubleSho t.Checked And Me.chkSyrup.Che cked And Me.chkWhipCream .Checked Then
decCost2 = decBucket + decDoubleShot + decSyrup + decWhipCream
ElseIf Me.chkDoubleSho t.Checked And Me.chkSyrup.Che cked Then
decCost2 = decBucket + decDoubleShot + decSyrup
ElseIf Me.chkDoubleSho t.Checked Then
decCost2 = decBucket + decDoubleShot
Else
decCost2 = decBucket
End If
Return decCost2
End Function
[/code]

[debasisdas]

Question moved to .NET forum.

[tragic54]

Alright i noticed it was moved, but anyways if i do my code like this. It will add the total based on the checkboxes checked. But it automatically treats the radiobuttons as radBucket (3.59) being checked when its not. From there any checkboxes clicked will add. Anyone know? I'm incredibly new to this .NET.



Option Strict On
Option Explicit On

Partial Class _Default
Inherits System.Web.UI.P age

'Cost of different coffee sizes
Dim decTall As Decimal = 2.59D
Dim decHuge As Decimal = 3.09D
Dim decBucket As Decimal = 3.59D
Dim decDoubleShot As Decimal = 0.49D
Dim decSyrup As Decimal = 0.49D
Dim decWhipCream As Decimal = 0.49D
Dim decSoyMilk As Decimal = 0.49D
Dim decTax As Decimal = 0.65D
Dim decCost2 As Decimal = 0D

    Protected Sub btnCalculate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        Dim strFirstName As String
        Dim decCost As Decimal = 0D

        'Trim Spaces
        strFirstName = Me.txtName.Text.Trim

        If Me.radTall.Checked Then
            decCost = decTall

        ElseIf Me.radHuge.Checked Then
            decCost = decHuge

        ElseIf Me.radBucket.Checked Then
            decCost = decBucket

        End If


        If Me.chkDoubleShot.Checked And Me.chkSoyMilk.Checked And Me.chkSyrup.Checked _
        And Me.chkWhipCream.Checked Then
            decCost2 = decTall + decDoubleShot + decSoyMilk + decSyrup + decWhipCream
        ElseIf Me.chkDoubleShot.Checked And Me.chkSyrup.Checked And Me.chkWhipCream.Checked Then
            decCost2 = decTall + decDoubleShot + decSyrup + decWhipCream
        ElseIf Me.chkDoubleShot.Checked And Me.chkSyrup.Checked Then
            decCost2 = decTall + decDoubleShot + decSyrup
        ElseIf Me.chkDoubleShot.Checked Then
            decCost2 = decTall + decDoubleShot
        Else
            decCost2 = decTall
        End If


        If Me.chkDoubleShot.Checked And Me.chkSoyMilk.Checked And Me.chkSyrup.Checked _
        And Me.chkWhipCream.Checked Then
            decCost2 = decHuge + decDoubleShot + decSoyMilk + decSyrup + decWhipCream
        ElseIf Me.chkDoubleShot.Checked And Me.chkSyrup.Checked And Me.chkWhipCream.Checked Then
            decCost2 = decHuge + decDoubleShot + decSyrup + decWhipCream
        ElseIf Me.chkDoubleShot.Checked And Me.chkSyrup.Checked Then
            decCost2 = decHuge + decDoubleShot + decSyrup
        ElseIf Me.chkDoubleShot.Checked Then
            decCost2 = decHuge + decDoubleShot
        Else
            decCost2 = decHuge
        End If


        If Me.chkDoubleShot.Checked And Me.chkSoyMilk.Checked And Me.chkSyrup.Checked _
    And Me.chkWhipCream.Checked Then
            decCost2 = decBucket + decDoubleShot + decSoyMilk + decSyrup +  decWhipCream
        ElseIf Me.chkDoubleShot.Checked And Me.chkSyrup.Checked And Me.chkWhipCream.Checked Then
            decCost2 = decBucket + decDoubleShot + decSyrup + decWhipCream
        ElseIf Me.chkDoubleShot.Checked And Me.chkSyrup.Checked Then
            decCost2 = decBucket + decDoubleShot + decSyrup
        ElseIf Me.chkDoubleShot.Checked Then
            decCost2 = decBucket + decDoubleShot
        Else
            decCost2 = decBucket
        End If

        Me.lblTotal.Text = strFirstName & " cost " & decCost2
    End Sub

[tragic54]

Nevermind i figured it out.