منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

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

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

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

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

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

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

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

من أراد أن يرفق حلآ فلا يضع فى أى FUNC أكثر من هذه الجملة

كود :

AA = 111

أو هذه الجملة

كود :

AA = 222

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

ولكم ألف شكر

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

أخي اسلام

أرجو أن يكون هذا الكود هو المطلوب

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

سؤالك مبهم

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

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

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

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

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

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

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

أخي اسلام

أرجو أن يكون هذا الكود هو المطلوب

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

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

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 

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

السلام عليكم

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

كود :

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

administrator

اسلام الكبابى

administrator

اسلام الكبابى

مهموم

administrator

اسلام الكبابى

مهموم

أبو عمر

abulayth