السلام عليكم...
هذا في الحقيقة إجابة عن سؤال لأحد الإخوة في مشاركة أخرى، و لكن أحببت أن أضعه في موضوع لوحده حتى يكون كالمرجع.
في المرفقات وحدة برمجية (Module) باسم MShuffling - ضمن مشروع مثال - تحتوي على إجراء و دالتين للحصول على نطاق من القيم الملخبطة (مرتبة عشوائياً) أو تمرير مصفوفة ذات قيم و إعادة نسخة ملخبطة منها.
* الإجراء ShuffleArray يعمل على لخبطة قيم المصفوفة الممررة نفسها.
* الدالة GetShuffledCopyOfArray تعيد نسخة ملخبطة من المصفوفة الممررة.
* الدالة CreateShuffledArray تعيد مصفوفة ملخبطة من قيم محصورة بين قيمتين ممررتين.
= في المشروع أيضاً نافذة بثلاثة أزرار لتجربة الإجراء و الدالتين.
= يحتوي الكود على بعض التوضيحات باللغة العربية.
= الأكواد مبنية على خوارزمية "فيشر - ياتس" (Fisher–Yates)، و النسخة المعدلة منها لـ "دورستنفيلد" (Durstenfeld).
نرجو الاستفادة و السلام.