مرجع حل مشکلات پیرامون برنامه نویسی ویژوال بیسیک

[ravegoat]

ببخشید که مبهم سوال کردم
من 5 تا تکست دارم که داخلشون قراره عدد قرار بگیره .
من میانگین این اعداد داخل تکست باکس رو میخوام
اما ممکنه بعضی از این تکست باکس ها در حالت اجرا فاقد عدد باشند
در فرمول نویسی من تمام تکست باکس ها رو جمع کردم و تقسیم بر 5 کردم
اما اگر تکستی فاقد عدد باشد باید تقسیم بر 4 شود
من میخوام محتوای تکست باکس ها رو جمع کنه و تقسیم بر تعداد تکست های پر کنه.
امیدوارم متوجه شده باشید.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

خواهش می کنم؛ الآن متوجه شدم.

فرض کنیم ما 5 تا جعبه ی متنی به نام های Text1, Text2 تا Text5 داریم. کافیه قبل از میانگین گیری بررسی کنیم که چند تا جعبه ی متنی حاوی مقدار هستن و به ازای هر جعبه ی متنی دارای مقدار، مقدار یه شمارنده رو یکی افزایش میدیم:

Dim counter As Integer = 0
Dim sum As Double = 0

If Text1.Text <> vbNullString Then
 counter += 1
 sum += Val(Text1.Text)
 End If

If Text2.Text <> vbNullString Then
 counter += 1
 sum += Val(Text2.Text)
 End If

If Text3.Text <> vbNullString Then
 counter += 1
 sum += Val(Text3.Text)
 End If

If Text4.Text <> vbNullString Then
 counter += 1
 sum += Val(Text4.Text)
 End If

If Text5.Text <> vbNullString Then
 counter += 1
 sum += Val(Text5.Text)
 End If

Dim midVal As Double = sum / counter

اگر تعداد جعبه های متنی تون مقدار دلخواهی باشه (نه الزاما" 5 تا)، می تونید از کد زیر هم استفاده کنید (البته امتحانش نکردم):

Dim ctr As Control
Dim counter As Integer = 0
Dim midVal As Double = 0

For Each ctr In Me.Controls
    If TypeOf ctr Is TextBox Then
        If ctr.Text <> vbNullString Then
            counter += 1
            midVal += Val(ctr.Text)
        End If
    End If
Next ctr

midVal = midVal / counter
MsgBox Str(midVal)

موفق باشید
آرمین