Erel thank you
but i'm beginner i dont understand this example
can you put to me simple example code to Generates number from 1-10
and dosent Repeat any number
thanks Again
Sub Activity_Create (FirstTime As Boolean)
Dim numbers(10) As Int
'put numbers 1 - 10 in the array
For i = 0 To 9
numbers(i) = i + 1
Next
ShuffleArray(numbers)
For i = 0 To 9
Log(numbers(i)) 'print the numbers to the log
Next
End Sub
Sub ShuffleArray(arr() As Int)
For i = arr.Length - 1 To 0 Step -1
Dim j, k As Int
j = Rnd(0, i + 1)
k = arr(j)
arr(j) = arr(i)
arr(i) = k
Next
End Sub
Sub Button1_Click
'(put the code directly in the button)
Dim numbers(10) As Int
'put numbers 1 - 10 in the array
For i = 0 To 9
numbers(i) = i + 1
Next
ShuffleArray(numbers)
For i = 0 To 9
Log(numbers(i)) 'print the numbers to the log
Next
'goes here:
Label1.Text=numbers(0)
Label2.Text=numbers(1)
Label3.Text=numbers(2)
'....
'etc
End Sub
Sub ShuffleArray(arr() As Int)
For i = arr.Length - 1 To 0 Step -1
Dim j, k As Int
j = Rnd(0, i + 1)
k = arr(j)
arr(j) = arr(i)
arr(i) = k
Next
End Sub