تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اسم ال FUNCTION كمتغير
#1
أريد تعديل هذا الكود بحيث يظل اسم ال FUNCTION  متغير


PHP كود :
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
      
If NNN <= 10 Then FUNCC "FUNC1" Else: FUNCC "FUNC2"
      FUNCC
      Rem
"المفروض بالجملة السابقة يتوجه الى FUNC1  أو الى FUNC2  حسب قيمة المتغير FUNCC"
      Print AA
End Sub 

ولكم ألف شكر
}}}}
تم الشكر بواسطة:
#2
PHP كود :
Option Explicit

Private Sub Form_Load()
Call x("")
Call x("VB4ARB")
End Sub


Public Sub x(ByVal s As String)
If 
"" Then
Me
.Caption "NONE"
Else
MsgBox s
End 
If
End Sub 
}}}}
تم الشكر بواسطة: Ahmed_Mansoor
#3
أهلا أخي الكريم , إستخدام أداة السكربت لتنفيذ ماتريده , الطريقة في المرفقات .


الملفات المرفقة
.rar   Execute_Function.rar (الحجم : 1.71 ك ب / التحميلات : 19)
}}}}
تم الشكر بواسطة: اسلام الكبابى , Microformt
#4
استخدم randomize
}}}}
تم الشكر بواسطة:
#5
إقتباس :استخدم randomize

وكيف أستخدمها؟
ليتك تعدل الكود باستخدامها
ولكم ألف شكر

إقتباس :أهلا أخي الكريم , إستخدام أداة السكربت لتنفيذ ماتريده , الطريقة في المرفقات .
أستاااااااذ  .   فعلآ هذا هو الحل
بارك الله فيك
وهل لى أن أطلب أن تدلنى على رابط يشرح هذه الأداة شرحآ يوضح كل استخداماتها
فيبدو أنها أداة مفيدة لا أعرفها

ولكم ألف شكر
}}}}
تم الشكر بواسطة:
#6
أهلا أخي الكريم ، رابط من مايكروسوفت :
https://support.microsoft.com/en-us/kb/184740
}}}}
تم الشكر بواسطة: أبو عمر , Microformt
#7
شكرآ لك
ولكن هذا الرابط لايشرح شيئآ
كل كلامه بالانجليزية ، ولما ترجمته لم أفهم من الترجمة شيئآ
}}}}
تم الشكر بواسطة:
#8
حسب مافهمت من كودك السابق لماذا لا تسخدم


PHP كود :
Select Case 

مثال

PHP كود :
Private Sub Command2_Click()
 
   MMM Val(Text2.Text)
 
   Call FUNC3
End Sub

Public Sub FUNC3()
 
   Select Case MMM
    Case Is 
<= 10
        Print 
"case1"
 
   Case Is <= 20
        Print 
"case2"
 
   Case Is <= 30
        Print 
"case3"
 
   Case Is 30
        Print 
"case4"
 
   End Select
End Sub 
}}}}
تم الشكر بواسطة: abulayth , Ahmed_Mansoor
#9
السلام عليكم

اخي الكريم بامكانك استخدام ٍselect case كما نصحك الاخ administrator او استخدام function يرجع بالقيمة بناء على القيمة المرسلة له من خلال باراميتر

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

}}}}
تم الشكر بواسطة: administrator , administrator , الشاكي لله , Ahmed_Mansoor
#10
لا أستخدم ٍselect case لأنى سأحتاج التوجه الى احدى الfunctionS  
  FUNC1 ,  FUNC2    فى عدة مواضع فى الكود لا فى موضع واحد
ولا أريد فى كل مرة كتابة كود ال ٍselect case
وانما أريد فى كل مرة كتابة جملة واحدة ٍ

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


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


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