is this example destinated for a class for converting into thinbasic?

[largo_winch]

this code example I've found from freebasic manual. I'm only asking if this example has to be translated as class/method ? or there's another way (oop like) to convert this example?

   ' Empty GUI script created on 01-31-2013 13:26:32 by  (thinAir)
 Uses "console"
 

 Type sample
 

   Texty As String
 

   Declare Constructor ()
   Declare Constructor ( a As Integer )
   Declare Constructor ( a As Single  )
   Declare Constructor ( a As String, b As Byte )
 

   Declare Operator Cast () As String
 End Type
 

 Constructor sample ()
   Print "Konstruktor sample ()"
   Print
   THIS.Texty = "Leer"
 End Constructor
 

 Constructor sample ( a As Integer )
   Print "Konstruktor sample ( a As Integer )"
   Print "  a = "; a
   Print
   THIS.Texty = Str(a)
 End Constructor
 

 Constructor sample ( a As Single )
   Print "Konstruktor sample ( a As Single )"
   Print "  a = "; a
   Print
   THIS.Texty = Str(a)
 End Constructor
 

 Constructor sample ( a As String, b As Byte )
   Print "Konstruktor sample ( a As String, b As Byte )"
   Print "  a = "; a
   Print "  b = "; b
   Print
   THIS.Texty = Str(a) + "," + Str(b)
 End Constructor
 

 

 Operator sample.Cast () As String
   Return THIS.Texty
 End Operator
 

 Print "Erstelle x1" ' (build x1)
 Dim x1 As sample
 

 Print "Erstelle x2" ' (build x2)
 Dim x2 As sample = 1
 

 Print "Erstelle x3" ' (build x3)
 Dim x3 As sample = 99.9
 

 Print "Erstelle x4" ' (build x4)
 Dim x4 As sample = sample( "aaa", 1 )
 

 Print "Values:"
 Print "  x1 = "; x1
 Print "  x2 = "; x2
 Print "  x3 = "; x3
 Print "  x4 = "; x4
 'Sleep
 WaitKey

bye, largo

[ErosOlmi]

thinBasic has no OOP constructs so you must go with usual procedural programming way

Uses "console"

Type sample
  Texty As String
End Type

PrintL "Erstelle x1" ' (build x1)
Dim x1 As sample

PrintL "Erstelle x2" ' (build x2)
Dim x2 As sample
x2.Texty = 1

PrintL "Erstelle x3" ' (build x3)
Dim x3 As sample
x3.Texty = 99.9

PrintL "Erstelle x4" ' (build x4)
Dim x4 As sample
x4.Texty = "aaa" & "," & 1

PrintL "Values:"
PrintL "  x1 = ", x1.Texty
PrintL "  x2 = ", x2.Texty
PrintL "  x3 = ", x3.Texty
PrintL "  x4 = ", x4.Texty
'Sleep
WaitKey

[peter]

In comparison to this OOP crap, your demo is a blessing!
Well done, Eros.

[largo_winch]

thank you eros for your answer, never I've seen before such a silly construct like in freebasic for shorten and cutting so simple into thinbasic! bye, largo

[ErosOlmi]

I think that FreeBasic example was not created to complicate something simple but to show how to construct a FreeBasic Class with different Constructors overloading and class casting.

Is indeed quite interesting and shows of a possible way to implement OOP.