للمبتدئين: عمل الدالة العشوائية-مثال عملي

شرح مثال الدالة العشوائية

هذا مثال بسيط للمبتدئين لشرح كيفية عمل الدالة العشوائية في فيجوال بيسك.نت ويمكن استخدامه كلعبة او اداة للمسابقات :

اولا : قم بعمل مشروع جديد وسمه myRnd

2- قم بعمل زرين احدهما سمه "محاولة عشوائية" والثاني سمه "إغلاق".

3- قم بعمل label بأي مساحة .

4- اكتب الكود التالي للبرنامج:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize()

    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Label1.Text = CStr(Int(Rnd() * 10))





        If (Label1.Text = "4") Then



            Beep()

        End If

    End Sub

شرح الكود :

الدالة Rnd هي دالة تعطي عدداً عشوائياً بين صفر و واحد أي أنه سيكون في الغالب عدداً عشرياً اٌقل من الواحد ولهذا ضربنا العدد الناتج في عشرة لكي يعطينا عدداً محصور بين صفر وتسعة .

الدالة Int هي دالة لتقريب العدد الناتج فمثلاً عندما يكون العدد الناتج 4.263 ستجعله هذه الدالة "4".

الدالة Cstr وهي دالة تعني Convert to string وتعمل على تحويل العدد الناتج إلى نص يطبع على الشاشة.

الدالة Beep تصدر صوتاً

تضاف الجملة Randomize الى البرنامج وسيتم تنفيذها كلما اشتغل البرنامج وتستعمل هذه الراندومايز ساعة الجهاز لتنشئ نقطة البداية لجملة Rnd وينبغي التنبيه الى انه في حالة عدم استعمل جملة راندومايز فإننا سنفاجأ بأن البرنامج سينتج نفس سلسلة الارقام العشوائية كلما اعدنا تشغيله.

شرح البرنامج :

عند عمل البرنامج تضهر لدينا شاشة بها زران احدهما كتب عليه "محاولة عشوائية" والثاني سمه "إغلاق"

عند النقر على زر "محاولة عشوائية" ينتج البرنامج عدداً عشوائياً بين 0 و 9 وعند ما يكون العدد الناتج مساوياً للعدد "4" فإنه ينتج صوتا .