درس:الدرس الثاني في استعمال الدالات الفرعية

السلام عليكم ورحمة الله وبركاته

سوف ابدء الان بالدرس الثاني من سلسلة استعمال الدوال الفرعية

اخواني اليوم سوف اشرح كيفية عمل دوال فرعية يمكن تمرير الوسائط لها يعني في الدرس القادم اعطيتكم مثال وكان الدالة المبيتة UCase وهذه الدالة تاخذ وسيطة واحدة من نوع string (سلسلة)

طيب ما فكرت اخي انك تعمل دالة تستطيع ان تمرر لها الرقم الذي تريده وهي تقوم بعمل عمليات عليه؟؟

انظر الى الدالة السابقة التي عملناها في الدرس السابق كانت

Sub Clear()
txt1.text=""
txt2.text=""
txt3.text=""
txt4.text=""
.......
txt100.text=""
End Sub

لنفترض انك تريد عمل نفس هذه الدالة لكن بدل من تفريغ الحقول تعبء الحقول برقم ان تكتبه داخل مربع نص؟ ماذا سوف تفعل؟؟؟

انا بقولك راح نعرف متغير عددي في هذه الدالة يقوم باخذ القيمة الموجودة في مربع النص لكن اين سوف نضع هذا المتغير؟؟؟

اذا وضعنا بين ال Sub Clear() و الend sub راح يكون المتغير خاص لهذه الدالة

طيب راح نحطة بين الاقواس انظر للدالة التالي:

Sub Clear(ByVal a as integer)
txt2.text=a
txt3.text=a
txt4.text=a
.......
txt100.text=a
End Sub

هل لاحظت اين وضعنا المتغير؟؟

حسنا راح تتسائل لماذا وضعنا ByVal :وضعنا هذه الكلمة الكي ياخذ قيمة المتغير (على كل حال اذا ما كتبتها الvb.net بيكتبها لحالو)

و اظن ان الجميع بيعرف ما معنى a as integer

الان روح لعند الزر واكتب اسم الدالة وهي في المثال Clear

وبعده اضغط مسافة راح يكتبلك الوسائط المطلوبة لهذه الدالة اكتب القيمة التي تريدها

انظر الى هذا الكود

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

وفي هذا الكود راح ياخذ القيمة الموجودة في Textbox1 ويوزعها على جميع الحقول

واذا اردت ان تضع اكثر من متغير في الدالة تحط (, فاصلة)بين كل متغير انظر الى الدالة التالية

Sub add(ByVal a As String, ByVal b As Integer)
       TextBox2.Text = a+b
    End Sub

وفي هذه الدالة راح يكون قيمة ال textbox2 مجموع a و b

اتمنا ان تكونو استفدتم من هذا الدرس وارجو ان تعطويني اراكم

وانا جاهز ل توضيح اي نقطة مش مفهومة :D

NO BODY CAN BEAT ME