سوال حول FUNCTION

ممكن توضح السؤال عشان مش مفهوم

مفيش دالة اسمها function ولكن

atc() دى function

str() دى function

في الفيجول بيسك (Public Function MK(x

(N = INT(X

R = SMK(N

ثم نكتب الشروط

End Function

في الفيجول فوكس

FUNCTION FunctionName

[ LPARAMETERS parameter1 [ ,parameter2 ] , ... ]

Commands

[ RETURN [ eExpression ] ]

[ENDFUNC]

هذه الخطوات موجودة في Help لكن كيف تعمل اي كيف يتم تكوينها مثل الفجول بيسك

الموضوع في الفوكس ليس بعيدا عن الفيجوال بيسك

واليك المثال التالي الذي يفترض تمرير قيمتين لارجاع حاصل ضربهما

cResult = Get_Result(5, 4)
MESSAGEBOX(cResult)

FUNCTION Get_Result( X, Y )
	IF PCOUNT() < 2
		MESSAGEBOX("Opss ...")
		RETURN 0
	ENDIF

	RETURN X * Y
ENDFUNC

عند الرغبة في استدعاء الـ Procedures أو الـ Functions من عدة أماكن في البرنامج قد تفكر في وضعها في برنامج واحد ولنسميه MyProceduresFile على سيبل المثال

وتنفذ الأمر التالي ضمن برنامجك ( عند بدء التشغيل )

Set Procedure To MyProceduresFile

وفي النماذج أيضا ستجد ما يفيدك في نفس الموضوع ولكن تحت اسم Method

- بعد فتح النموذج

- اختر من القائمة العلوية Form

- اختر منها New Method

- ضع الاسم المناسب حسب رغبتك.....لنفرض هنا MyMethod

- قد تضيف له Parameters لمعالجتها أو تتركه كما هو

- والاستدعاء يكون

Thisform.MyMethod(Para1, Para2,...)

مع التحية

اشكرك ايها الغالي "Shadowz" على هذه المعلومات

وسوف اجربها في البرنامج ان شاء الله وارد الجواب

وجعل الله مثواك الجنة