منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اسم ال FUNCTION كمتغير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : اسم ال FUNCTION كمتغير (/showthread.php?tid=13573)

الصفحات: 1 2 3 4

RE: اسم ال FUNCTION كمتغير - administrator - 24-10-15

في المرفقات مشروع

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

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


RE: اسم ال FUNCTION كمتغير - اسلام الكبابى - 24-10-15

المشكلة هى نفس المشاكل التى ذكرتها سابقآ

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

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

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


RE: اسم ال FUNCTION كمتغير - administrator - 24-10-15

انت تقوم بتمرير القيمة الى function بدون وضع اي شروط في الزر
فقط تمرير القيمة

الـ function ستقوم بالتحقق من القيمة
ومن ثم التوجه الى الموضع المناسب حسب القيمة

RE: اسم ال FUNCTION كمتغير - اسلام الكبابى - 24-10-15

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

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

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

ولكم ألف شكر

RE: اسم ال FUNCTION كمتغير - مهموم - 24-10-15

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

أخي اسلام

أرجو أن يكون هذا الكود هو المطلوب
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 


RE: اسم ال FUNCTION كمتغير - administrator - 24-10-15

سؤالك مبهم

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

RE: اسم ال FUNCTION كمتغير - اسلام الكبابى - 24-10-15

ليس هو المطلوب لأنى بذلك سأضطر لاعادة هذه الجمل فى كود الزر كلما أردت التوجه الى أى من ال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  يحسب مرة واحدة فى بداية الكود

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

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

ولا تريد ان توضح
وترفض المساعده
ما فى سؤالى أى ابهام
سؤالى واضح وضوح الشمس
والحمد لله قد أجاب عليه الأستاذ/ أحمد منصور

RE: اسم ال FUNCTION كمتغير - مهموم - 24-10-15

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

أخي اسلام

أرجو أن يكون هذا الكود هو المطلوب
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 


RE: اسم ال FUNCTION كمتغير - أبو عمر - 24-10-15

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

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

RE: اسم ال FUNCTION كمتغير - abulayth - 24-10-15

السلام عليكم

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

كود :
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

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