+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
اسم ال FUNCTION كمتغير - اسلام الكبابى - 20-10-15
أريد تعديل هذا الكود بحيث يظل اسم ال 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
ولكم ألف شكر
RE: اسم ال FUNCTION كمتغير - administrator - 20-10-15
PHP كود :
Option Explicit
Private Sub Form_Load()
Call x("")
Call x("VB4ARB")
End Sub
Public Sub x(ByVal s As String)
If s = "" Then
Me.Caption = "NONE"
Else
MsgBox s
End If
End Sub
RE: اسم ال FUNCTION كمتغير - Ahmed_Mansoor - 20-10-15
أهلا أخي الكريم , إستخدام أداة السكربت لتنفيذ ماتريده , الطريقة في المرفقات .
RE: اسم ال FUNCTION كمتغير - احمداحمداحمد6 - 21-10-15
استخدم randomize
RE: اسم ال FUNCTION كمتغير - اسلام الكبابى - 22-10-15
إقتباس :استخدم randomize
وكيف أستخدمها؟
ليتك تعدل الكود باستخدامها
ولكم ألف شكر
إقتباس :أهلا أخي الكريم , إستخدام أداة السكربت لتنفيذ ماتريده , الطريقة في المرفقات .أستاااااااذ . فعلآ هذا هو الحل
بارك الله فيك
وهل لى أن أطلب أن تدلنى على رابط يشرح هذه الأداة شرحآ يوضح كل استخداماتها
فيبدو أنها أداة مفيدة لا أعرفها
ولكم ألف شكر
RE: اسم ال FUNCTION كمتغير - Ahmed_Mansoor - 23-10-15
أهلا أخي الكريم ، رابط من مايكروسوفت :
https://support.microsoft.com/en-us/kb/184740
RE: اسم ال FUNCTION كمتغير - اسلام الكبابى - 23-10-15
شكرآ لك
ولكن هذا الرابط لايشرح شيئآ
كل كلامه بالانجليزية ، ولما ترجمته لم أفهم من الترجمة شيئآ
RE: اسم ال FUNCTION كمتغير - administrator - 24-10-15
حسب مافهمت من كودك السابق لماذا لا تسخدم
مثال
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
RE: اسم ال FUNCTION كمتغير - abulayth - 24-10-15
السلام عليكم
اخي الكريم بامكانك استخدام ٍselect case كما نصحك الاخ administrator او استخدام function يرجع بالقيمة بناء على القيمة المرسلة له من خلال باراميتر
يعطيك العافية
RE: اسم ال FUNCTION كمتغير - اسلام الكبابى - 24-10-15
لا أستخدم ٍselect case لأنى سأحتاج التوجه الى احدى الfunctionS
FUNC1 , FUNC2 فى عدة مواضع فى الكود لا فى موضع واحد
ولا أريد فى كل مرة كتابة كود ال ٍselect case
وانما أريد فى كل مرة كتابة جملة واحدة ٍ
كود :
FUNCC