[اسلام الكبابى]

إقتباس :سؤالك مبهم

ولا تريد ان توضح
وترفض المساعده

إقتباس :أخي اسلام
أرجو أن يكون هذا الكود هو المطلوب

تماااااااااااااااام   بارك الله فيك
وهذا عضو آخر (غير الأستاذ/ أحمد منصور) فهم السؤال وأجاب عليه اجابة أخرى

إقتباس :على حسب كلامك في اول بوست انك تريد الفنكشن تكون دايناميك اتبع الاتي

ال FUNC مليئة بالشروط

إقتباس :من أراد أن يرفق حلآ فلا يضع فى أى FUNC أكثر من هذه الجملة
كود :

كود :

AA = 111

أو هذه الجملة
كود :

كود :

AA = 222

[مهموم]

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

أخي اسلام

جواب أخي أبو ليث هو نفس طلبك أيضاً فبارك الله فيه

[أبو عمر]

انت بحاجة لمساعدة في حل مشكلتك والا تختبر امكانياتنا يا اسلام؟

[abulayth]

السلام عليكم

الصراحة انا سعيد جدا بما وصلت اليه الامور فتسابق الاعضاء الى مساعدة الاخ اسلام هو مثال على شهامة العربي في اغاثة الملهوف وصاحب الحاجة

يعطيكم العافية

[اسلام الكبابى]

إقتباس :اذا توضح اكثر او تضع مثال تساعد نفسك أكثر في ايجاد الحل

هذا مثال آخر يوضح المطلوب

PHP كود :

Public Sub FUNC1()
     Rem"-------هنا سنكتب أى أكواد لاعلاقة له بالمتغيرNNN-------"
End Sub

Public Sub FUNC2()
     Rem"-------هنا سنكتب أى أكواد لاعلاقة له بالمتغيرNNN-------"
End Sub

Private Sub Command1_Click()
NNN = Val(Text1.Text)
      Print: Print "NNN  "; NNN
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
      
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
      
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
      
      If NNN <= 10 Then FUNC1 Else: FUNC2
     
     Rem"-------هنا ستكتب أى أكواد لا علاقة لها بالسؤال-------"
End Sub 


[الشاكي لله]

انا لا اعلم ما القصة دخت الصراحة ههههه

لكن فهمت شغلة وحدة انك تبي تستعدي function باعطاء الاسم كـ (string) وليس بالاستدعاء المباشر

اذا كان كذلك عندك الدالة CallByName :

PHP كود :

Dim Math As New MathClass 'الكلاس الي فيه الدالة'
Dim result As Integer = CallByName (Math, "func1" , Microsoft.VisualBasic.CallType.Method, "parameter") 


غير ذلك الاخوان ماقصروا معاك


موفقين

[اسلام الكبابى]

إقتباس :غير ذلك الاخوان ماقصروا معاك

أنا ماقلت ان الاخوان قصروا
الاخوان جابوا حلين مش حل واحد كمان

إقتباس :أستاااااااذ  .   فعلآ هذا هو الحل
بارك الله فيك

إقتباس :تماااااااااااااااام   بارك الله فيك
وهذا عضو آخر (غير الأستاذ/ أحمد منصور) فهم السؤال وأجاب عليه اجابة أخرى

[الشاكي لله]

(25-10-15, 12:28 AM)اسلام الكبابى كتب :

إقتباس :غير ذلك الاخوان ماقصروا معاك

أنا ماقلت ان الاخوان قصروا
الاخوان جابوا حلين مش حل واحد كمان

ما شاء الله تركت الرد كامل وركزت على هالجملة ..

هل انا قلت ان الاخوان قصرو معاك !

انا قصدي من هالجملة ان هذا الحل هو الوحيد الي اقدر اعطيك اياه حسب فهمي للسؤال
وان الاخوان ماقصروا معاك واعطوك كل الحلول المتاحة في المجرة . فقط


على العموم موفق