تولید اعداد 1 تا 10 در تکست باکس به صورت راندم

[ravegoat]

با سلام!

دوست گرامي عضويت شما رو در PCN تبريك مي گم.

علاوه بر اون راهي كه دوستمون فرمودند مي تونيد يه آرايه تعريف كنيد كه اعداد 1 تا 9 رو در بر مي گيره. در ادامه يك حلقه ايجاد كنيد كه 8 بار تكرار ميشه و شمارنده ي اون از مقدار 8 شروع ميشه و با گام -1 تا عدد 1 ادامه پيدا مي كنه. درون حلقه يه متغير Random ايجاد كنيد كه هربار عددي بين 1 تا مقدار شمارنده رو برگردونه و اين عدد رو به انديس آيتم هاي اون آرايه اي كه در ابتدا تعريف كرديد نسبت بديد. براي اينكه كار درست پيش بره بايد در هر بار اجراي حلقه، مقدار آيتم با انديس شمارنده ي آرايه رو در داخل آيتم با انديس مقدار برگشتي متغير تصادفي قرار بديد. سورس VB.Net شو در زير قرار دادم:

 Dim nolist As New ArrayList
Dim randomno As New Random
Dim tempno As Integer

For i As Byte = 1 To 9
    nolist.Add(i)
Next

For i As Integer = 8 To 1 Step -1
    tempno = randomno.Next(0, i)
    MsgBox(nolist(tempno))
    nolist.Item(tempno) = nolist.Item(i)
Next

موفق باشيد
آرمينبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید