Varible passing in functions<DBC>

Author

Message

Vernon

20

Years of Service

User Offline

Joined: 26th May 2004

Location: Fresno, CA

Posted: 13th Jun 2004 10:35

Link

I swear, just when I think I have this language figured out...

I must be missing something obvious here. I'm bassicly trying to load charcter information files. The varibles from the loader would not pass trough to the main .Dba files. After some work, I was able to determine that the error comes from how the varibles are passing. They are simply leaving the function as null values.a

I have included a simpler form of the code, as you can see, varibles work inside the function but not outside it, Is there something I am doing wrong?

Back to top

Profile PM Email

Soy Cocktail

20

Years of Service

User Offline

Joined: 23rd Dec 2003

Location:

Posted: 13th Jun 2004 13:32

Link

in dbpro you can declare the variables to be global and be used for all functions and outside of functions for dbc you need to make them variable arrays using the dim command

example
dbpro
global var#=1.0

Ddbc
dim var#(1)
var#(1)=1.0

Back to top

Profile PM

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 13th Jun 2004 15:00

Link

One further thing - Values are passed into functions by value (ie they are copied), so although you can change the contents of the variables inside the function, the changes are 'lost' when you return from that function.

*** Coming soon - Network Plug-in - Check my site for info ***
For free Plug-ins, source and the Interface library for Visual C++ 6, .NET and now for Dev-C++ http://www.matrix1.demon.co.uk

Back to top

Profile PM Email Website

jasuk70

21

Years of Service

User Offline

Joined: 3rd Dec 2002

Location: Hemel Hempstead

Posted: 14th Jun 2004 14:46

Link

Here is an example of how I load and save character data. I've cut and pasted this from my code and it needs more code to actually do anything but it may help you.

` Setup Character Type
type Character
	name         AS STRING
	sex          AS INTEGER
	guild        AS INTEGER
	class        AS INTEGER
	race         AS INTEGER
	might        AS INTEGER
	endurance    AS INTEGER
	speed        AS INTEGER
	agility      AS INTEGER
	Intelligence AS INTEGER
	psyche       AS INTEGER
	charisma     AS INTEGER
	hitPointsMax AS INTEGER
	hitPoints    AS INTEGER
	powerMax     AS INTEGER
	power        AS INTEGER
	poison       AS INTEGER
	disease      AS INTEGER
	health       AS INTEGER
	energy       AS INTEGER
	reaction     AS INTEGER
	presence     AS INTEGER
endtype

#CONSTANT maxCharacters 6
GLOBAL DIM characters(maxCharacters) AS Character

function SaveCharacters()
	LOCAL lp AS INTEGER
	
	if FILE EXIST(characterFilePath) then DELETE FILE characterFilePath
	OPEN TO WRITE 1,characterFilePath
	
	for lp=1 TO maxCharacters
		WRITE STRING 1,characters(lp).name
		WRITE LONG 1,characters(lp).sex
		WRITE LONG 1,characters(lp).guild
		WRITE LONG 1,characters(lp).class
		WRITE LONG 1,characters(lp).race
		WRITE LONG 1,characters(lp).might
		WRITE LONG 1,characters(lp).endurance
		WRITE LONG 1,characters(lp).speed
		WRITE LONG 1,characters(lp).agility
		WRITE LONG 1,characters(lp).Intelligence
		WRITE LONG 1,characters(lp).psyche
		WRITE LONG 1,characters(lp).charisma
		WRITE LONG 1,characters(lp).hitPointsMax
		WRITE LONG 1,characters(lp).hitPoints
		WRITE LONG 1,characters(lp).powerMax
		WRITE LONG 1,characters(lp).power
		WRITE LONG 1,characters(lp).poison
		WRITE LONG 1,characters(lp).disease
		WRITE LONG 1,characters(lp).health
		WRITE LONG 1,characters(lp).energy
		WRITE LONG 1,characters(lp).reaction
		WRITE LONG 1,characters(lp).presence
	next lp
	
	CLOSE FILE 1
	
endfunction

function LoadCharacters()
	LOCAL lp   AS INTEGER
	
	if FILE EXIST(characterFilePath)
		OPEN TO READ 1,characterFilePath
		
		for lp=1 TO maxCharacters
			READ STRING 1,characters(lp).name
			READ LONG 1,characters(lp).sex
			READ LONG 1,characters(lp).guild
			READ LONG 1,characters(lp).class
			READ LONG 1,characters(lp).race
			READ LONG 1,characters(lp).might
			READ LONG 1,characters(lp).endurance
			READ LONG 1,characters(lp).speed
			READ LONG 1,characters(lp).agility
			READ LONG 1,characters(lp).Intelligence
			READ LONG 1,characters(lp).psyche
			READ LONG 1,characters(lp).charisma
			READ LONG 1,characters(lp).hitPointsMax
			READ LONG 1,characters(lp).hitPoints
			READ LONG 1,characters(lp).powerMax
			READ LONG 1,characters(lp).power
			READ LONG 1,characters(lp).poison
			READ LONG 1,characters(lp).disease
			READ LONG 1,characters(lp).health
			READ LONG 1,characters(lp).energy
			READ LONG 1,characters(lp).reaction
			READ LONG 1,characters(lp).presence
		next lp
		
		CLOSE FILE 1
	endif	
endfunction

+ Code Snippet

` Setup Character Type
type Character
	name         AS STRING
	sex          AS INTEGER
	guild        AS INTEGER
	class        AS INTEGER
	race         AS INTEGER
	might        AS INTEGER
	endurance    AS INTEGER
	speed        AS INTEGER
	agility      AS INTEGER
	Intelligence AS INTEGER
	psyche       AS INTEGER
	charisma     AS INTEGER
	hitPointsMax AS INTEGER
	hitPoints    AS INTEGER
	powerMax     AS INTEGER
	power        AS INTEGER
	poison       AS INTEGER
	disease      AS INTEGER
	health       AS INTEGER
	energy       AS INTEGER
	reaction     AS INTEGER
	presence     AS INTEGER
endtype

#CONSTANT maxCharacters 6
GLOBAL DIM characters(maxCharacters) AS Character

function SaveCharacters()
	LOCAL lp AS INTEGER
	
	if FILE EXIST(characterFilePath) then DELETE FILE characterFilePath
	OPEN TO WRITE 1,characterFilePath
	
	for lp=1 TO maxCharacters
		WRITE STRING 1,characters(lp).name
		WRITE LONG 1,characters(lp).sex
		WRITE LONG 1,characters(lp).guild
		WRITE LONG 1,characters(lp).class
		WRITE LONG 1,characters(lp).race
		WRITE LONG 1,characters(lp).might
		WRITE LONG 1,characters(lp).endurance
		WRITE LONG 1,characters(lp).speed
		WRITE LONG 1,characters(lp).agility
		WRITE LONG 1,characters(lp).Intelligence
		WRITE LONG 1,characters(lp).psyche
		WRITE LONG 1,characters(lp).charisma
		WRITE LONG 1,characters(lp).hitPointsMax
		WRITE LONG 1,characters(lp).hitPoints
		WRITE LONG 1,characters(lp).powerMax
		WRITE LONG 1,characters(lp).power
		WRITE LONG 1,characters(lp).poison
		WRITE LONG 1,characters(lp).disease
		WRITE LONG 1,characters(lp).health
		WRITE LONG 1,characters(lp).energy
		WRITE LONG 1,characters(lp).reaction
		WRITE LONG 1,characters(lp).presence
	next lp
	
	CLOSE FILE 1
	
endfunction

function LoadCharacters()
	LOCAL lp   AS INTEGER
	
	if FILE EXIST(characterFilePath)
		OPEN TO READ 1,characterFilePath
		
		for lp=1 TO maxCharacters
			READ STRING 1,characters(lp).name
			READ LONG 1,characters(lp).sex
			READ LONG 1,characters(lp).guild
			READ LONG 1,characters(lp).class
			READ LONG 1,characters(lp).race
			READ LONG 1,characters(lp).might
			READ LONG 1,characters(lp).endurance
			READ LONG 1,characters(lp).speed
			READ LONG 1,characters(lp).agility
			READ LONG 1,characters(lp).Intelligence
			READ LONG 1,characters(lp).psyche
			READ LONG 1,characters(lp).charisma
			READ LONG 1,characters(lp).hitPointsMax
			READ LONG 1,characters(lp).hitPoints
			READ LONG 1,characters(lp).powerMax
			READ LONG 1,characters(lp).power
			READ LONG 1,characters(lp).poison
			READ LONG 1,characters(lp).disease
			READ LONG 1,characters(lp).health
			READ LONG 1,characters(lp).energy
			READ LONG 1,characters(lp).reaction
			READ LONG 1,characters(lp).presence
		next lp
		
		CLOSE FILE 1
	endif	
endfunction

Jas

----
"What is this talk of 'release'? Klingons do not'release' software. It escapes leaving a bloody trail of developers and quality assurance people in its wake!"

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Varible passing in functions<DBC>

Sorry your browser is not supported!

Newcomers DBPro Corner / Varible passing in functions&lt;DBC&gt;

Newcomers DBPro Corner / Varible passing in functions<DBC>