Is it possible to convert a string to a label?

Author

Message

The InTIMidator

19

Years of Service

User Offline

Joined: 22nd Jun 2005

Location: Somerset, UK

Posted: 15th Jun 2006 16:13

Link

Hi, I'm a novice programmer at dark basic and I was wondering if you could convert a string to a label for example:

+ Code Snippet

Input "1 or 2" ;a$
if a$="1"
goto a$
1:
Print "This is one"
2:
Print "This is two"

I know this does not work, but it would really help if there is.
So, is there a way to overcome this problem or are you going to have to type:

+ Code Snippet

if a$="1"
goto 1
endif
if a$="2"
goto 2
endif
if a$="3"
and so on

Thankyou
The InTIMidator

"Press any key ... where's the any key"
AMD Athlon 64 3400, 1 Gb RAM, Radeon 9800 pro, 80GB HDD

Back to top

Profile PM Website

MadrMan

18

Years of Service

User Offline

Joined: 17th Dec 2005

Location: 0x5AB63C

Posted: 15th Jun 2006 19:16

Link

The last one will do, but you could put all your subs in big if's. dont know how your code works, but you could try to instead of putting a 'sub:' , a 'if input$="sub"', you wouldnt have to make all the input code.

Back to top

Profile PM

Dream And Death

18

Years of Service

User Offline

Joined: 21st Feb 2006

Location: The circus! Juggling job, kids and DBPro

Posted: 15th Jun 2006 20:36

Link

I think what you are looking for is SELECT

+ Code Snippet

Input "1 or 2" ;a$
SELECT val(a$)
   CASE 1
   Print "This is one"
   ENDCASE
   CASE 2
   Print "This is two"
   ENDCASE
ENDSELECT

In this example, you end up with more lines, but you can expand on it as much as you want.

or, using Arrays

+ Code Snippet

dim Num$(2)
Num$(1)="one"
Num4(2)="two"
Input "1 or 2" ;a$
Print "This is "+Num$(val(a$))

There are a variety of ways you can do what you want. If you told us more about what you are doing, we can help more.

P.S. It is good programming practice to utterly avoid 'goto's and 'label's - function based programming is the better way.
E.g.

+ Code Snippet

Input "1 or 2" ;a$
Num$=NumberFunc(val(a$))
Print "This is "+Num$
wait key
end


Function NumberFunc(a)
if a=1 then ReturnString$="one"
if a=2 then ReturnString$="two"
if a=3 then ReturnString$="three"
if a=4 then ReturnString$="four"
if a=5 then ReturnString$="five"
endfunction ReturnString$

Back to top

Profile PM

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 15th Jun 2006 22:20

Link

to answer the question, no, the label name in code cannot be a variable, you would need condition tests like the advice above

Back to top

Profile PM

The InTIMidator

19

Years of Service

User Offline

Joined: 22nd Jun 2005

Location: Somerset, UK

Posted: 16th Jun 2006 13:51

Link

Thanks alot guys,
That SELECT function is just what I need or else I would be having to write alot of labels.

Quote: "
...but you could put all your subs in big if's. dont know how your code works, but you could try to instead of putting a 'sub:' , a 'if input$="sub"', you wouldnt have to make all the input code.
"

Not too sure what you are saying here, could you be a little more specific Madrman...

Quote: "
P.S. It is good programming practice to utterly avoid 'goto's and 'label's - function based programming is the better way.
"

Yes that is quite right and I will try to do more functions.
Another thing, my subs and labels have to be accessed from different parts of the game from different angles if you get me,
so in some cases i may need to have labels, won't I?... but will use that SELECT command, just the ticket

!!
Thanks alot guys

"Press any key ... where's the any key"
AMD Athlon 64 3400, 1 Gb RAM, Radeon 9800 pro, 80GB HDD

Back to top

Profile PM Website

The InTIMidator

19

Years of Service

User Offline

Joined: 22nd Jun 2005

Location: Somerset, UK

Posted: 16th Jun 2006 16:04

Link

Quote: "If you told us more about what you are doing, we can help more."

Okay, I'm trying to make a text-based adventure game for the compo and im just trying to find an easier way to do the gotos in a better way...

+ Code Snippet

dim cave$(5,2)
cave$(1,1):
Print "BLAH"
Input "What do you do?" ;a$
if a$="left"
goto cave$(1,2)
endif

cave$(1,2):
Print "MORE BLAH!!!"
wait key

I know this is not right but if ONLY!!!!
Would I have to do a function? Or would it just be easier to just do it in gotos and labels?
Thanks
The InTIMidator

"Press any key ... where's the any key"
AMD Athlon 64 3400, 1 Gb RAM, Radeon 9800 pro, 80GB HDD

Back to top

Profile PM Website

Three Score

20

Years of Service

User Offline

Joined: 18th Jun 2004

Location: behind you

Posted: 16th Jun 2006 20:47

Link

@intimeidator
are you trying to make an array of labels *gasp*
what exactly would be the point of that
if this was C then you could possibly do that but why!?

on the note of goto's they are horrible coding practice but they do have their uses the problem with them is you have to use them in global code(not in a gosub or function) or it will cause a pileup on the stack; it holds the returning information for the function/gosub and if its not taken off and used then theres a chance for it to just keep on going making a fatal memory leak

JouleOS and friends
great thanks to http://galekus.com for FREE HOSTING!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Is it possible to convert a string to a label?