create if...elseif statement Visual basic

August 24, 2013

Write an If..ElseIf statement (or Select Case if you prefer) given the following:

decTicketPrice ?ticket price

intAge ?age of customer

If customer's age is less than 6, ticket price is Free

If customer's age is 6 to 12, ticket price is $3.50

If customer's age is 13 to 19, ticket price is $4.50

If customer's age is over 62, ticket price is $5.50

Otherwise, ticket price is $7.50

2,756 · August 24, 2013

I do know how to do them I just need to do them quickly and I take awhile when I write my code

Just copy and paste, then modify, the examples at my link above.

9,388 · August 24, 2013

He wanted it quick, but the time between posts was longer than it would have taken, like 2 minutes.

30,698 · August 24, 2013

He wanted it quick, but the time between posts was longer than it would have taken, like 2 minutes.

Not even that... In fact, it would have taken longer to type up the OP than write the elseif clause he wanted...

August 24, 2013

Anyone who can not use If statements, case select, or for if loops should not

be in a programming class.

August 24, 2013

Thanks for all the help guys! Every one of your helpful comments contributed to me getting an A on the assignment!

32,461 · August 24, 2013

Anyone who can not use If statements, case select, or for if loops should not

be in a programming class.

Programming classes are there to teach, are they not?

Although I think if someone has trouble with something this simple, they might want to take up another skill. Like knitting.

44,346 · August 24, 2013

Programming classes are there to teach, are they not?

Although I think if someone has trouble with something this simple, they might want to take up another skill. Like knitting.

Yep, I learned LONG ago that programming was not for me.

1,738 · August 24, 2013

10 price = 7.50
20 if age > 62 then price = 5.50
30 if age < 20 then price = 4.50
40 if age < 12 then price = 3.50
50 if age < 6 then price = 0

Wait, was this supposed to be in Commodore 64 BASIC?

(Yes, this is a horrible example of coding, it's deliberate)

August 25, 2013

Some more examples for your education:

REXX

/* REXX */
arg intAge .

select
when intAge <   6 then decTicketPrice = 0
when intAge <= 12 then decTicketPrice = 3.5
when intAge <= 19 then decTicketPrice = 4.5
when intAge >  62 then decTicketPrice = 5.5
otherwise              decTicketPrice = 7.5
end

return decTicketPrice

Cobol

01 DECTICKETPRICE			PIC S9(5)V99 COMP-3.
01 INTAGE				PIC 9(3) COMP-3.

EVALUATE TRUE
WHEN INTAGE <  6
	MOVE ZERO TO DECTICKETPRICE
WHEN INTAGE <= 12
	MOVE 3.5  TO DECTICKETPRICE
WHEN INTAGE <= 19
	MOVE 4.5 TO DECTICKETPRICE	
WHEN INTAGE >  62 
	MOVE 5.5 TO DECTICKETPRICE
WHEN OTHER
	MOVE 7.5 TO DECTICKETPRICE
END-EVALUATE.

Easytrieve Plus (v6.4 up)

DECTICKETPRICE				W	4 P 2
INTAGE					W	2 P

IF      INTAGE LT  6
	DECTICKETPRICE = 0
ELSE-IF INTAGE LE 12
	DECTICKETPRICE = 3.5
ELSE-IF INTAGE LE 19
	DECTICKETPRICE = 4.5
ELSE-IF INTAGE GT 62
	DECTICKETPRICE = 5.5
ELSE
	DECTICKETPRICE = 7.5
END-IF

1,738 · August 25, 2013

Some more examples for your education:

REXX

Needs more GOTO's.

30,698 · August 25, 2013

Thanks for all the help guys! Every one of your helpful comments contributed to me getting an A on the assignment!

Now there's a misrepresented grade if ever I saw one.

August 28, 2013

Tbh it seems the OP didn't even try to do this.

if you pseudocode what is required for this you have pretty much written the code....especially considering its to be written in vb.

if x = x then

y = y

else

if x = z then

y = y1

else

'etcetceyc

if you are doing a programming course OP and your posting like this.......you wont get far im sorry.

August 29, 2013

Needs more GOTO's.

Challenge accepted!

REXX

/* REXX */
arg intAge .

/* There is no 'GOTO' in REXX. The statement to use is 'SIGNAL'					 */
/* This is the unconditional form of 'SIGNAL ON' that is used to catch exceptions	*/

if intage < 6 then do
		decticketprice = 0
		signal my_ass
	end
  
if intage <= 12 then do
		decticketprice = 3.5
		signal my_ass
	end
	
if intage <= 19 then do
		decticketprice = 4.5
		signal my_ass
	end
	
if intage > 62 then do
		decticketprice = 5.5
		signal my_ass
	end
	
decticketprice = 7.5

my_ass.

return decticketprice

Cobol

01 DECTICKETPRICE			PIC S9(5)V99 COMP-3.
01 INTAGE					PIC 9(3) COMP-3.

SOME-BOLLOCKS-CODE SECTION.

	IF INTAGE < 6
		MOVE ZERO TO DECTICKETPRICE
		GO TO MY-ASS
	END-IF.
	
	IF INTAGE <= 12
		MOVE 3.5  TO DECTICKETPRICE
		GO TO MY-ASS
	END-IF.
	
	IF INTAGE <= 19
		MOVE 4.5 TO DECTICKETPRICE	
		GO TO MY-ASS
	END-IF.
	
	
	IF INTAGE > 62 
		MOVE 5.5 TO DECTICKETPRICE
		GO TO MY-ASS
	END-IF.

	MOVE 7.5 TO DECTICKETPRICE.

MY-ASS.
	EXIT.

Easytrieve Plus

DECTICKETPRICE				W	4 P 2
INTAGE						W	2 P

SOME-BOLLOCKS-CODE. PROC

	IF INTAGE LT 6
		DECTICKETPRICE = 0
		GO TO MY-ASS
	END-IF

	IF INTAGE LE 12
		DECTICKETPRICE = 3.5
		GO TO MY-ASS
	END-IF
	
	IF INTAGE LE 19
		DECTICKETPRICE = 4.5
		GO TO MY-ASS
	END-IF
	
	IF INTAGE GT 62
		DECTICKETPRICE = 5.5
		GO TO MY-ASS
	END-IF

	DECTICKETPRICE = 7.5

MY-ASS.

END-PROC

1,738 · August 29, 2013

Challenge accepted!

Very good try, but I expected this done DOS batch language.

August 29, 2013

Challenge accepted (again)!

Echo off
set intAge=%1%
if %intAge% LSS  6 (
	SET decTicketPrice=0
	goto done
)
if %intAge% LEQ 12 (
	SET decTicketPrice=3.5
	goto done
)
if %intAge% LEQ 19 (
	SET decTicketPrice=4.5
	goto done
)
if %intAge% GTR 62 (
	SET decTicketPrice=5.5
	goto done
)
set decTicketPrice=7.5

:done
Echo Ticket price is %decTicketPrice%

1,224 · August 29, 2013

Alright, but now I want a for-loop to add to the TicketPrice in 0.5 increments. The for-loop must be called from all places that populate the final value.

Do it!

2,153 · August 29, 2013

Write an If..ElseIf statement (or Select Case if you prefer) given the following:

decTicketPrice ?ticket price

intAge ?age of customer

If customer's age is less than 6, ticket price is Free

If customer's age is 6 to 12, ticket price is $3.50

If customer's age is 13 to 19, ticket price is $4.50

If customer's age is over 62, ticket price is $5.50

Otherwise, ticket price is $7.50

All values of age were covered in the criteria; so no need for any 'else' statements.

But if you insist:

float decTicketPrice = 7.50; // default ticket price

if (intAge < 6) decTicketPrice = 0.00 // under 6 are free

else decTicketPrice = 3.50; // 6 and over base price is 3.50

/* The above statement just screwed up the teacher's requirement */

/* of an 'otherwise' ticket price since the customer is either under 6 */

/* or 6 or above. Dumb teacher giving dumb assignment fails. */

if (intAge > 12) decTicketPrice += 1.00; // over 12 adds a dollar

if (intAge > 62) decTicketPrice += 1.00; // over 62 adds another dollar

32,461 · August 29, 2013

All values of age are covered; no need for any 'else' statements.

float decTicketPrice = 0.00;

if (intAge >= 6) decTicketPrice += 3.50;

if (intAge >= 12) decTicketPrice += 1.00;

if (intAge >= 62) decTicketPrice += 1.00;

VB doesn't use semicolons to end a line ;)

3,685 · August 29, 2013

All values of age are covered; no need for any 'else' statements.

float decTicketPrice = 0.00;

if (intAge >= 6) decTicketPrice += 3.50;

if (intAge >= 12) decTicketPrice += 1.00;

if (intAge >= 62) decTicketPrice += 1.00;

Doesn't cover the $7.50 cost if they are between 19 and 62.

2,153 · August 29, 2013

Doesn't cover the $7.50 cost if they are between 19 and 62.

Okay.

unsigned int intAge

// should be unsigned because negative ages aren't possible

// char is also permissible since people aren't likely to be > 255 years old

float decTicketPrice = 7.50 // default ticket price

if (intAge < 6) decTicketPrice = 0.00 // under 6 and you're in for free!

if (intAge > 5) and (intAge < 13) decTicketPrice += -4.00 // nice discount.

if (intAge > 12) and (intAge < 20) decTicketPrice += -3.00 // decent discount

if (intAge > 62) decTicketPrice += -2.00 // why the hate for senior citizens?

Still, no real reason for "else" conditions.

Start with the default and go.

August 29, 2013

will not post the code. but instead give you a reference to in this case .net but still this series is a good reference to visual basic also.

32,461 · August 29, 2013

Okay.

float decTicketPrice = 7.50

if (intAge <6 ) decTicketPrice = 0.00

if (intAge >5 ) and (intAge < 13) decTicketPrice += -4.00

if (intAge > 12) and (intAge <20) decTicketPrice += -3.00

if (intAge > 62) decTicketPrice += -2.00

Still, no real reason for "else" conditionals.

The reason is the assignment called for it.

Assignments are rarely designed to be the most efficient, but rather to teach a concept.

Not that it matters, the OP is clueless and wanted a handout. And got it.

2,153 · August 29, 2013

The reason is the assignment called for it.

Assignments are rarely designed to be the most efficient, but rather to teach a concept.

Not that it matters, the OP is clueless and wanted a handout. And got it.

True, I suppose.

I always received 'extra credit' for thinking beyond the assignment though.

32,461 · August 29, 2013

True, I suppose.

I always received 'extra credit' for thinking beyond the assignment though.

Heh, where I went, the instructors weren't allowed to give you extra credit.

2,153 · August 29, 2013

Heh, where I went, the instructors weren't allowed to give you extra credit.

Mine weren't either, but gave 'privileges' to those who earned them.

Sign In

create if...elseif statement Visual basic

Question

soccerstar206

Link to comment

Share on other sites

58 answers to this question

Recommended Posts

(Account no longer active)

Link to comment

Share on other sites

lnmnky

Link to comment

Share on other sites

FloatingFatMan

Link to comment

Share on other sites

jake1eye

Link to comment

Share on other sites

soccerstar206

Link to comment

Share on other sites

adrynalyne

Link to comment

Share on other sites

+Warwagon MVC

Link to comment

Share on other sites

Joe User

Link to comment

Share on other sites

Top Qat

Link to comment

Share on other sites

Joe User

Link to comment

Share on other sites

FloatingFatMan

Link to comment

Share on other sites

CG-88

Link to comment

Share on other sites

Top Qat

Link to comment

Share on other sites

Joe User

Link to comment

Share on other sites

Top Qat

Link to comment

Share on other sites

PUC_Snakeman

Link to comment

Share on other sites

abecedarian paradoxious

Link to comment

Share on other sites

adrynalyne

Link to comment

Share on other sites

Lord Method Man

Link to comment

Share on other sites

abecedarian paradoxious

Link to comment

Share on other sites

paxa

Link to comment

Share on other sites

adrynalyne

Link to comment

Share on other sites

abecedarian paradoxious

Link to comment

Share on other sites

adrynalyne

Link to comment

Share on other sites