تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال حول البحث ahmadpal 6 41 منذ 35 دقيقة مضت
آخر رد: ahmadpal
  سؤال في حماية البرنامج Emam emam 2 36 منذ 5 ساعة مضت
آخر رد: fouadhdfouad
Wink سؤال عن خصائص الكومبوبكوس ahmadpal 1 35 19-03-19, 10:42 PM
آخر رد: 5000
  سؤال : كيفية اختيار لون للخلية redazero 2 87 18-03-19, 02:11 PM
آخر رد: 5000
Wink [سؤال] سؤال حول انشاء مجلد ونسخ ملفات الى هذا المجلد ahmadpal 2 64 18-03-19, 12:39 AM
آخر رد: ahmadpal
Wink [سؤال] سؤال حول البحث ahmadpal 6 124 17-03-19, 11:28 PM
آخر رد: ahmadpal
  [سؤال] سؤال حول كود جمع سعر بضاعة cayo12300 2 78 17-03-19, 02:25 PM
آخر رد: Amir_Alzubidy
  [كود] سؤال حول عشوائية الصور لسه مبتدئ 5 129 17-03-19, 09:52 AM
آخر رد: لسه مبتدئ
  سؤال فى عرض برنامج فيجوال احمد خطاب 0 44 17-03-19, 01:10 AM
آخر رد: احمد خطاب
  سؤال فى الفيجوال والاكسيس احمد خطاب 6 107 17-03-19, 01:09 AM
آخر رد: احمد خطاب

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


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