returning user defined datatypes in a function

Author

Message

pollywog

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location:

Posted: 26th Jun 2007 02:36

Link

Is it possible to return a user defined type in a function?

alien = UpdateCharacter(alien)

function UpdateCharacter(pCharacter as CHARACTER)
pcharacter.blah = x
pcharacter.location = x
pcharacter.activity = getActivity(aCharacter)
end function pCharacter

Back to top

Profile PM

indi

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Earth, Brisbane, Australia

Posted: 26th Jun 2007 07:03

Link

This example demonstrates that you can use a type or type with array as the actual parameter in a function, however you can hand back to it inside the function.

+ Code Snippet

sync on : sync rate 60 : backdrop on

TYPE MyTypeArray
NUM AS INTEGER
ENDTYPE

dim MyTypeArray(1) as MyTypeArray
MyTypeArray(1).NUM = 45

TYPE MyType
NUM AS INTEGER
ENDTYPE

MyType as MyType
MyType.NUM = 95

disable escapekey : while escapekey()=0

ShowMyTypeArray()
ShowMyType()
ShowMyTypeArray_Parameter(MyTypeArray(1).NUM)
ShowMyType_Parameter(MyType.NUM)
ShowMyType_Parameter_handed(MT)

fastsync : endwhile

end

function ShowMyTypeArray()
   text 1,1,"MyTypeArray(1).NUM="+STR$(MyTypeArray(1).NUM)
endfunction

function ShowMyType()
   text 1,16,"MyType.NUM="+STR$(MyType.NUM)
endfunction

function ShowMyTypeArray_Parameter(MTA)
   text 1,32,"MyTypeArray(1).NUM as a function parameter="+STR$(MTA)
endfunction

function ShowMyType_Parameter(MT)
   text 1,48,"MyType.NUM as a function parameter="+STR$(MT)
endfunction

function ShowMyType_Parameter_handed(MT)
MT = MyType.NUM
   text 1,64,"MyType.NUM as a function parameter handed over="+STR$(MyType.NUM)
endfunction

it also demonstrates that array based types and types are global into the function without a parameter call.

Back to top

Profile PM Email

Bishop

21

Years of Service

User Offline

Joined: 18th Dec 2002

Location: In my favorite chair...

Posted: 29th Jun 2007 10:06 Edited at: 29th Jun 2007 11:30

Link

Not sure if you could do that using local variables, but using Arrays and Types, you could do it. Kind of a pain in the ass to have to have a bunch of Global variables running around, but oh well ^^

Use the Type/ Endtype to define your data:

+ Code Snippet

TYPE Character
blah as integer
location as integer
whatever as integer
ENDTYPE

Then define an array and use your Character type to define it:

+ Code Snippet

dim pcharacter(1) as Character

Now you can call and define these data types in any part of your code:

+ Code Snippet

FUNCTION UpdateCharacter(number)
pcharacter(number).blah = x
pcharacter(number).location = y
pcharacter(number).whatever = z
ENDFUNCION

In this fashion, you won't have to worry about returning a value with the function as you can call the array anywhere in the code. More memory usage =P

Cheers,
Bishop

*EDIT*

Don't forget, you can use user defined types to define other custom types =P for example:

+ Code Snippet

TYPE XYZ
x as float
y as float
z as float
ENDTYPE

...is quite cool for keeping track of positions. It can be used for game data like this:

+ Code Snippet

TYPE type_XYZ
x as float
y as float
z as float
ENDTYPE

TYPE Character
blah as integer
location as type_XYZ
ENDTYPE

This way, you can call the players stuff like this;

+ Code Snippet

pcharacter(1).location.x = x
pcharacter(1).location.y = y
pcharacter(1).location.z = z

Tux is my guildmaster.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / returning user defined datatypes in a function