ارجو المساعدة فى تحويل السطرين السابقين الى vb.net

[smsma2010]

مطلوب من السطر الاول توليد رقم عشوائى بين الصفر والقيمة العظمى(Rand_Max( ))
floating point بحيث يكون

#define getSRand() (float)rand()/(float) (Rand_Max())


مطلوب من السطرالثانى جعل هذا الرقم عدد صحيح بين ال

x ,0

[(() LEFT] #define getRand(x) (int)(x*getSRand
[/LEFT]
ارجو المساعدة فى تحويل السطرين السابقين الى vb.net

[Desert_Eagle]

أخي أظن أن كودك ناقص , فم تقم تعرف كل من :

getSRand

getRand

Rand_Max

عموماً إذا أردت إنتاج رقم عشوائي بالفي بي دوت نت , فإستخدم الكائن Rabdom

Dim rnd As Random = New Random
MessageBox.Show(rnd.Next(0, 10)) ' لأنتاج رقم صحيح عشوائي بين الصفر والعشرة
MessageBox.Show(rnd.NextDouble) ' عشوائي بين الصفر والواحد floating point لإنتاج رقم

يمكن تغيير القيمتين 0 و 10 وتضع أدنى وأعلى قيمة تريد إنتاج الرقم العشوائي بينهما

..

[مشاكس البحرين]

مشكوووووووووووووووووور على الموضوع .......

يعطيك الف عافية على المجهود المبذول ..."

تحياتي ......... مشاكس البحرين