آموزش

[r_oscar2007]

مفهوم کد زیر چیست
private sub power(num1 as integer,num2 as integer)
به صورت کامل توضیح دهید
کاربردش و ....

[Hossein Bazyan]

سلام
سابروتینی بنام power از نوع Private ( فقط در داخل این فرم یا مدول میتوان آنرا فراخوانی نمود و در بقیه فرمها و مدولها و ... قایل فراخوانی نیست ) تعریف میکند که این سابروتین دو متغییر بنام های num1 و num2 از نوع Integer دریافت میکند که نویسنده میتواند از آنها داخل سابروتین استفاده کند.
جهت روشن شدن مطلب کد زیر را در نظر بگیرید. با زدن کلید command1 کنترل برنامه به سابروتینی بنام Add همراه با دو متغییر رفته و دو عدد را با هم جمع نموده و چاپ میکند و کنترل به برنامه که همان command1 باشد برمیگردد


private sub command1_click()
dim A as integer
dim B as integer
call Add(A, B)
beep
end sub

private sub Add(First as integer, Second as Integer)
dim C as integer
C = First + Second
msgbox C
end sub