شما این محصولات را انتخاب کرده اید

سبد خرید

شناسه پست: 1448
بازدید: 371

سلام دوستان یه بار دیگه اومدیم با یه تابع کاربردی دیگه بیسیک فور اندروید با این تابعی که براتون اوردم میتونید ایتم های لیست خودتون رو به صورت رندوم بهم ریخته کنید

تابع :

Sub ShuffleList(pl As List) As List
  For i = pl.Size - 1 To 0 Step -1
    Dim j As Int
        Dim k As Object
    j = Rnd(0, i + 1)
    k = pl.Get(j)
    pl.Set(j,pl.Get(i))
    pl.Set(i,k)
  Next
    Return pl
End Sub

برای استفاده از تابع بالا از کد زیر استفاده کنید

list1=ShuffleList(list1)

برای مشاهده دیگر توابع کاربری بیسک فور اندروید کلیک کنید