أريد أن أعرف دالة تعيد لي قيمة ، هل هذه هي الطريقة المثلى أم ماذا ...

أخي وليدكو إذا كنت تقصد دالة تقوم بضرب مربع النص الأول في الثاني ويكون نوع الدالة عدد صحيح Integer يمكنك ذلك عن طريق الكود التالي كمثال

)

[l]Private Functio-Name(notxt as integer,notxt2 as integer) as integer [/l]

وfunction-name هو اسم الدالة وهذه الأسطر تضعها في مكان فارغ بعد نهاية الإجراء end sub

وبعد ذلك تضع مكان notxt اسم مربع النص الأول ومكان notxt2 اسم مربع النص الثاني أي هكذا

[l]ver=function-name(text1,text2)[/l]

ثم اسند المتغير ver إلى مربع الرسالة أو أي كائن آخر

وشكراً

لا يتعلم العلم مستحي ولا مستكبر

:o

:cool:

;)

أخي الكريم كلامك صحيح ، ولقد قمت بعمل دالة مثل التي عملتها انت ةبنفس الطريقة ولكن اريد ظهور الناتج في تكست بوكس آخر وحين عمل البرنامج لا أجده يضع لي أي قيمة في مربع النص الثالث .

ولدي ملحوظة أنت لم تقم بعملية الضرب في الدالة التي عرفتها .

جرب الدالة لاتيه

 Functaion GetResult(intOne as integer,intTwo as Integer,Oprand as String) as Integer
Select Case Oprand
Case "+"
GetResult=intOne+intTwo
Case "-"
GetResult=intOne-intTwo
Case "*"
GetResult=intOne*intTwo
End Select
End Functaion

مثال لإستخدام هذه الدالة

 Text3.Text=Cstr(Val(Text1.Text),Val(Text2.Text),"+")