how do i fix these errors in this program

Question

2.00/5 (1 vote)

See more:

I have tried to write this program and can not figure out these 3 errors and how to fix them. Can someone please help me. Her

VB

Public Class Form1                                                                                                     'Programmed by: Clifford May


    Private Sub btnCompute_Click(sender As System.Object, e As System.EventArgs) Handles btnCompute.Click



        ' This is where you decide what kind of burger you want.
        Dim sum As Double
        If chkBurgers.Checked Then
            Select Case radRegular
                      sum = 4.19
                Case radCheeseandBacon.Checked
                    sum = 4.79
                Case radBacon.Checked
                    sum = 4.79
                Case radCheeseandBacon.Checked
                    sum = 5.39


            End Select
        End If

        ' This is where you decide what size fries you want.
        If chkFries.Checked Then
            Select Case radSmall.Checked
            sum = 2.39
                Case radMedium.Checked
                    sum = 3.09
                Case radLarge.Checked
                    sum = 4.99


            End Select
        End If
        ' This is where you decide what drink you want.
        If chkDrinks.Checked Then
            Select Case radSoda.Checked
            sum = 1.69
                Case radBottleWater.Checked
                    sum = 1.49


            End Select
        End If
        Select Case btnCompute.Text = CStr(sum)





        End Select



    End Sub





    
End Class

i get 3 error listed that says Statements and labels are not valid between"Select Case ' and first 'Case.' on lines 12,27,39, column 23,13,131

[edit]Code block added - OriginalGriff[/edit]

Posted 29-Mar-12 12:25pm

paigow

Updated 29-Mar-12 21:16pm

OriginalGriff

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2012-03-29T21:26:00

When you declare a Select Case statement block, the expression on the first line is compared against the values on the other lines:

VB

Select Case myInt
    Case 1
        DoSomethingForMyIntEqualOne()
        Exit Select
    Case 2
        DoSomethingForMyIntEqualTwo()
        Exit Select
End Select

What you appear to be doing is trying to use it as a bastardised if statement.
Try actually using If instead - it might help you to get started.
In addition, when you get the burger price selection working - you will overwrite it with the fries selection... Look at making an "item" price element, which you add onto the cost after each stage. So Burger would select "item" to be 0, 4.19, 4.79 or 5.39, which you add into sum, then Fries would select a different value into "item", and so on.

Bun Leap_kh · Answer 2 · 2012-03-29T21:31:00

Your "Select" syntax is error. You missed expression xxx

VB

' This is where you decide what kind of burger you want.
        Dim sum As Double
        If chkBurgers.Checked Then
            Select Case radRegular
                Case xxx
                      sum = 4.19
                Case radCheeseandBacon.Checked
                    sum = 4.79
                Case radBacon.Checked
                    sum = 4.79
                Case radCheeseandBacon.Checked
                    sum = 5.39
            End Select
        End If

how do i fix these errors in this program

2 solutions

Solution 1

Solution 2

Add your solution here

Preview 0