عدم عملكرد صحيص تابع ()Rnd

[soroush_k12]

با سلام خدمت دوستان
من در فرمم نياز دارم كه هر بار كه كاربر برنامه را باز ميكند يك عدد تصادفي نشان داده شود .
ظاهرا براي اين كار بايد از تابع Rnd استفاده كرد ولي عمكرد اين تابع در نوع خود بسيار عجيب است .
ترتيب اعداد توليد شده در همه دفعات استفاده يكسان است مثلا هميشه اولين عدد توليد شده 0.7055475 و عدد بعدي 0.533424 و ... است.
با چه روش يا ترفندي ميتوان اعداد تصادفي واقعي توليد كرد بطوري كه اولين عدد هميشه يكسان نباشد؟؟؟!!!

[soroush_k12]

خودم يك جورايي راهشو پيدا كردم. استفاده از حلقه اي براي تكرار تابعRnd باعث ميشه كه خروجيش هر بار تغيير كنه البته باعث مكث كوچكي در برنامه ميشه

t1 = Timer
Do While Timer - t1 < 0.5
x = Fix(Rnd * 100000)
Loop

[Abbas Amiri]

قبل از استفاده از تابع Rnd از Randomize استفاده کنید


Dim MyValue
Randomize ' Initialize random-number generator
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.

[cabok dast]

آقا من متوجه نشدم با عرض پوزش :) . میشه یکی بیشتر توضیح بده ؟
مثلا علان من این طوری ایجاد میکنم عدد تصادفی رو (Rnd * 13200) اما چه طوری از تابع Randomize استفاده کنم ؟

[Mori Bone]

آقا من متوجه نشدم با عرض پوزش :) . میشه یکی بیشتر توضیح بده ؟
مثلا علان من این طوری ایجاد میکنم عدد تصادفی رو (Rnd * 13200) اما چه طوری از تابع Randomize استفاده کنم ؟

Randomize رو در بالای (Rnd * 13200) قرار دهید