Fine tuning my Input(), Process(), Output() functions

Author

Message

Burning Feet Man

16

Years of Service

User Offline

Joined: 4th Jan 2008

Location: Sydney, Australia

Posted: 24th May 2010 04:28 Edited at: 24th May 2010 09:04

Link

Hey everyone,

I'm just practising writing functions, but I'm still stumbling at passing values to and from them. If I can, I'd like to avoid declaring variables as global just to get them working with functions. Have a look at my code below;

+ Code Snippet

Rem Project: Function Test
Rem Created: Monday, May 24, 2010
Rem ***** Main Source File *****

Global Test As String

Do
	Userinput()
	Systemprocess()
	Systemoutput()
LOOP

Function Userinput()
	input "Please type in a colour; red, blue or green: ", Test
Endfunction

Function Systemprocess()
	Select Test
	Case "exit"
		CLS
		Print "Have a great day!"
		Wait key
	End
	EndCase
	Case "red", "Red", "RED"
		INK RGB(128,0,0), RGB(255,87,87)
	EndCase
	Case "blue", "Blue", "BLUE"
		INK RGB(0,0,128), RGB(160,192,255)
	EndCase
	Case "green", "Green", "GREEN"
		INK RGB(0,128,82), RGB(161,255,160)
	EndCase
	Case default
		CLS
		Print "Try type in either red, green or blue."
		Test = "white"
		INK RGB(255,255,255), RGB(0,0,0)
		Wait key
	EndCase
	
	EndSelect
EndFunction

Function Systemoutput()
	cls
	Print "Function Test"
	Print "Text has been changed to ", Test
ENDFUNCTION

If you can assist me in tidying up this example, I'd be most great full.

Here's another example, it only works if I declare y$ as global.

+ Code Snippet

Do 
	Input "Please enter the word 'test': " , userinput$
	afunc(userinput$)
	Print "Out of function, results: ", afunc(functionoutput$)
	Wait key
	cls
LOOP

Function afunc(functionarguement$)
	Print "You entered ", functionarguement$
	functionoutput$ = "Successfull"
	Print "Inside function, test Results: ", functionoutput$
	wait key
ENDFUNCTION functionoutput$

At the "Endfunction" line, I think I've seen examples where programmers put a return value, like "Endfunction y$" but I don't quite understand this either...

Cheers in advance,
BFM

EDIT: Tidied up my example a bit.

Back to top

Profile PM Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 24th May 2010 10:34

Link

Alright I'll take a try:

And of course I'll try to leave the actual coding to you.

You can return Test as a value of your function:

+ Code Snippet

`Display the value the function returned on the screen
FuncValue = MyFunction()
print FuncValue

`This is some extra because I felt like it ^^
print (MyFunction() - 8)*5
wait key
end

`This function will return a value of 5
function MyFunction()
    ReturnValue = 5
endfunction ReturnValue

You can then use that Test as a parameter:

+ Code Snippet

`Print 5 times the number 6
PrintIntegerTimes5(6)
wait key
end

`This function will take a parameter
function PrintIntegerTimes5(parameter)
    print parameter*5
endfunction

You can also make your code shorter by using the command lower$(), which converts your string to lowercase.
So instead of testing for "red", "Red" and "RED", you can do this:
Test$ = lower$(Test$)
and then only check for "red" since you know there are only lowercase characters in the string.

Cheers!
Sven B

Back to top

Profile PM Email

Burning Feet Man

16

Years of Service

User Offline

Joined: 4th Jan 2008

Location: Sydney, Australia

Posted: 24th May 2010 15:14

Link

Thanks Sven B, I can't thank you enough for helping me with understanding this. I've come across so many threads about functions that do nothing but confuse me!

I've got my code sorted, posted as per below. A few small bugs to iron out, but the penny has finally dropped with functions.

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Monday, May 24, 2010

Rem ***** Main Source File *****

Do
	Userinput$ = Userinput()
	processreturn$ = Process(Userinput$)
	Print "You picked ", Userinput$, ", which is the ", processreturn$  , " case."
Loop


Function Userinput()
	Input "Please enter a colour. Red, green or blue: ", Userinput$
Endfunction Userinput$

Function Process(Userinput$)
	Userinput$ = lower$(Userinput$) 
	Select Userinput$
	Case "red"
		INK Rgb(255,0,0) , RGB(255,87,87)
		Print "red"
		processreturn$ = "first"
	Endcase
	Case "blue"
		INK Rgb(87,128,255) , RGB(160,192,255)
		Print "blue"
		processreturn$ = "second"
	Endcase
	Case "green"
		INK RGB(0,255,0), RGB(161,255,160)
		Print "green"
		processreturn$ = "third"
	Endcase
	Case Default
		INK RGB(255,255,255), RGB(0,0,0)
		Print "white"
		processreturn$ = "default"
	Endcase
	Endselect
Endfunction processreturn$

All along, instead of calling functions or trying to pull a value from then directly, such as;

+ Code Snippet

function()
Print "test: ", function()

All I had to do was declare a variable with that function, then use that variable, such as;

+ Code Snippet

functionreturn$ = function()
Print "test: ", functionreturn$

NOW, I'd appreciate if anyone else can hit me up on my bad habits, as it's best I learn how to code correctly from the start!

Back to top

Profile PM Website

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 24th May 2010 18:53

Link

I had no idea you could seperate values with commas in a case statement :/

Learn someth new every day...

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Fine tuning my Input(), Process(), Output() functions