مثال جمع الاعداد الفردية لعدد محدد

[س ا يوسف]

مطلوب أن تقوم بجمع الأعداد الفردية من (1) إلي (Limit) حيث Limit هو رقم صحيح موجود في الأداة Text Box المسمى TXTLimit


You can see links before reply

[س ا يوسف]

نهاية الاعداد التي سيتم جمهها يدخل عن طريق الاداة txtLimit.Text ولابد من عمل مخزن له وليكن Limit
العدد الفردي لابد ان يكون له مخزن وليكن x
مجموع الاعداد الفردية لابد من عمل مخزن له وليكن total
نستخدم امر Dim لعمل المخازن

Dim x, total, limit As Integer
نتأكد من ان المدخل رقم بـ

Try
نقوم بتحويل المدخل من حرفس الي عددي لان وسيلة الدخول TextBox

(limit = Integer.Parse(Me.txtLimit.Text
ثم استكمال try

Catch
نظهر رسالة ادخل ارقام في حالة الخطأ

("ادخل ارقم")MsgBox
ننهي Try

EndTry
بداية العدد الفردي x بـ 1

X=1
فكرة جمع الاعداد الفردية هي 1 ثم اضافة 3 ثم اضافة 5 ثم اضافة 7 وهكذا طالما العدد المضاف اقل من او يساوي عدد النهاية
يعني ايه سنضيف الى مخزن المجموع total ( كلمة نضيف = المخزن + المضاف ويوضع في المخزن total=total+x
كما نضيف للعدد المجموع (1 و 3 و5 و 7 و ......... )2 كل مرة
اي مخزن البداية x يضاف اليه 2 اي المخزن + 2 ويوضع في المخزنx=x+2
ننفذ الفكرة التكرار ب do while والشرط العدد المضاف x اقل من او يساوي العدد المدخل limt

Do While x <= limit
اضافة العدد الفردي الي total

total = total + x
زيادة العدد x بــ 2 (1 ثم 3 ثم 5 ثم 7 وهكذا )

x = x + 2
ثم انهاء امر do while بـ

Loop
وفي النهاية نظهر المجموع في label2

Me.Label2.Text = Format(total, "##")l
تسخدم Format لاظهار الرقم او لا شئ في حالة استخدام ##

[يمامة الغار]

شكرا لك استاذ سبف
وياريت تحاول تعطي لنا حصص في الغرف الصوتيه
يمامة الغار
الصف الثالث الاعدادي

[س ا يوسف]

شكرا لك استاذ سبف
وياريت تحاول تعطي لنا حصص في الغرف الصوتيه
يمامة الغار
الصف الثالث الاعدادي
بس اعرف ازاي هيئة التدريس بتستخدم السبورة
علشان صراحة انا لم استحدم السبورة من قبل
وانا اخذت وعد من مسئولي الغرفة انهم سيعلمونني كيفية استخدام الغرفة
وسأكون تحت امر ابنائنا الطلبة فور تحقيق الوعد

[matmm]

لله يبارك فيك اخي الفاضل

[belal helwa]

جزاك الله خيرا