29-03-14, 07:13 PM
السلام عليكم
انا جديده في لغة الفيجوال بيسك
ولا أخفيكم أنها صعبة جدا
أريد عمل برنامج يوجد لي المتوسط الحسابي لعدد من الأرقام (غير محدد)
ومعروف أن قانون المتوسط الحسابي هو= مجموع الأرقام / عددها
واجهة التصميم لدي هي عشرة تكست بوكس وزر بوتون لإظهار المعدل في مسج بوكس
بحثت كثيرا ووجدت هذه الأكواد:
لكنها لم تعمل ولم أفهم منها الكثير
أول كود يظهر لي في المسج رقم 1
وثاني كود لا يعمل بسبب الأخطاء
وأيضا اشعر ان هناك نقص في التعريف
مثلا ما وضحنا للبرنامج ان يقرأ قيم التكست بوكسات التي لدي وغيرها كثير فجوات
أرجوا مساعدتي ولكم جزيل الشكر والتقدير *^*
انا جديده في لغة الفيجوال بيسك
ولا أخفيكم أنها صعبة جدا
أريد عمل برنامج يوجد لي المتوسط الحسابي لعدد من الأرقام (غير محدد)
ومعروف أن قانون المتوسط الحسابي هو= مجموع الأرقام / عددها
واجهة التصميم لدي هي عشرة تكست بوكس وزر بوتون لإظهار المعدل في مسج بوكس
بحثت كثيرا ووجدت هذه الأكواد:
كود :
Dim a As Long, n As Long, total As Double, temp As Double, endresult As Double
For a = 0 To Text.Count - 1
temp = Val(Text(a))
If temp <> 0 Then
n = n + 1
total = total + temp
End If
Next a
endresult = total / n
MsgBox(endresult)كود :
Public sum, avg As Integer
Function myf(ByVal n As Integer) As Integer
For i = 0 To Arr.Length - 1
sum += Val(Arr(i))
avg = sum / Arr.Length
Next
Return avg
End Functionلكنها لم تعمل ولم أفهم منها الكثير
أول كود يظهر لي في المسج رقم 1
وثاني كود لا يعمل بسبب الأخطاء
وأيضا اشعر ان هناك نقص في التعريف
مثلا ما وضحنا للبرنامج ان يقرأ قيم التكست بوكسات التي لدي وغيرها كثير فجوات
أرجوا مساعدتي ولكم جزيل الشكر والتقدير *^*
