My first DB code. Ever! - GameCreators Forum

Author

Message

MenTalTerYn

14

Years of Service

User Offline

Joined: 27th Dec 2009

Location: In my chair

Posted: 28th Dec 2009 03:15

Link

Hi, I'm brand spankin' new to the DarkBASIC scene. My only actual previous coding experience would be some minor html work, but nothing major. Today that changes though! I started dabbling with DarkBASIC and made my first piece of working code. Nothing special, just a little For/Next Loop test, just to see if I could figure it out.

That's it... just happy I figured somethin' out by myself for once XD

+ Code Snippet

Start:
print "For/Next Loop Test"
print ""
INPUT "How many times would you like this line to be repeated?", value
For N=1 to value
 print "TEST**TEST**TEST  #";N;""
 Next N
INPUT "Would you like to try again? (Y/N)", Answer$
if Answer$="Y" then goto Start
if Answer$="y" then goto Start
if Answer$="N" then goto Finish
if Answer$="n" then goto Finish
Finish:
End

Back to top

Profile PM Email

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 28th Dec 2009 06:04

Link

Congratulations!

And welcome to the forums.

A nice first program. Everyone's gotta start somewhere.

I see you've defined labels Start and Finish. Be careful with that, as using the goto command is widely considered bad programming practice. The idea is that you should be able to control the flow of the program without the use of such blatant and explicit jumps. In fact, in the Python language, goto and labels don't even exist. As a note to the other forum members: I am in no way attempting, and have no desire to spark a ridiculous goto discussion.

At any rate, you're off to a good start. Where to now?

Back to top

Profile PM Email

Mew151

16

Years of Service

User Offline

Joined: 1st Jun 2008

Location: Glitch city

Posted: 28th Dec 2009 06:27

Link

Try making a simple game like a number guessing game.

I modified one until it became impossible.

Back to top

Profile PM Email

Mulderman

20

Years of Service

User Offline

Joined: 8th Jan 2004

Location: C:\\

Posted: 28th Dec 2009 06:40

Link

Another beginner mistake, using goto's.

Get rid of GOTO's.
That's second thing you must do with this code.

New GTA2 Map Editor :: http://www.gta2madness.co.cc

Back to top

Profile PM Email Website

MenTalTerYn

14

Years of Service

User Offline

Joined: 27th Dec 2009

Location: In my chair

Posted: 28th Dec 2009 22:31

Link

First let me start off by saying thanks for the response. I learned shortly after posting that bit of code about how goto's are bad, though I'm still trying to figure out an alternative (still reading guides/tutorials). I'm thinkin' subroutines would do the trick, will have to toy with it later.

As for what i'm doing now, well... I dont quite know. A number guessing game seems like a good start, then I'll try my hand at a pong clone or (if i'm feeling daring) maybe a galaga clone.

Anyways, Thanks for the welcome and I'll be sure to remove those nasty goto's.

BTW, this is how my loop test turned out before I stopped toying with it (and before learning about goto's)

Do
  Start:
    cls
    print "Loop Test"
    print ""
    print "What kind of loop test do you want to do?"
    print "1. Repeat/Until Loop Test"
    print "2. For/Next Loop Test"
    print "3. While/EndWhile Loop Test"
    print "4. Exit"
    INPUT "Which test do you choice? (1-4)", Test$
    if Test$="1" then goto StartUntil
    if Test$="2" then goto StartNext
    if Test$="3" then goto StartWhile
    if Test$="4" then goto Finish

StartUntil: REM Begin Repeat/Until Loop Test
    cls
    print "Repeat/Until Loop Test"
    print ""
    INPUT "How many times would you like this line to be repeated?", UntilValue
    UntilCounter=0
    Repeat
      Print "TEST**TEST**TEST  #";UntilCounted+1;"" REM +1 to off set the counter
      Inc UntilCounter
      Inc UntilCounted
    Until UntilCounter=UntilValue
    goto TryAgain

StartNext: REM Begin For/Next Loop Test
    cls
    print "For/Next Loop Test"
    print ""
    INPUT "How many times would you like this line to be repeated?", NextValue
    For N=1 to NextValue
      print "TEST**TEST**TEST  #";N;""
    Next N
    goto TryAgain

StartWhile: REM Begin While/EndWhile Loop Test
    cls
    print "While/EndWhile Loop Test"
    print ""
    INPUT "How many times would you like this line to be repeated?", WhileValue
    WhileCounter=0
    While WhileCounter<WhileValue
      print "TEST**TEST**TEST  #";WhileCounted+1;"" REM +1 to off set the counter
      inc WhileCounter
      inc WhileCounted
    EndWhile
    goto TryAgain

TryAgain:
    INPUT "Would you like to try again? (Y/N)", Answer$
    if Answer$="Y" then goto Start
    if Answer$="y" then goto Start
    if Answer$="N" then goto Finish
    if Answer$="n" then goto Finish
Loop
Finish:
End

+ Code Snippet

Do
  Start:
    cls
    print "Loop Test"
    print ""
    print "What kind of loop test do you want to do?"
    print "1. Repeat/Until Loop Test"
    print "2. For/Next Loop Test"
    print "3. While/EndWhile Loop Test"
    print "4. Exit"
    INPUT "Which test do you choice? (1-4)", Test$
    if Test$="1" then goto StartUntil
    if Test$="2" then goto StartNext
    if Test$="3" then goto StartWhile
    if Test$="4" then goto Finish

  StartUntil: REM Begin Repeat/Until Loop Test
    cls
    print "Repeat/Until Loop Test"
    print ""
    INPUT "How many times would you like this line to be repeated?", UntilValue
    UntilCounter=0
    Repeat
      Print "TEST**TEST**TEST  #";UntilCounted+1;"" REM +1 to off set the counter
      Inc UntilCounter
      Inc UntilCounted
    Until UntilCounter=UntilValue
    goto TryAgain

  StartNext: REM Begin For/Next Loop Test
    cls
    print "For/Next Loop Test"
    print ""
    INPUT "How many times would you like this line to be repeated?", NextValue
    For N=1 to NextValue
      print "TEST**TEST**TEST  #";N;""
    Next N
    goto TryAgain

  StartWhile: REM Begin While/EndWhile Loop Test
    cls
    print "While/EndWhile Loop Test"
    print ""
    INPUT "How many times would you like this line to be repeated?", WhileValue
    WhileCounter=0
    While WhileCounter<WhileValue
      print "TEST**TEST**TEST  #";WhileCounted+1;"" REM +1 to off set the counter
      inc WhileCounter
      inc WhileCounted
    EndWhile
    goto TryAgain

  TryAgain:
    INPUT "Would you like to try again? (Y/N)", Answer$
    if Answer$="Y" then goto Start
    if Answer$="y" then goto Start
    if Answer$="N" then goto Finish
    if Answer$="n" then goto Finish
Loop
Finish:
End

Back to top

Profile PM Email

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 29th Dec 2009 02:54

Link

Yes, you could use subroutines to do the trick, or you could just use conditional blocks like so:

+ Code Snippet

while Choice$<>"3"
    print "Print options and stuff here"
    print "1."
    print "2."
    print "3. Exit"
    input "Option:",Choice$
    if Choice$="1"
        print "You chose option 1"
        suspend for key
    endif
    if Choice$="2"
        print "You chose option 2"
        suspend for key
    endif
endwhile

Also, you can test both letter cases by just making sure the user entered string is in one case or the other.

+ Code Snippet

if lower$(Answer$)="y" then

Hm, I'd say take on galaga. Just make sure you have a solid idea of every aspect of the game before you start coding.

Back to top

Profile PM Email

MenTalTerYn

14

Years of Service

User Offline

Joined: 27th Dec 2009

Location: In my chair

Posted: 30th Dec 2009 14:16

Link

Ah, thanks Kira! Seems I still have a lot more reading to do before I attempt anything major (Didn't even know about the conditionals). Oh well, I only made that loop test just to see if I understood the concept of loops. After toying with it though, and posting here, I ended up learning more than I expected. Thanks for all the help

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / My first DB code. Ever!