یکشنبه, ۱۶ اردیبهشت, ۱۴۰۳ / 5 May, 2024
نکاتی درباره پروسیجرها
توجه داشته باشید که در ابتدای تعریف توابع و روالها می توانیم از Private یا Public نیز استفاده کنیم و تمام سطوحی که برای تعریف متغیرها گفته شد (خصوصاً سطح فرم و سطح ماژول) ، در اینجا نیز عیناً کاربرد دارند. (پیش فرض در اینجا هم Private است).
به عنوان مثال اگر بخواهیم تابعی به نام Square ایجاد نماییم که هر عددی را دریافت کرد، مربع آن را برگرداند، کافی است چنین بنویسیم (مثلاً به صورت Public در یک ماژول) :
Public Function Square (I As Integer) As Integer
Square = I*I
End Function
ملاحظه می کنید که در اینصورت اگر هر جایی از برنامه نام تابع را به همراه یک مقدار عددی Integer به عنوان پارامتر آن ذکر کنیم، مقدار عددی مذکور به متغیر I داخل تابع منتقل شده و عمل I*I روی آن انجام می گیرد و از آنجا که گفتیم خرجی توابع نام آنها هستند، خروجی (یعنی مقدار I*I را) را به نام تابع جایگزین کردیم (یعنی Square = I*I) . حال مثلاً اگر در جایی از برنامه دستور b = Square (۵) را وارد کنیم، مقدار متغیر b برابر ۲۵ خواهد شد.
توجه داریم که اگر تابع بیش از یک پارامتر ورودی داشت، باید نام آنها با کاما (,) از هم جدا کنیم که در اینصورت در هنگام فراخوانی باید به تعداد پارامترها، آرگومان قرار دهیم که به ترتیب در متغیر مربوط جایگزین (وارد) می شود. مثلاً اگر بخواهیم تابعی به نام Multiple ایجاد کنیم که حاصلضرب دو پارامتر ورودی اول را با پارامتر ورودی سوم جمع کند و نتیجه را برگرداند، کافی است بنویسیم:
Private Function Multiple (a, b, c As Integer) As Integer
Multiple = (a*b) +c
End Function
که در اینصورت دستورات زیر در محلی از پروژه (که البته دسترسی Private به تابع مذکور داشته باشد)، مقدار ۱۷ را در Text Box به نام txtResult قرار می دهد:
I = ۳
bs = ۵
g = ۲
txtResult.Text = Multiple (I, bs, g)
توجه داریم که مقادیر استفاده شده به عنوان آرگومانهای تابع باید با متغیرهای به کار رفته در پارامترهای تعریف تابع از لحاظ نوع داده، یکسان باشند.حال به عنوان مثالی برای روالها فرض کنید بخواهیم روالی به نام TF ایجاد کنیم که دو عدد را دریافت کند، بررسی کند که اگر این دو عدد برابر بودند، جواب True و همچنین حاصلضرب آن دو را برگرداند. برای این منظور اگر مثلاً در یک ماژول تعریف کنیم:
Public Sub TF (x, y As Integer, T as Boolean, M as Integer)
IF x = y then
T = True
Else
T = False
End IF
M = x*y
End Sub
می توان در جایی از پروژه، روال مذکور را فراخوانی نمود، فراخوانی روالها توسط دستور Call صورت می گیرد، مثلاً اگر در جایی از پروژه، روال فوق را به صورت زیر فراخوانی نماییم:
a = InputBox (Please Enter a Number)
Call TF (a, ۱۵, s, p)
در صورتی که متغیرهای a و s و p تعریف شده باشند آرگومان a به پارامتر x از روال، آرگومان ۱۵ به پارامتر y از روال، آرگومان s به پارامتر T از روال و آرگومان p به پارامترM از روال منصوب می شود. دستور InputBox یک جعبه محاورهای برای کاربر نشان می دهد که پیغامی را (در اینجا پیغام Please Enter a Number) شامل می شود و در یک جعبه متن خاص، مقداری را از کاربر مطالبه می کند که پس از وارد کردن توسط کاربر مقدار وارد شده را برمی گرداند (و در اینجا در متغیر a جایگزین می کند).
حال اگر کاربر مقدار ۱۵ را وارد کند، مقدار متغیر s (که باید Boolean تعریف شده باشد) برابر True و در غیر اینصورت مقدار False را شامل می شود و در هر صورت متغیر p نیز حاصلضرب a و ۱۵ را در خود شامل می شود.
تأکید می کنیم که نوع داده آرگومانها و پارامترهای تعریف لزوماً باید به ترتیب متناسب باشد که در غیر اینصورت VB به ما خطا صادر می کند.
نمایندگی زیمنس ایران فروش PLC S71200/300/400/1500 | درایو …
دریافت خدمات پرستاری در منزل
pameranian.com
پیچ و مهره پارس سهند
تعمیر جک پارکینگ
خرید بلیط هواپیما
امیرعبداللهیان حسین امیرعبداللهیان ترکیه دولت سیستان و بلوچستان جنگ انتخابات مجلس شورای اسلامی حجاب دولت سیزدهم افغانستان مجلس
سیل هواشناسی تهران شهرداری تهران بارندگی سازمان هواشناسی باران فضای مجازی یسنا آتش سوزی هلال احمر آموزش و پرورش
هوش مصنوعی خودرو دلار قیمت خودرو قیمت دلار مسکن قیمت طلا تورم بانک مرکزی بازار خودرو حقوق بازنشستگان ارز
مسعود اسکویی تلویزیون صدا و سیما جهان حج مهران غفوریان موسیقی صداوسیما سریال سینمای ایران سازمان صدا و سیما
رژیم صهیونیستی فلسطین اسرائیل جنگ غزه حماس روسیه آمریکا انگلیس اوکراین نوار غزه ایالات متحده آمریکا یمن
فوتبال پرسپولیس استقلال سپاهان رئال مادرید لیگ برتر باشگاه استقلال بازی باشگاه پرسپولیس علی خطیر جواد نکونام بایرن مونیخ
آیفون اینستاگرام دیابت اپل ناسا عکاسی تبلیغات موبایل گوگل
کبد چرب فشار خون گرما