منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الحصول على نطاق من القيم الملخبطة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
[COLOR="#0000CD"]السلام عليكم...

في المرفقات وحدة برمجية (Module) باسم MShuffling - ضمن مشروع مثال - تحتوي على إجراء و دالتين للحصول على نطاق من القيم الملخبطة (مرتبة عشوائياً) أو تمرير مصفوفة ذات قيم و إعادة نسخة ملخبطة منها.

* الإجراء ShuffleArray يعمل على لخبطة قيم المصفوفة الممررة نفسها.
* الدالة GetShuffledCopyOfArray تعيد نسخة ملخبطة من المصفوفة الممررة.
* الدالة CreateShuffledArray تعيد مصفوفة ملخبطة من قيم محصورة بين قيمتين ممررتين.

= في المشروع أيضاً نافذة بثلاثة أزرار لتجربة الإجراء و الدالتين.

= يحتوي الكود على بعض التوضيحات باللغة العربية.

= الأكواد مبنية على خوارزمية "فيشر - ياتس" (Fisher–Yates)، و النسخة المعدلة منها لـ "دورستنفيلد" (Durstenfeld).

نرجو الاستفادة و السلام.
[/COLOR]
السلام عليكم

- ماشاء الله عليك أخي ناجي ، مثال متقدم ومفيد وجميل وراقي من شخص مبدع وراقي . الله يعطيك العافيه .

- تحياتي لك .
السلام عليكم...

أشكرك أخي VB_Coder... و لا يمكن لأحد أن يتجاهل إبداعاتك أنت فيما تقدمه من مواضيع و إجابات.

سلام.