+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ايجاد المتوسط الحسابي (/showthread.php?tid=2399)
ايجاد المتوسط الحسابي - uknowtnt - 29-03-14
السلام عليكم
انا جديده في لغة الفيجوال بيسك
ولا أخفيكم أنها صعبة جدا
أريد عمل برنامج يوجد لي المتوسط الحسابي لعدد من الأرقام (غير محدد)
ومعروف أن قانون المتوسط الحسابي هو= مجموع الأرقام / عددها
واجهة التصميم لدي هي عشرة تكست بوكس وزر بوتون لإظهار المعدل في مسج بوكس
بحثت كثيرا ووجدت هذه الأكواد:
كود :
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
وثاني كود لا يعمل بسبب الأخطاء
وأيضا اشعر ان هناك نقص في التعريف
مثلا ما وضحنا للبرنامج ان يقرأ قيم التكست بوكسات التي لدي وغيرها كثير فجوات
أرجوا مساعدتي ولكم جزيل الشكر والتقدير *^*
RE: ايجاد المتوسط الحسابي - اسلام الكبابى - 30-03-14
إقتباس :أريد عمل برنامج يوجد لي المتوسط الحسابي لعدد من الأرقام (غير محدد)
هذا ملف لحسابه
RE: ايجاد المتوسط الحسابي - asto - 30-03-14
عندي حل جيد تعملي لست و كوماند للاضافة و كوماند للحساب
حيث كوماند 1 للاضافة و ال2 للحساب
كود :
Private Sub Command1_Click()
x = List1.ListCount
List1.AddItem (x)
List1.List(x) = Text1.Text
End Sub
Private Sub Command2_Click()
x = List1.ListCount
xx = x - 1
a = 0
For i = 0 To xx
b = List1.List(i)
a = a + b
Next
z = a / x
End SubRE: ايجاد المتوسط الحسابي - uknowtnt - 01-04-14
اسلام الكبابي
شكراً جزيلا لردك ، لكن لم يفتح معي المرفق
استعمل فيجوال بيسك اكسبرس 2010 وجميع مشروعاتي بصيغة .sln أو .vb
asto
شكرا جزيلا لردك اخي الفاضل، كوماند يعني بوتون صحيح؟
نسخته وفعلت ماقلت لكن لم يعمل معي
List1.ListCount
جميع ما بعد النقطه يقول أنه خطأ
RE: ايجاد المتوسط الحسابي - asto - 01-04-14
(01-04-14, 12:00 AM)uknowtnt كتب : اسلام الكبابي
شكراً جزيلا لردك ، لكن لم يفتح معي المرفق
استعمل فيجوال بيسك اكسبرس 2010 وجميع مشروعاتي بصيغة .sln أو .vb
asto
شكرا جزيلا لردك اخي الفاضل، كوماند يعني بوتون صحيح؟
نسخته وفعلت ماقلت لكن لم يعمل معي
List1.ListCount
جميع ما بعد النقطه يقول أنه خطأ
هذا في vb6 و ليس في فيجوال بيسك اكسبرس 2010
RE: ايجاد المتوسط الحسابي - abulayth - 01-04-14
تم نقل الموضوع الى القسم المناسب