[DBC] Subroutine to function - WHY IS MY PREVIOUS POSTING LOCKED?

Author

Message

The Wizard of Aus

17

Years of Service

User Offline

Joined: 14th Sep 2007

Location: The Land Down Under, AUSTRALIA

Posted: 25th Sep 2007 07:15

Link

Why is my previous posting on this subject locked?

The Wizard

The simplest way to learn speed reading is to get an unexpected letter from the taxation office

Back to top

Profile PM

Zombie 20

18

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 25th Sep 2007 11:48 Edited at: 25th Sep 2007 11:54

Link

Hi wiz,

I'm assuming that you're new to the fourums and all that jazz. Look have you posted about the same question or just a small variation of your problem, mods don't need that in the threads and so they get locked, so what seems to be the issue?

Okay saw your thread, dude come on you cannot be serious. TDK's tuts are top-notch, I do not see why you have an issue here, not to mention that what you're trying to do is nowhere near a subroutine.

This is a subroutine

+ Code Snippet

 

gosub Test_1

Test_1:

print "print, this worked now go back to my main loop jerk." 
 return 

end

your thread was locked because it made no sense whatsoever. Now look, you may think I'm being mean but I'm just very tired having come off of work so please bare with me, I have to recaffinate but dude come on..here's what you could do with that code.

+ Code Snippet


Sync on:cls:sync rate 30

print "we're gonna do some stuff today with subroutines yay!" 
  wait 1000
gosub screen_1

screen_1:
 cls 
print "of course now what happens when we return your saying? Watch."
  gosub screen_2
   return

screen_2:
cls

print "see now we are creating a program flow, jumping to what we need before going back to the main loop." 
  return

I hope this has answered your question as to what a subroutine is and as far as its uses, boundless though some older members would yell at me and say use functions like a good boy but I'm just stubborn.

Back to top

Profile PM Email

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 25th Sep 2007 22:47

Link

@Zombie

+ Code Snippet

gosub Test_1

Test_1:

print "print, this worked now go back to my main loop jerk." 
 return 

end

Your indenting is strange for your subroutines; the label and RETURN are just like any other multi-line command/loop.
Also, sorry for being picky but your example would return to just after the gosub call and bump into the subroutine, running it a second time.
Here's the changes:

+ Code Snippet

gosub Test_1
END
Test_1:
  print "print, this worked now go back to my main loop jerk." 
RETURN

Now it will only run the Test_1 routine once and then end

This is a better example of how to use gosubs as now we have a routine that is "outside" the main program.

In programming, nothing exists

Back to top

Profile PM Email

The Wizard of Aus

17

Years of Service

User Offline

Joined: 14th Sep 2007

Location: The Land Down Under, AUSTRALIA

Posted: 26th Sep 2007 07:27

Link

Zombie 20

OK! I said

Quote: "I currently use this as a subroutine. How can I change it to use as a function and how would I call it?"

What I should have said was

Quote: "I currently use this in a subroutine. How can I change to use in a function and how would I call it?"

Check

http://forum.thegamecreators.com/?m=forum_view&t=114865&b=10

and you’ll see what I ended up with.

The Wizard

The simplest way to learn speed reading is to get an unexpected letter from the taxation office

Back to top

Profile PM

Zombie 20

18

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 26th Sep 2007 11:49

Link

I know my coding style sucks haha, and thank you for fixing that obese, acutally just got off of work so I'll be doing some coding here in a few.

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 27th Sep 2007 03:01

Link

Basically you double-posted:

http://forum.thegamecreators.com/?m=forum_view&t=114865&b=10
http://forum.thegamecreators.com/?m=forum_view&t=114861&b=10

This happens frequently with new users as they post and when their thread doesn't immediately appear (due to the approval process), they post it again but with a slightly different topic line.

As they were both on the same subject, I locked the one which no-one had replied in.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Zombie 20

18

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 27th Sep 2007 13:32

Link

well mr. wizard as far as I know you cannot use a subroute in a function and why the hell would you want to anyway? Both are similar but I don't really see an application that would need it, I mean functions are very very useful, I'm just very very lazy.

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 27th Sep 2007 18:53

Link

I forgot to add...

Sometimes, procedures are better than functions - life is often much easier when you don't have to worry about variable scope (local variables).

To be honest, I rarely use functions. They do have their uses occasionally though, so I'm not saying I never use them...

Procedures which use lots of global variables are often better left as procedures in DB Classic because unlike DBPro, you can't declare native global variables.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Insert Name Here

18

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 27th Sep 2007 18:54

Link

Quote: "To be honest, I rarely use functions. They do have their uses occasionally though, so I'm not saying I never use them..."

We have something in common!

Our home is our world, our life, home is our world...
Homeworld: The ladder

Back to top

Profile PM

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 27th Sep 2007 19:18

Link

Quote: "Procedures which use lots of global variables are often better left as procedures in DB Classic because unlike DBPro, you can't declare native global variables."

I think TDK means procedures that alter lots globals; because you can only return one variable from a function it's hard to make the same procedure as a function.

In programming, nothing exists

Back to top

Profile PM Email

The Wizard of Aus

17

Years of Service

User Offline

Joined: 14th Sep 2007

Location: The Land Down Under, AUSTRALIA

Posted: 28th Sep 2007 09:03

Link

How can I explain?

Let’s start at the beginning.

This is from TDK_Man's tutorials on how to get a sub-string from a string

+ Code Snippet

A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
Sub$="" 
For N=7 To 11
  Sub$=Sub$+Mid$(A$,N)
Next N

and I said

Quote: "I currently use this in a subroutine."

Here’s how I used it in a subroutine

hide mouse

dim tw(20)

wait 500

set text font "arial"
set text size 21
set text to bold
th=text height("arial")
ink rgb(255,217,128),1

rem ====================== Message =====================

a$="The Game Creators"
tw=text width(a$)

across=320-tw/2:down=190

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
text across,down,sub$
wait 500
pos=5:length=9
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=10:length=17
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$

wait 500

inc down,(th*1)

rem ==================== New message ===================

a$="The Home of Dark Basic"
tw=text width(a$)

across=320-tw/2

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
text across,down,sub$
wait 500
pos=5:length=9
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=10:length=12
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=13:length=17
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=18:length=22
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$

wait key

end

` ---------------------------------------------------
` Subroutine to get part message to write to screen
` ---------------------------------------------------
  getsubstring:

sub$=""
    for n=pos to length
      sub$=sub$+mid$(a$,n)
    next n

return

+ Code Snippet

hide mouse

dim tw(20)

wait 500

set text font "arial"
set text size 21
set text to bold
th=text height("arial")
ink rgb(255,217,128),1

rem ====================== Message =====================

a$="The Game Creators"
tw=text width(a$)

across=320-tw/2:down=190

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
text across,down,sub$
wait 500
pos=5:length=9
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=10:length=17
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$

wait 500

inc down,(th*1)

rem ==================== New message ===================

a$="The Home of Dark Basic"
tw=text width(a$)

across=320-tw/2

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
text across,down,sub$
wait 500
pos=5:length=9
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=10:length=12
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=13:length=17
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$
wait 500
pos=18:length=22
across=across+text width(sub$)
gosub getsubstring
text across,down,sub$

wait key

end

` ---------------------------------------------------
` Subroutine to get part message to write to screen
` ---------------------------------------------------
  getsubstring:

    sub$=""
    for n=pos to length
      sub$=sub$+mid$(a$,n)
    next n

  return

Then I said

Quote: "How can I change to use in a function and how would I call it?"

Again, if you check

http://forum.thegamecreators.com/?m=forum_view&t=114865&b=10

you’ll see how I changed to use in a function.

The Wizard

The simplest way to learn speed reading is to get an unexpected letter from the taxation office

Back to top

Profile PM

The Wizard of Aus

17

Years of Service

User Offline

Joined: 14th Sep 2007

Location: The Land Down Under, AUSTRALIA

Posted: 1st Oct 2007 04:29

Link

Does that explain more clearly?

The Wizard

The simplest way to learn speed reading is to get an unexpected letter from the taxation office

Back to top

Profile PM

gearce

18

Years of Service

User Offline

Joined: 18th Dec 2006

Location: ex SCOTLAND, now MELBOURNE, Australia

Posted: 3rd Oct 2007 12:31 Edited at: 4th Oct 2007 04:25

Link

Hi there Wizard.

Quote: "Here’s how I used it in a subroutine."

Here's another way you could have used it in a subroutine. Same programme some lines shorter simply by removing two repetitive lines and putting them in the subroutine.

hide mouse

dim tw(20)

wait 500

set text font "arial"
set text size 21
set text to bold
th=text height("arial")
ink rgb(255,217,128),1

rem ====================== Message =====================

a$="The Game Creators"
tw=text width(a$)

across=320-tw/2:down=190

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
wait 500
pos=5:length=9
gosub getsubstring
wait 500
pos=10:length=17
gosub getsubstring

wait 500

inc down,(th*1)

rem ==================== New message ===================

a$="The Home of Dark Basic"
tw=text width(a$)

across=320-tw/2
sub$=""

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
wait 500
pos=5:length=9
gosub getsubstring
wait 500
pos=10:length=12
gosub getsubstring
wait 500
pos=13:length=17
gosub getsubstring
wait 500
pos=18:length=22
gosub getsubstring

wait key

end

` ---------------------------------------------------
` Subroutine to get part message to write to screen
` ---------------------------------------------------
  getsubstring:
    
    across=across+text width(sub$)
    sub$=""
      for n=pos to length
        sub$=sub$+mid$(a$,n)
      next n
    text across,down,sub$

return

+ Code Snippet

hide mouse

dim tw(20)

wait 500

set text font "arial"
set text size 21
set text to bold
th=text height("arial")
ink rgb(255,217,128),1

rem ====================== Message =====================

a$="The Game Creators"
tw=text width(a$)

across=320-tw/2:down=190

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
wait 500
pos=5:length=9
gosub getsubstring
wait 500
pos=10:length=17
gosub getsubstring

wait 500

inc down,(th*1)

rem ==================== New message ===================

a$="The Home of Dark Basic"
tw=text width(a$)

across=320-tw/2
sub$=""

rem ------------------ Go to subroutine ----------------

pos=1:length=4
gosub getsubstring
wait 500
pos=5:length=9
gosub getsubstring
wait 500
pos=10:length=12
gosub getsubstring
wait 500
pos=13:length=17
gosub getsubstring
wait 500
pos=18:length=22
gosub getsubstring

wait key

end

` ---------------------------------------------------
` Subroutine to get part message to write to screen
` ---------------------------------------------------
  getsubstring:
    
    across=across+text width(sub$)
    sub$=""
      for n=pos to length
        sub$=sub$+mid$(a$,n)
      next n
    text across,down,sub$

  return

gearce
(GRC)

LANG MEY YER LUM REEK
That's ODD ...... In 1911, 3 men were hung for the murder of Sir Edmund Berry at Greenbury Hill, their last names were Green, Berry, and Hill.

Back to top

Profile PM

The Wizard of Aus

17

Years of Service

User Offline

Joined: 14th Sep 2007

Location: The Land Down Under, AUSTRALIA

Posted: 4th Oct 2007 06:23

Link

Thanks gearce. Much appreciated.

The Wizard

The simplest way to learn speed reading is to get an unexpected letter from the taxation office

Back to top

Profile PM

gearce

18

Years of Service

User Offline

Joined: 18th Dec 2006

Location: ex SCOTLAND, now MELBOURNE, Australia

Posted: 9th Oct 2007 07:37

Link

Re all comments about returning variables from a function. Functions do not necessarily have to return a variable.

gearce
(GRC)

LANG MEY YER LUM REEK
That's ODD ...... In 1911, 3 men were hung for the murder of Sir Edmund Berry at Greenbury Hill, their last names were Green, Berry, and Hill.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / [DBC] Subroutine to function - WHY IS MY PREVIOUS POSTING LOCKED?