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

[mar mar mari]

آرمین جان خیلی ممنون
اما Dim counter As Integer = 0 اررور میده تو دوتاش
آیا باید مشخصات شی هامو تغییر بدم؟
خیلی ممنون و ببخشیدبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

[ravegoat]

آرمین جان خیلی ممنون
اما Dim counter As Integer = 0 اررور میده تو دوتاش
آیا باید مشخصات شی هامو تغییر بدم؟
خیلی ممنون و ببخشیدبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

خواهش می کنم دوست عزیز...

نه نیازی نیست. شرمنده؛ اصلا" یادم نبود در VB6 نمیشه درست بعد از تعریف متغیر اون رو مقدار دهی کرد.

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

موفق باشید

[mar mar mari]

آرمین جان خیلی ممنون
اما Dim counter As Integer = 0 اررور میده تو دوتاش
آیا باید مشخصات شی هامو تغییر بدم؟
خیلی ممنون و ببخشیدبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

میدونم سوالم مسخره هس ولی چکار کنم بد گیر کردم؟؟؟

[ravegoat]

میدونم سوالم مسخره هس ولی چکار کنم بد گیر کردم؟؟؟

دوست عزیز، جوابتون در پست 101 داده شد. با این حال بنده بازم متن سورس ها رو قرار میدم:

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

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

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

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

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

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

If counter > 0 Then
 Dim midVal As Double
 midVal = sum / counter
 MsgBox midVal
End If

و اینم دومی:

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

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

midVal = midVal / counter
MsgBox midVal