array question multiple assignment

[Lionheart008]

it's possible to convert this array example from oxygen module to thinbasic?



Uses "console" 'multiple assignment
Dim a(10) As Long
'Dim a(10) As Long => (2,4,6,8,10,12,42,99) ' that's possible to convert to thinbasic?
Dim s As String
s = a(2) + a(5) 'result: 14
Print "answer is: " + s + a(6) 'result: 14 12
WaitKey

thanks for help in advance, good week-end, frank

[Petr Schreiber]

Hi,

it is basically the same, instead of <= you would use just = and ommit the parenthesis.

Way #1


Dim a(10) As Long = 2, 4, 6, 8, 10, 12, 42, 99


Way #2


Long a(10) = 2, 4, 6, 8, 10, 12, 42, 99


Way #3 - after array is declared


a(1) = 2, 4, 6, 8, 10, 12, 42, 99


There is problem in your code at line:


Dim s As String
s = a(2) + a(5) ' result: 14

... this will not result in 14, because you assign to string. That means the array values will be converted to string first, behaving as "4" + "10", resulting in "410".

To do what you need, you should use:


Dim s As String
s = Format$(a(2) + a(5)) 'result: 14



Petr

[Lionheart008]

thank you petr for answer and explanationes :) that's working fine. my mistake don't using format$ for adding strings, I've forgot that.. I have tried making some exercises with combobox/listbox for my fundialox module and wanted to work with alternative way don't using "array assign" but that's nearly impossible after first experiments. but I will see. have a nice day and good luck for your studying time with your pretties robots.

regards, frank