help please, variable definition

[DirectuX]

Hi,

please, can you tell if I made a mistake ?

testagain0.tbasic

  
uses "CONSOLE"

#Include "easing4.tbasicu"

dim etest as easing


WaitKey

easing4.tbasicu

uses "math"



Type easing

  totalDuration as DWORD Value = 0
  
end type

I think it's anormal I get this error :

Code=173
Description=TYPE error: missing AS clause in element definition
Line=7
LineCode=TOTALDURATION AS DWORD VALUE = 0
Token=TOTALDURATION
Additional=

[Petr Schreiber]

Hi Sebastian,

you cannot give member of UDT a default value.

This is okay:

Type easing
 
  totalDuration as DWORD
   
end type

This is not okay:

Type easing
 
  totalDuration as DWORD VALUE 0
   
end type

totalDuration will be, as all numeric types, initialized to 0 by default.

I understand it would be nice to initialize some non-default values, but it is not possible at the moment.

There are some "close" solutions, like:

uses "console"


type easing


  totalDuration as dword


  function _create()
    me.totalDuration = 5 ' some default value
  end function
end type


dim e1 as easing ' -- will initialize with constructor, whoa!
printl e1.totalDuration


waitkey

Petr

[DirectuX]

I understand it would be nice to initialize some non-default values, but it is not possible at the moment.

There are some "close" solutions, like:

Right Petr ! I miss this help page about _create()

This is indeed the good practice.

But, again, the error description is very misleading.

Thanks Petr.

[NuddNog]

Is it accurate to say that the error description you received was misleading, and were you able to resolve the issue with Petr's suggestion regarding the _create() function?

[ReneMiner]

You can : initialize static udt-elements (these are the same to all udt-members)

Restriction: only standard-types can be static.

And the other thing - initializing udt-variables on _Create - seems there was a change - i had a strange error-message explaining to me how i have to initialize the array using Dim X() as Whatever= val1,val2,val3,...
i am not sure if i understood correct but you can easily reproduce the error

Type tTest
X as Long
Function _Create(byval sName(any) as String)
msgbox "Names received : " & $ crlf join$(sName, $crlf)
End function
End Type

Dim abc as tTest(("Peter", "Paul", "Mary"))