روش استفاده از 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