تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اسم ال FUNCTION كمتغير
#21
في المرفقات مشروع

اخبرني  ماهي المشكلة في المشروع

وسنحاول مساعدتك


الملفات المرفقة
.zip   xx.zip (الحجم : 1.37 ك ب / التحميلات : 36)
}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#22
المشكلة هى نفس المشاكل التى ذكرتها سابقآ

إقتباس :ولكن أين هى الFUNC
لقد كان طلبى أن لدى 2 FUNC1, FUNC2)  FUNCTIONS )
  وأريد التوجه الى الأولى FUNC1  اذا كانت NNN <= 10  أو التوجه الى الثانية FUNC2  اذا كانت غير ذلك

وضع الشرط فى كود الFUNC فى صورة Select Case بدلآ من IF ELSE

إقتباس :ولكنه وضع الشرط هنا فى كود الFUNC
لا أريد أى شرط فى أى FUNC
انما يكون الشرط فى كود الزر كما فى مثالى
}}}
تم الشكر بواسطة:
#23
انت تقوم بتمرير القيمة الى function بدون وضع اي شروط في الزر
فقط تمرير القيمة

الـ function ستقوم بالتحقق من القيمة
ومن ثم التوجه الى الموضع المناسب حسب القيمة
}}}
تم الشكر بواسطة:
#24
إقتباس :ملحوظة: فى كل FUNC سأضع كودآ كبيرآ مختلف تمامآ عن ال FUNC الأخرى
             انما هذا الكود فى مثالى مجرد مثال

من أراد أن يرفق حلآ فلا يضع فى أى FUNC أكثر من هذه الجملة
كود :
AA = 111
أو هذه الجملة
كود :
AA = 222

كما فعل الأستاذ/ أحمد منصور فى رده

ولكم ألف شكر
}}}
تم الشكر بواسطة:
#25
السلام عليكم ورحمة الله

أخي اسلام

أرجو أن يكون هذا الكود هو المطلوب
PHP كود :
Private Sub Command1_Click()

    
NNN Val(Text1.Text)

    Print 
"NNN  "NNN

    
If NNN <= 10 Then
        Call FUNC1

    
Else
        
Call FUNC2

    End 
If

    
REM"المفروض بالجملة السابقة يتوجه الى FUNC1  أو الى FUNC2  حسب قيمة المتغير FUNCC"
    
Print(AA)

End Sub


Private Sub FUNC1()

    
AA 111

End Sub


Private Sub FUNC2()

    
AA 222

End Sub 
}}}
تم الشكر بواسطة: Ahmed_Mansoor
#26
سؤالك مبهم

ولا تريد ان توضح
وترفض المساعده
}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#27
ليس هو المطلوب لأنى بذلك سأضطر لاعادة هذه الجمل فى كود الزر كلما أردت التوجه الى أى من ال2FUNCTIONS
كود :
    If NNN <= 10 Then
        Call FUNC1

    Else
        Call FUNC2

    End If

إقتباس :   وأريد التوجه الى الأولى FUNC1  اذا كانت NNN <= 10  أو التوجه الى الثانية FUNC2  اذا كانت غير ذلك
ولأنى سأحتاج الى ذلك  فى عدة مواضع فى الكود لا فى موضع واحد
  فلا أريد فى كل مرة كتابة هذا الشرط
كود :
كود :
 If NNN <= 10 Then FUNC1 Else: FUNC2
وانما أريد فى كل مرة كتابة جملة واحدة
كود :
كود :
FUNCC
على أن يكون FUNCC متغير يعبر عن اسم الFUNCTIONS  يحسب مرة واحدة فى بداية الكود

----------------------------------------------------------------------------------------------------------------------------------------------

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

ولا تريد ان توضح
وترفض المساعده
ما فى سؤالى أى ابهام
سؤالى واضح وضوح الشمس
والحمد لله قد أجاب عليه الأستاذ/ أحمد منصور
}}}
تم الشكر بواسطة:
#28
السلام عليكم ورحمة الله

أخي اسلام

أرجو أن يكون هذا الكود هو المطلوب
PHP كود :
Private Sub Command1_Click()

    
NNN Val(Text1.Text)

    Print 
"NNN  "NNN

    Call FUNC
()

    
REM"المفروض بالجملة السابقة يتوجه الى FUNC1  أو الى FUNC2  حسب قيمة المتغير FUNCC"
    
Print(AA)

End Sub


Private Sub FUNC()

    If 
NNN <= 10 Then
        Call FUNC1
()

    Else
        
Call FUNC2()

    
End If

End Sub

Private Sub FUNC1()

    
AA 111

End Sub


Private Sub FUNC2()

    
AA 222

End Sub 
}}}
تم الشكر بواسطة:
#29
على حسب كلامك في اول بوست انك تريد الفنكشن تكون دايناميك اتبع الاتي
PHP كود :
Option Explicit
'ÇÓáÇã ÔæÝ ÍÊì ÇáæÙíÝÉ Êßæä ÏíäÇãíßíÉ ÇÊÈÚ ÇáÊÇáí
Public Function Pr(ByVal x As Double)
'
ÇÓã ÇáæÙíÝÉ
'Pr
'
ÇáÈÇÑÇãíÊÑ ÇáãÊÛíÑ áÚãá ÇáæÙíÝÉ åæ
'x
æäæÚå åäÇ ÑÞã ÏÈá
If 10 Then
MsgBox 
" your number less than 10"
ElseIf 10 Then
MsgBox 
"your number equal 10"
ElseIf 10 Then
MsgBox 
" your number  begger than 10"
End If
End Function
Private 
Sub Command1_Click()
Pr Val(Text1.Text)
End Sub 

اذا توضح اكثر او تضع مثال تساعد نفسك أكثر في ايجاد الحل
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
}}}
تم الشكر بواسطة:
#30
السلام عليكم

ربما يكون التالي اقرب ما يكون الى ما تريد

كود :
Dim NNN, AA As Integer
Private Sub FUNC1()
AA = 111
End Sub
Private Sub FUNC2()
AA = 222
End Sub
Private Sub Command1_Click()
NNN = Val(Text1.Text)
     Print "NNN  "; NNN
     FUNCC
     Rem"ÇáãÝÑæÖ ÈÇáÌãáÉ ÇáÓÇÈÞÉ íÊæÌå Çáì FUNC1  Ãæ Çáì FUNC2  ÍÓÈ ÞíãÉ ÇáãÊÛíÑ FUNCC"
     Print AA
End Sub
Function FUNCC()
     If NNN <= 10 Then
       Call FUNC1
       Exit Function
      Else
       Call FUNC2
       End If
End Function

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


الملفات المرفقة
.rar   TEST.rar (الحجم : 1.25 ك ب / التحميلات : 26)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

}}}
تم الشكر بواسطة:


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


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