نوع القيمه الراجعه هنا هى decimal
واسمحولى اديكم المثال ده عشان ننهى الموضوع
Function Area(ByVal RAdius As Single) As Integer
Const Pi As Single = 22 / 7
Dim Res As Single
RAdius = TextBox1.Text
Res = Pi * RAdius ^ 2
Return Res
End Function
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = Area(TextBox1.Text)
End Sub
اذا ادخلنا اى قيمة فى نصف القطر نلاحظ ان القيمه الراجعه تكون عدد صحيح فقط حسب نوع بيانات الداله
والخلاصه انه فى حالة اعلان القيمه الراجعه بنوع بيانات اخر غير الموجود فى تعريف الداله يتم العمل بنوع البيانات الثانى فى الكود الذى هو فى المثال SIngle حتى نصل إلى استدعاء الداله لاخذ القيمه الراجعه منها
يتم تفعيل نوع البيانات الخاص بالداله الوجود فى اعلان الداله وهو هنا INteger
هذا بالنسبه لمن يريد الفهم اما بالنسبه لابنائنا الطلاب فاجابة اى سؤال يأتى فى امتحان هو نوع البيان الموجود فى تعريف الداله
|