كيفيه استخدام النرد

randomize
dim result as integer
result = cint(rnd(1)*5)+1

هذا الكود ينفع لإنتاج أي أرقام عشوائية بهذه الطريقة

int(rnd(1)*upper)+lower

حيث lower هو القيمة الصغرى و upper هو القيمة الكبرى مطروح منها القيمة الصغرى.

هالكود صح مفيد وشغال

بس انا ابي اسوي مثل الزهره بحيث اذا ضغطت زر تطلع لي رقم عشوائي على شكل زهره ابي مثل شكلها

اسويها في مربع صوره ؟؟ والا كيف ؟

ستين ألف طريقة :)

ممكن تعمل ستة صور لوجوه النرد المختلفة و تظهر الصورة المناسبة في PictureBox

شكرا لك

بس ممكن طريقه وحده من هالستين ؟؟ مع شرحها اذا تكرمت :)

وشاكره لك مره ثانيه :)

كما قلت سابقاً اصنعي ست صور لوجوه النرد المختلفة لنقل مثلاً:

dice1.gif

dice2.gif

dice3.gif

dice4.gif

dice5.gif

dice6.gif

و لنقل لديك PictureBox اسمه DiceBox

نكمل من السطر الذي كتبته بالأول:

Select Case result

Case 1
Dicebox.Image="dice1.gif"
Case 2
Dicebox.Image="dice2.gif"
.
.
.
.

و هكذا

الللله ضبطتتتتتت معي شكرا شكرااا

وترى بصقعكم بسؤال ثااني تكملت الزهر هههههههههه :)

شوكرا لك مره ثانيه