Error Message Regarding UDT's Confusing

Author

Message

Mr909

14

Years of Service

User Offline

Joined: 2nd Jun 2012

Location:

Posted: 17th Nov 2012 20:35

Link

So, I'm trying to input a UDT into a function like so:

+ Code Snippet

SYNC ON
SYNC RATE 40

TYPE bank
ttl# AS FLOAT
disp# AS FLOAT
ENDTYPE

pl_bank AS bank
fl#=0.0500000

pl_bank.ttl#=1000.0000000

DO
CLS
pl_bank=correct_bank(pl_bank)
PRINT STR$(pl_bank.disp#)
PRINT fl#
IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY()+SPACEKEY()=0 THEN hold=0
SYNC
LOOP


FUNCTION correct_bank( in AS bank )
dist=in.disp#-in.ttl#
IF ABS(dist)>100
	IF dist<0 THEN INC in.disp#,100.0000000
ENDIF

ENDFUNCTION in

Notice that both "in"(from the function) and "pl_bank"(from the code) have the same defined type. Yet the compiler gives me an error reading: "Both user-defined type values must be the same at line 16" (trying to set them to the same thing).

Is this just not supposed to work? is there something I'm missing?

Back to top

Profile PM Email

The Weeping Corpse

14

Years of Service

User Offline

Joined: 19th Sep 2011

Location: United Kingdom

Posted: 17th Nov 2012 22:18

Link

I don't think functions can return UDTs

www.youtube.com/user/TheWeepingCorpse

www.theweepingcorpse.com

Back to top

Profile PM Email

Mr909

14

Years of Service

User Offline

Joined: 2nd Jun 2012

Location:

Posted: 17th Nov 2012 22:21

Link

Then why does the error message say that the UDT values must be the same? It seems to indicate this is not the case.

Back to top

Profile PM Email

The Weeping Corpse

14

Years of Service

User Offline

Joined: 19th Sep 2011

Location: United Kingdom

Posted: 17th Nov 2012 22:48 Edited at: 17th Nov 2012 22:57

Link

Well it would seem the error message is misleading. IMHO DB Pro needs serious improvements to UDTs.

Anyways, you can use a global variable to work around this issue tho I understand it's not a perfect solution and is somewhat of a fudge.

+ Code Snippet

SYNC ON
SYNC RATE 40

TYPE bank
ttl# AS FLOAT
disp# AS FLOAT
ENDTYPE

pl_bank AS bank
global out_bank as bank

fl#=0.0500000

pl_bank.ttl#=1000.0000000

DO
CLS
correct_bank(pl_bank)
pl_bank = out_bank
PRINT STR$(pl_bank.disp#)
PRINT fl#
IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY()+SPACEKEY()=0 THEN hold=0
SYNC
LOOP


FUNCTION correct_bank( in AS bank )
dist=in.disp#-in.ttl#
IF ABS(dist)>100
	IF dist<0 THEN INC in.disp#,100.0000000
ENDIF

  out_bank = in
ENDFUNCTION

www.youtube.com/user/TheWeepingCorpse

www.theweepingcorpse.com

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 17th Nov 2012 23:10 Edited at: 17th Nov 2012 23:12

Link

I agree it's misleading.

Something like this might do what you want:

+ Code Snippet

SYNC ON
SYNC RATE 40

TYPE bank
  ttl# AS FLOAT
  disp# AS FLOAT
ENDTYPE

pl_bank AS bank
global tempBank as bank

fl#=0.0500000

pl_bank.ttl# = 1000.0000000

DO
  CLS
  correct_bank(pl_bank)
  pl_bank = tempBank
  PRINT STR$(pl_bank.disp#)
  PRINT fl#
  IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY()+SPACEKEY()=0 THEN hold=0
  SYNC
LOOP


FUNCTION correct_bank( in AS bank )
  dist=in.disp#-in.ttl#
  IF ABS(dist)>100
    IF dist<0 THEN INC in.disp#,100.0000000
  ENDIF
  tempBank = in
ENDFUNCTION

Edit Damn! Shouldn't watch TV when composing a reply. The Weeping Corpse beat me to it.

Back to top

Profile PM Email

The Weeping Corpse

14

Years of Service

User Offline

Joined: 19th Sep 2011

Location: United Kingdom

Posted: 17th Nov 2012 23:20 Edited at: 17th Nov 2012 23:24

Link

Quote: "
Edit Damn! Shouldn't watch TV when composing a reply. The Weeping Corpse beat me to it.
"

he he

www.youtube.com/user/TheWeepingCorpse

www.theweepingcorpse.com

Back to top

Profile PM Email

Mr909

14

Years of Service

User Offline

Joined: 2nd Jun 2012

Location:

Posted: 17th Nov 2012 23:47

Link

OOOOOOOOOOhhh... GLOBAL returns..... shiiiiinyyy.... O.O

I wouldn't have thought of that for months.

I'll consider that approach, although my mind is already halfway done with a pros/cons list of why it might be a bad idea to do so.

In the meanwhiles, I will append that to my prior condition regarding DBElite that it allows arrays in UDTs. It would be very useful to have functions return them.

Thanks The Weeping Corpse!
Thanks Green Gandalf!

Back to top

Profile PM Email

The Weeping Corpse

14

Years of Service

User Offline

Joined: 19th Sep 2011

Location: United Kingdom

Posted: 18th Nov 2012 00:06

Link

+ Code Snippet

function IsMr909SarcasticWhenWeOnlyTriedToHelp
  local result as boolean

  if (DoBearsPoopInTheWoods = true) and (IsWaterWet = true)
    result = true
  else
    result = not false
  endif
endfunction result

www.youtube.com/user/TheWeepingCorpse

www.theweepingcorpse.com

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 18th Nov 2012 00:55

Link

I think you missed some brackets.

Back to top

Profile PM Email

Mr909

14

Years of Service

User Offline

Joined: 2nd Jun 2012

Location:

Posted: 20th Nov 2012 01:25

Link

No, Weeping. I'm not sarcastic, just extremely effeminate for a guy and incredibly peppy. I'm sorry if I offended you. I for serious do think it's shiny.

However, you did miss some brackets.

It's more like this

+ Code Snippet

#CONSTANT Mr909BeingWeird 1

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Error Message Regarding UDT's Confusing