Average

[mvig]

سلام

من ميخوام يه كارى كنم كه تو برنامه با يك textbox و يك button بتونم ميانگين چند تا عدد رو حساب كنم(بينهايت عدد).و جواب هم تو همون textbox نوشته بشه.

ممنون

[ajlajlajl]

خب اول باید ببینیم چطوری عدد رو میخواید از یه text بگیرید.
خب فرض میکنیم اعداد رو بصورت یه رشته و با جدا کننده "," میگیرید.
اول با splite میکنیدشون یه آرایه
بعد معدلشونو بگیرید.

[mvig]

يعنى بايد روند محاسبه رو تو فانكشن بنويسم،بعد با button جواب رو بگيرم.
اينش درسته ديگه؟

خب فرض میکنیم اعداد رو بصورت یه رشته و با جدا کننده "," میگیرید.
اول با splite میکنیدشون یه آرایه

خب چى بنويسم كه "," رو براى جدا كردن تعيين كنه؟

[ajlajlajl]

شرمنده مسافرت بودم نتونستم جواب بدم.
تو پارامتر دوم تابع split
کاملش:
یه تکست و دکمه میندازی رو فرمت. این کدو برای رویداد کلیک دکمه مینویسی :

کد:

Dim s As String = TextBox1.Text
        Dim sa() As String = Split(s, ",")
        Dim av As Single = 0
        For Each i As Single In sa
            av += i
        Next
        av /= sa.Length
        TextBox1.Text = av