اول ببینیم این بابا چیکار می کنه :
کد:
Private Sub EmployeeDisplay(strFirst As String, strLast As String)
Dim strEmp As String
strEmp = "my First Name is: " & strFirst & "And My Last Name is:" & _
strLast
EmployeeDisplay = strEmp
End Sub
ما دو پارامتر ورودی داریم ولی روتین خروجی نداره چون با Sub تعریف شده و نه Function. پس تابع نیست
و متغیری به نام EmployeeDisplay هم نداریم که بخواهیم چیزی داخل قرار بدیم.
به همین دلیل این سطر در تابع اشتباه است :
حالا فعلا به این اشتباه گیر نمی دیم، ببینیم در بقیه اش چه اتفاقی می افته.
در متغیر strEmp دو پارامتر ورودی با هم ترکیب می شوند به طوری که اگه اسم آقای بیل گیتز را بهش بدیم
تبدیل میشه به :
کد:
my First Name is: BillAnd My Last Name is:Gates
الان اشکال دوم که یک اشکال تکنیکی است معلوم شد، بین اسم کوچیک و عبارت And فاصله ای در نظر نگرفته ایم
و شده BillAnd. پس بهتره توی عبارتی که با And شروع میشه یک کاراکتر فاصله اضافه کنیم. یکی هم بین دونقطه و
Gates.
بعد چی میشه؟ متغیر ترکیب شده strEmp رو می ریزه توی خروجی تابع (که البته باید اصلاح بشه چون الان تابع نیست)
اما ما برای اصلاح کردن این روتین اونو به تابع تبدیل می کنیم، یعنی اولا که Sub باید تبدیل بشه به Function.
ثانیا که چون ما دو رشته را با هم ترکیب می کنیم، خروجی باید از نوع String باشه.
ثالثا متغیر strEmp یک متغیر واسطه است و میشه حذفش کرد، چون کمک خاصی نمیکنه و می تونیم انتقال به خروجی
را یکسره و مستقیم کنیم :
کد:
Private Function EmployeeDisplay(strFirst As String, strLast As String) As String
EmployeeDisplay = "my First Name is: " & strFirst & " And My Last Name is: " & strLast
End Function
خب حالا ببینیم این فراخوانی تابع در دکمه Command1 چیکار می کنه :
کد:
Private Sub Command1_Click()
Call EmployeeDisplay("Bill", "Gates")
End Sub
از نظر دستوری کاملا درسته و دو پارامتر ورودی Bill و Gates را ارسال می کنه و ترکیب شده اش را تحویل می گیره،
ولی خروجی تحویل گرفته شده را چیکار می کنه؟ هیچی می ریزه دور چون از خروجی تابع استفاده ای نشده.
پس اگه اجرا بشه، نه چیزی نمایش داده می شه و نه چیزی تغییر می کنه.
حالا چطور اصلاحش کنیم؟
راه های مختلفی وجود داره، مثلا با یک پنجره MessageBox خروجی تابع رو نشون بدیم :
کد:
Private Sub Command1_Click()
MsgBox EmployeeDisplay("a", "b")
End Sub
یا اینکه قرارش بدیم داخل یک لیبل مثلا Label1 :
کد:
Private Sub Command1_Click()
Label1.Caption = EmployeeDisplay("a", "b")
End Sub
