آموزش تابع Random

Saman · Jan 28, 2006

سلام
شما تو اين مثال ياد مي‌گيريد كه چطور از تابع 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 كيلوبايت

اميدوارم استفاده برده باشيد...

تا بعد...!

silvercover · Jan 29, 2006

سامان جان ممنون. اموزش مفیدی هست.

simpatico · Jan 30, 2006

ممنون...

MEHDICO-CO · Feb 7, 2006

Saman · Feb 7, 2006

بعضي وقت‌ها لازم ميشه مثلا براي پخش موزيك

mohsensemsarpour · Feb 7, 2006

مفید بود ممنون .

alireza3260 · Jun 26, 2006

سلام محسن جان
اگه ممكن ادرس ايملت رو به طور كامل بذار تا امكان برقراري تماس رو داشته باشم
مرسي

milyooner · Jul 27, 2008

با سلام
اگر بخوام یه تابع رندوم ایجاد کنم که موارد تکراری رو نشون نده باید چیکار کنم؟!

مثلا 50 تا عدد دارم میخوام 20 تا رندوم به من نشون بده و زمانی که عدد 20 رو نشون داده بره تو یه صفحه دیگه بگه 20 بار این عمل انجام شده.

Ehssan_it · Jul 27, 2008

جناب milyoone اگه به تاریخ پست یه نگاه بندازین بد نیست ( البته این تذکر کار من نیست )
این که رفتین جستجو کردین خوبه ولی اگه سوال داشتین یک پست جدید میزدین که بحث قدیمی بالا نمیومد بهتر بود

milyooner · Jul 27, 2008

احسان گرامی دوست عزیز از تذکر شما ممنونم میدونمم تاریخ پست قدیمی هست ولی وقتی تاپیکی در این زمنیه هست بنده فکر کردم سئوالم را که در رابطه با همین موضوع هست در همینجا مطرح کنم.

از لطف شما هم سپاسگزارم.

عذر خواهی بنده را پذیرا باشید.