Borna66
08-11-2009, 04:39 PM
سلام
شما تو اين مثال ياد ميگيريد كه چطور از تابع Random ( تصادفي ) استفاده كنيد. تابع رندوم اينگونه كار ميكند كه از صفر تا عددي كه شما وارد ميكنيد هر دفعه يك عدد به صورت تصادفي ايجاد ميكند حالا اين عدد را ميتوان در جاهاي مختلف بكار برد و مثلا براي پخش MP3 به صورت تصادفي از دستورات زير استفاده ميشود :
s=RND(4)
If (s=0) Then
PlaySound("<SrcDir>\0.mp3")
End
If (s=1) Then
PlaySound("<SrcDir>\1.mp3")
End
If (s=2) Then
PlaySound("<SrcDir>\2.mp3")
End
If (s=3) Then
PlaySound("<SrcDir>\3.mp3")
End
If (s=4) Then
PlaySound("<SrcDir>\4.mp3")
End
اين اسكريپت ابتدا يك عدد تصادفي بين 0 و 4 بدست ميآورد و مطابق با آن عدد آهنگ مورد نظر رو پخش ميكنه. به همين سادگي.
نكته : اگر شما بخواين مثلا عدد تصادفي بين 15 و 20 رو بدست بياريد بايد از از اين دستور استفاده كنيد چون به طور پيش فرض تابع Random از صفر تا N را بدست ميآره .
n=RND(10)
n=n+15
به اين ترتيب عدد ما بين 0 تا 10 محسابه ميشه و با 15 جمع ميشه يعني بين 15 تا 25
حالا ميريم سروقت مثال :
لينك دانلود با حجم 2 كيلوبايت (http://www.lsamanl.persiangig.com/other/Program/MMB/random.zip)
اميدوارم استفاده برده باشيد...
تا بعد...!
شما تو اين مثال ياد ميگيريد كه چطور از تابع Random ( تصادفي ) استفاده كنيد. تابع رندوم اينگونه كار ميكند كه از صفر تا عددي كه شما وارد ميكنيد هر دفعه يك عدد به صورت تصادفي ايجاد ميكند حالا اين عدد را ميتوان در جاهاي مختلف بكار برد و مثلا براي پخش MP3 به صورت تصادفي از دستورات زير استفاده ميشود :
s=RND(4)
If (s=0) Then
PlaySound("<SrcDir>\0.mp3")
End
If (s=1) Then
PlaySound("<SrcDir>\1.mp3")
End
If (s=2) Then
PlaySound("<SrcDir>\2.mp3")
End
If (s=3) Then
PlaySound("<SrcDir>\3.mp3")
End
If (s=4) Then
PlaySound("<SrcDir>\4.mp3")
End
اين اسكريپت ابتدا يك عدد تصادفي بين 0 و 4 بدست ميآورد و مطابق با آن عدد آهنگ مورد نظر رو پخش ميكنه. به همين سادگي.
نكته : اگر شما بخواين مثلا عدد تصادفي بين 15 و 20 رو بدست بياريد بايد از از اين دستور استفاده كنيد چون به طور پيش فرض تابع Random از صفر تا N را بدست ميآره .
n=RND(10)
n=n+15
به اين ترتيب عدد ما بين 0 تا 10 محسابه ميشه و با 15 جمع ميشه يعني بين 15 تا 25
حالا ميريم سروقت مثال :
لينك دانلود با حجم 2 كيلوبايت (http://www.lsamanl.persiangig.com/other/Program/MMB/random.zip)
اميدوارم استفاده برده باشيد...
تا بعد...!