تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال حول الFunction
#1
السلام عليكم
كما تعلمون فإن الدالة Function تقوم بإرجاع قيمة محددة /واحدة/ بعد حسابها
انا اريد ان تعطيني قيمتين Confused
مثلا انا لدي
Select Case A
Case 0.283 : N = 1 : D = 6
Case 0.565 : N = 2 : D = 6
Case 0.848 : N = 3 : D = 6
End Select
انا اريد ان يدخل البرنامج في هذا الFunction ويعطيني قيمة N و D معا
ويعود لل Sub الاساسي مع هذه القيمتين
كيف يمكن ان اجعلها تعطيني قيمتين معا ؟!!Huh
او هل هنالك دالة اخرى يمكنها عمل ذلك
وشكراً Smile
الرد
تم الشكر بواسطة:
#2
السلام عليكم...

يمكنك استعمال روتين (Sub) مع تمرير البارامترات التي تريد إرجاع قيم فيها بالمرجع (Pass by reference) و ذلك باستعمال الكلمة المحجوزة ByRef مع اسم البارامتر. مثلاً يمكن أن يكون تعريف الإجراء كالتالي:

كود :
Public Sub MyProcedure(ByVal A As Single, ByRef N As Integer, ByRef D As Integer)
    ' ...
    ' ...
    ' ...
End Sub

و عند استدعائه تقوم بتعريف متغيرين من نوع البارامترين (Integer في هذا المثال) لتمريرهما إلى الإجراء لاستقبال البيانات:

كود :
Dim X, Y As Integer

MyProcedure(0.565, X, Y)

لاحظ أن المتغير X سيأخذ قيمة N من داخل الإجراء، و المتغير Y سيأخذ قيمة D من داخل الإجراء.

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: Shaban boshi , kslawy , hoob computer
#3
شكرا كتير والله يوفقكBlush
الرد
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاتة
ممكن عمل المطلوب في حالة جعل القيم العائدة من الفانكشن مصفوفة
مثال
كود :
Public Function MyProcedure(ByVal A As Single) As String()
        Dim arry(1) As String
        arry(0) = "D"
        arry(1) = "N"
        Return arry
    End Function

وتطبيق الدالة كالتالي
كود :
Dim a(1) As String
        a = MyProcedure(0.255)
        For i As Integer = 0 To a.Length - 1
            MsgBox(a(i))
        Next
بالتوفيق
الرد
تم الشكر بواسطة: ناجي إبراهيم , Shaban boshi , hoob computer


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال بخصوص تصغير الفورم محمد اسماعيل 10 116 18-07-18, 05:57 PM
آخر رد: محمد اسماعيل
  [VB.NET] سؤال عن قاعدة البيانات من الخبراء محمد اسماعيل 2 88 17-07-18, 01:25 PM
آخر رد: محمد اسماعيل
  [VB.NET] سؤال عن الــ DataGrid m.reyati 8 100 15-07-18, 03:48 AM
آخر رد: elgokr
  [VB.NET] سؤال عن قواعد البيانات محمد اسماعيل 3 69 10-07-18, 11:01 PM
آخر رد: elgokr
  سؤال :) hichem1 1 43 09-07-18, 12:25 AM
آخر رد: elgokr
  [VB.NET] سؤال أي قواعد البيانات أنسب لمشروع يعمل علي جهاز واحد فقط dametucorazon 6 138 06-07-18, 02:54 AM
آخر رد: dametucorazon
  سؤال كيف انفذ امر من لوحة المفاتيح من دون الظغط علي اي زر علي لوحة المفاتيح alipro 0 47 29-06-18, 08:38 AM
آخر رد: alipro
  [كود] سؤال كود حفظ يوزر نيم والباسورد alswade 1 77 25-06-18, 12:40 PM
آخر رد: YousefOkasha
  سؤال اريد طريقه تفعيل الحمايه لبرنامج قمت بانشاءه وتحديد السيريال أبو علي1 3 99 24-06-18, 08:12 PM
آخر رد: sendbad100
  سؤال عن برنامج ال Code generation ُEmam 2 84 24-06-18, 03:35 PM
آخر رد: ُEmam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم