14-09-2008, 15:29
|
|
|
חבר מתאריך: 07.10.06
הודעות: 1,795
|
|
1. מההודאה שלך, לא ברור לי אם אתה מתכוון לאתר אינטרנט או לתוכנה.
2. אין צורך להכריז שום דבר. זה לא פסקל, וזה לא DLL. פשוט כותבים אותה, וקוראים לה.
דוגמאות לפונקציות עצמן:
דוגמא לפונקציה המחזירה ערך מסוג INT:
קוד:
Function Aaa() AsInteger
Aaa = 8
EndFunction
דוגמא לפונקציה המחזירה ערך מסוג String:
קוד:
Function Aaa() AsString
Aaa = "dfgdfgdfg"
EndFunction
דוגמא לפונקציה המקבלת String, ומחזירה String.
קוד:
Function Aaa(ByVal StrParmeter AsString) AsString
Aaa = StrParmeter
EndFunction
דוגמא לפונקציה המקבלת 2 סטרינגים ומחזירה אותם בטור סטרינג 1:
קוד:
Function Aaa(ByVal StrParmeter1 AsString, ByVal StrParmeter2 AsString) AsString
Aaa = StrParmeter1 & StrParmeter2
EndFunction
דוגמא לפונקציה שלא מחזירה ערך ומקבלת פרמטרים ומציגה אותם:
קוד:
Sub Aaa(ByVal StrParmeter1 AsString, ByVal StrParmeter2 AsString)
MsgBox(StrParmeter1 & StrParmeter2)
EndSub
קריאה לפונקציות שלא מחזירות ערך:
על מנת לקרוא לפונקציה שלא מחזירה ערך, פשוט כתוב את שמה (הסוגריים לא חובה, הוא יוסיף אותם לבד):
קריאה לפונקציה עם פרמטרים:
קריאה לפונקציות עם יותר מפרמטר אחד:
קוד:
Aaa("asdasdasd", "asd")
קריאה לפונקציות מחזירות ערך:הרעיון אותו רעיון, אבל כאן הסוגריים חובה
קוד:
MsgBox(Aaa("asdasdasd", "asd"))
עוד דוגמא עם לקריאה והכנסת הערך למשתנה:
קוד:
Dim Str AsString
Str = Aaa("Hello ", "World")
MsgBox(Str)
מספר הערות:
1. משמעותה של המילה BYVAL שרשומה לייד הפרמטרים של הפונקציות, היא שעובר הערך, ולא מצביע לערך. זה חשוב, כיוון שאם הפונקציה משנה את המשתנה, הוא לא ישנה אותו היכן שקראו לה. אם אתה רוצה להעביר מצביע, כתוב ByRef (ברירת המחדל היא ByVAL. כך שגם אם אתה לא כותב אותה, היא תוסיף את עצמה לבד.)
2. כאן בפורום, נעלם הרווח בין המילים AS ל- String או INT. שים לב שהוא צריך להיות קיים.
3. מצ"ב פרויקט דוגמא, רק לשם המחשה, וביגלל הסעיף הקודם
4. אם ברצונך למנוע קריאה שלהם מדפים אחרים, או לאפשר לקרוא להן, תוכל להוסיף Public ו-Private בהתאם. (חפש בגוגל על מה השאר אומרות, ותוכל לקרות בדוגמא המצורפת, שעל הראשונה והשניה שיבצתי אותם.)
5. אם ברצונך לקרא להן ממקום אחר (שלא נימצא בתוך הדף הראשוני, תצתרך תיצור או מודול, או קלאס בהתאם לפרויקט)
קובץ:
https://2008-uploaded.fresh.co.il/2...14/99293309.rar
בהצלחה!
|