نحوه استفاده از پارامترها

[javad_1349]

باسلام به دوستان عزيز
ميخواستم بدانم چگونه ميتوان از پارامترها در فاكس استفاده نمودن به ذكر يك مثال ممنون

[gm_phk]

با سلام
دوست عزیز لطفا واضحتر توضیح دهید .

[javad_1349]

با سلام
دوست عزیز لطفا واضحتر توضیح دهید .
باسلام ممنون از وقتي كه گذاشتيد
منظور من فانكشن هاي استفاده شده در زير برنامه هاست مثلا يك مبلغ را به پروسيجر ميدهيد و آن متغيير جايگزين پارامتر تعريف شده در زيربرنامه ميگردد و تبديل به حروف ميكند

[rahro]

باسلام ممنون از وقتي كه گذاشتيد
منظور من فانكشن هاي استفاده شده در زير برنامه هاست مثلا يك مبلغ را به پروسيجر ميدهيد و آن متغيير جايگزين پارامتر تعريف شده در زيربرنامه ميگردد و تبديل به حروف ميكند
خوب به هر فانکش یکسری پارامتر ارسال میشه وبعد در آخر مقدار برگشت داده میشه و از اون مقدار استفاده میشه.
به عنوان مثال اگر بخوای مقدار حروفی اعداد یک تا پنج رو بگیری باید اینطور عمل کنی

LOCAL ncarec as Character
FOR y = 1 TO 5
ncarec=newfunc(y)
=MESSAGEBOX(y)
ENDFOR
*********************************
FUNCTION newfunc
PARAMETERS numberc
LOCAL ctext as Character
DO CASE
CASE numberc=1
ctext='í˜'
CASE numberc=2
ctext='Ïæ'
CASE numberc=3
ctext='Óå'
CASE numberc=4
ctext='åÇÑ'
CASE numberc=5
ctext='äÌ'
OTHERWISE
ctext='äÇãÔÎÕ'
ENDCASE
return(ctext)

[rezaTavak]

اگر منظور شما آدرس متغیر باشد نه مقدار متغیر باید به این نگاهی بیاندازید:

http://support.microsoft.com/kb/101025

اما بطور ساده اگر در ارسال پارامتر قبل از آن @ باشد به جای مقدار آدرس متغیر ارسال شده و عینا متغیر تغییر میکند:




a=10
inc(a)
? a
inc(@a)
? a

function inc
parameter a1
a1=a1+1