help please, variable definition

Hi,

please, can you tell if I made a mistake ?

Attachment 10090

Code:

---

 
uses "CONSOLE"

#Include "easing4.tbasicu"

dim etest as easing


WaitKey

---

Attachment 10091

Code:

---

uses "math"



Type easing

  totalDuration as DWORD Value = 0
 
end type

---

I think it's anormal I get this error :

Quote:

---

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

---

Hi Sebastian,

you cannot give member of UDT a default value.

This is okay:

Code:

---

Type easing
 
  totalDuration as DWORD
 
end type

---

This is not okay:

Code:

---

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:

Code:

---

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

Quote:

---

Originally Posted by Petr Schreiber

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.

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?

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

Code:

---


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"))

---