روش استفاده از Function

[behzadsen]

سلام بر اساتید محترم.
لطفا اگه براتون مقدور به این 2 تا سوال من جواب بدید:
1- روش استفده از Function در VB.NET چطوری؟
2- فرض کنید من توی قسمت های مختلفی از برنامم میخوام از این کد استفاده کنم:

Text3.text=Text1.text * Text2.text
حالا اگه بخوام این کد رو درون یه Function قرار بدم باید چجوری بنویسمش؟ :متفکر:

[محمد آشتیانی]

سلام

روش خاصی نداره ، فقط باید فانکشن رو صدا بزنی و البته چون یه مقدار برمیگردونه باید انتساب بدیش به یه متغیر مثلا

البته برای این چیزی که شما مطرح کردی استفاده از یه فانکشن شاید خیلی به درد نخوره ولی در هر حال اینجوری میشه


Public Function MyFunc() As String
Return CStr(CInt(TextBox1.Text) * CInt(TextBox2.Text))
End Function

برای استفاده هم اینجوری


TextBox3.Text = MyFunc()

[behzadsen]

دوست من،خیلی ممنون.
اما الان با دیدن این کد شما دوتا سوال دیگه برام پیش اومد:
1- کاربرد Return چیه؟
2- آیا استفاده از Return برای کد های محاسباتی (ضرب،تقسیم،منها، مثبت و...) هستش یا جزئی از Function محسوب میشه؟

[sagggad]

سلام
فک کنم این روش راحت تر باشه:

Public Function Zarb()
Text3.Text = Text1.Text * Text2.Text
End Function
برای صدا زدن هم :

Zarb()
به همین سادگی
موفق باشید

[Mani_rf]

سلام
فک کنم این روش راحت تر باشه:

Public Function Zarb()
Text3.Text = Text1.Text * Text2.Text
End Function

برای صدا زدن هم :

Zarb()

به همین سادگی
موفق باشید

این کلا غلته دوست من . Function باید مقدار برگردونه.
کاربرد Function مشخصه و تعریف خاص خودش رو داره . استفاده از Function یعنی شما باید مقداری رو به اون بفرستید، محاسبه ای رو انجام بدید و مقداری برگردونید.


Public Function Zarb(a As Integer , b As Integer) As Integer
Return = A * b
End Function

TextBox3.Text = Zarb(TextBox1.Text , TextBox2.Text)



البته هرچند که VB.Net خودش نوع داده های مختلف رو به هم تبدیل میکنه و خطایی از این کد نمیگیره اما بهتره که حتی اینطوری بنویسید:

TextBox3.Text = Zarb(val(TextBox1.Text) ,val(TextBox2.Text))

در کل از Sub و Function برای کار های پیچیده یا کارهایی که زیاد انجام میشن و کد چندخطی دارن استفاده میشه.
ضزب دو عدد فقط میتونه یک مثال از نحوه استفاده باشه

[behzadsen]

دوستان اگه بخوایم یه شرط رو داخل Function قرار بدیم باید چطور عمل کنیم؟ مثل این:
If Check1.Checked = True Then
ccc = (Hour(TTT) * 60) + Minute(TTT)
TextBox3.Text = (Text1.Text / 90) * ccc
End If
If Check2.Checked = True Then
ccc = (Hour(TTT) * 60) + Minute(TTT)
TextBox3.Text = (Text2.Text / 90) * ccc
End If
If Check3.Checked = True Then
ccc = (Hour(TTT) * 60) + Minute(TTT)
TextBox3.Text = (Text3.Text / 90) * ccc
End If