SELECT CASE, or something

[tabnewflax]

INPUT "1. Yes 2. No", choice
SELECT CASE choice
CASE 1
    GOTO yes
CASE 2
    GOTO no
END SELECT

That is just an example of my problem. So my problem is that you could just press ENTER or a digit except 1 and 2 to get to the next section in the game. Which kinda makes the game worthless.

How do I type so the only possible options is 1 and 2?

[R@dioman]

You can use CASE ELSE like so:

Code:

Menu:
INPUT "1 or 2", choice

SELECT CASE
   CASE 1
       GOTO Yes
   CASE 2
       GOTO No
   CASE ELSE
       PRINT "Select either 1 or 2 please"
       GOTO Menu
END SELECT

[Agamemnus]

This is just the proverbial tip of the iceberg.

You can change your keyboard input in many ways:

*use a different input command, like I$ = INKEY$ or n% = INP(96).
*error-check the answer by asking for a string, and then error-check it: get rid of leading/trailing spaces, etc.
*You can use key/mouse-selection menus so there are no invalid answers.

You can find some things here:
faq.qbasicnews.com

[Mango]

This is just the proverbial tip of the barrel.

Is it that or is it the proverbial tip of the iceberg??!!??   :-?  ::

[Agamemnus]

What are you talking about?

[Plasma]

Last edited by Agamemnus on Wed Mar 10, 2004 11:39 pm; edited 1 time in total

[Agamemnus]

Ok, I admit it.

Yeah.

It's iceberg.

[Mac]

Mac

[Sumo Jo]

Mac

spammer

[Pyrodap]

Try this...

PRINT "PRESS EITHER 1 OR 2"

DO
K$ = INKEY$
LOOP UNTIL K$ = "1" OR K$ = "2"

SELECT CASE K$
CASE "1"
'Code for 1
CASE "2"
'Code for 2
END SELECT

[Moneo]

So, tabnewflax, did Radioman's example solve your question, or do you further doubts?
*****

[Blitz]

I think this is better coding practice.

Code:

do    
    input "Enter selection", ikey
   
    select case ikey
        case "1"
            print "You pressed 1"
            exit do
           
        case "2"
            print "You pressed 2"
            exit do
           
        case else
            print "Invalid option, try again"
    end select
loop

[TheBigBasicQ]

Mac

spammer

Read the subject =P

BTW You could try this if you have lot of code in each case:

Code:

do  
    input "Enter key ", ikey
   
    select case ikey
        case "1"
            CALL KEY1
            exit do
           
        case "2"
            CALL KEY2
            exit do
         case ...
         ...
        case else
            print "Invalid!!!"
    end select
loop

[Agamemnus]

This is MUCH more sane:

Code:

DO
INPUT "Enter the !#$!@#$@#$ key already!!", ikey
SELECT CASE ikey
CASE "1": key1: EXIT DO
CASE "2": key2: EXIT DO
CASE ......
CASE ELSE: PRINT "INVALID!"
END SELECT
LOOP

[Moneo]

Ah, yes, I like Aga's example. It reads so much better. Some people may not like multiple statements on one line, but they sure make the code look nice. You can see the whole thing with one glance.
*****