هذا المثال يستخدم الكائن Random الذي يقوم بتوليد الأرقام العشوائية
1- تقوم بتعريف متغير من نوع الكائن
Dim ObjRnd As System.Random = New System.Random
2- ثم تقوم باستخدام الدالة Next و هي الدالة المسئولة عن توليد الأرقام العشوائية في الكائن Random
و نقوم بعرض القيمة في الأداة TextBox و نضع الكود التالي في مكان الكود الخاص بزر الأمر Button
(TxtResult.Text = ObjRnd .Next(5,100 + 1
حيث يقوم هذا المثال بتوليد الأرقام من 1 إلى 100
===================================================================
الصيغة العامة للدالة Next
1-
( القيمة الكبرى +1,القيمة الصغرى) Next
و هذه الصيغة هي المستخدمة في المثال
===========================
2-
(القيمة الكبرى +1) Next
في هذه الصيغة سيتم توليد الأرقام العشوائية من الصفر إلى القيمة الكبرى المحددة حيث سيعتبر أن القيمة الصغرى هي الصفر
============================
3-
() Next
في هذه الصيغة سيتم توليد الأرقام العشوائية من الصفر إلى أقصى قيمة في النوع Integer ب4ــايت
حيث أن القيمة الصغرى هي الصفر و القيمة الكبرى هي أكبر قيمة يمكن أن تتحملها الدالة و هي أكثر من 2 مليار تقريباً.
================================================================ تم
أحمد بوجلاوي