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

[س ا يوسف]

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

[س ا يوسف]

نهاية الاعداد التي سيتم جمهها يدخل عن طريق الاداة 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]

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