الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة غريبة

بدأه يسر في 23 فبراير 2012 · 2 رد · 633 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي مشكلة غريبة و هي كالتالي:

انا عندي برنامج يقوم برسم عشر دوائر في صف واحد

المفروض ان كل دائرة لها لون مختلف يتم اختيارة بطريفة عشوائية

لكن كل الدوائر تظهر بلون واحد عندما انفذ

لكن عندما اتتبع البرنامج بال

step in

تظهر الكرات بألوان مختلفة كما اريدها بالضبط

فهل ممكن حد يقول لي اية المشكلة و كيف احلها

ملاحظة:المرفقات فيها البرنامج

Bubbles.zip

سبحان الله و بحمده سبحان الله العظيم

#2

فقط انقل السطر هذا الى خارج الدالة وضعه ضمن المتغيرات العامة

  Dim random As Random = New Random()

وستعمل الدالة بكل كفاءة

مثالك بعد التعديل

Bubbles.rar

1

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#3

السلام عليكم

شكرا جزيلا اخي اشتغلت

:)

سبحان الله و بحمده سبحان الله العظيم

مواضيع مشابهة