درس اليوم الرابع عشر عن Loop(التكرار)بإستخدام For

[الاستاذ خليل]

السلام عليكم

الدرس مشروح بالصور (http://hesab.net/vb6/for/index.htm)


المطلوب عمل برنامج يقوم بطباعة الأعداد الزوجية إذا ضغطنا على زر و أيضا زر آخر يقوم بالمسح و أيضا زر يقوم بطباعة الأعداد العشرية من 0 الى - 10 بفارق 0.1 .

الاستاذ خليل

[fadi9]

السلام عليكم
تحية طيبة لك استاذ خليل
سلمت يداك على هذا الدرس والمعلومات الوافرة الهامة
ارفق المشروع مع بعض الاضافات
لكن نسيت كتابة الاسم عليه
ارجو اخباري هل يعمل هذا البرنامج ام لا
وشكرا

[shjooon]

السلام وعليكم ورحمة الله وبركاته

استاذنا الفاضل بارك الله فيك الشرح كان واضح جدا بس يوم سويت تمرين الاعداد العشرية لاحظت ان الى 5.9 صحيح الفرق 0.1وحتى بقية الارقاه هو الفرق نفسه بس اذا اردت اتحكم في وضع الارقام الذي على يمين الفاصلة العشرية بحيث تكون منزلة وحدة فكيف الي عمل ذلك ويمكنك ملاحظة المرفق حتى يتضح الك ماذا أقصد ولكم مني جزيل الشكر

[الاستاذ خليل]

ممتاز عملكما ممتاز

و بالنسبة للسؤالك يا شجون الحل عند فادي كوده ممتاز

For i = 0 To 100
Text4.Text = Text4.Text & i / 10 & " _ "
Next i

الاستاذ خليل

[الاستاذ خليل]

المطلوب منكم الان معرفة الاجابة على ما يلي :
ما هي الادوات الازمة لتنفيذ هذا الكود ؟
و ما هو نتيجة تنفيذ هذا الكود ؟
ما هي فائدة الجملة Mod ؟


Dim v, x, qwasm As Integer
For v = 1 To 100

For x = 1 To v
If v Mod x = 0 Then qwasm = qwasm + 1

Next x
If qwasm = 2 Then Text3.Text = Text3.Text & v & "-"

qwasm = 0
Next v

للعلم ممكن مشاهدة نفيذ الشفرة عن طريق الضغط على F8 حيث سيظهر لك صفحة الكود و تستطيع تتبع قيمة المتغيرات بتمرير الماوس على المتغيرات و للانتقال لسطر ثاني اضغط على F8 .

[fadi9]

السلام عليكم
ان نتيجة تنفيذ الكود المذكور هي الحصول على كافة الاعداد الاولية المحصورة بين 1 حتى 100
وطباعتها في text3
وفائدة الكلمة mod تعني باقي القسمة للعدد الذي قبلها على العدد البعدها
ويلزم من ادوات لتنفيذ الكود فقط مربع نص text box
ونكتب الكود في حدث form load أويمكن استعمال زر امر command لذلك
وان شاء الله يكون الجواب صح
ما رأي الاخت شجون ؟؟

[shjooon]

بسم الله الرحمن الرحيم

السلام وعليكم ورحمة الله وبركاته

اني اعتقد اجابة الأخ فادي صحيحة بس اني عندي استفسارلو قمت بتحليل لهذا الكود فسيكون كالآتي :
فرضت v و x قواسم وفرضت ان المتغير v يبتدأ من 1 حتى 100 وكذلك
x من 1 حتى v
فمثلا لو كانت v = 2 فسيكون x = 1 ، 2 وبما ان العدد الأولي يقبل القسمة على نفسه وعلى والواحد فقط دون باقي فلذا استخدمت
If v Mod x = 0 اي يكون قسمة v على x دون باقي اي الباقي يساوي صفر اما بالنسبة لأستخدامك لهذي العبارة ماذا تقصد بهاThen qwasm = qwasm + 1هل تقصد في حالة تحقق الشرط السابق اي اذا كان قيمة باقي قسمة المتغير v على x = صفر فاجعله يضيف على القاسم واحد هل الهدف من هذه العبارة qwasm = qwasm + 1هو حساب قواسم العدد يعني مثلا نفرض ان العدد 6 له اربعة قواسم وهم 1 ، 2 ، 3 ، 6 وحتى نعرف عدد القواسم للعدد 6 بأستخدام
qwasm = qwasm + 1 هل نقول ثلاثة اي 1 ، 2 ، 3 ونستثني العد نفسه اي 6 وبالتالي نعوض في qwasm = qwasm + 1فيكون عدد القواسم للعدد 6 هو اربعة أم لها مغزى آخر ؟
بعد ذلك اذا كان عدد القواسم اثنين تطلب منه أن يطبع العدد لأن اي عدد أولي له قاسمان وان كان اقل أو اكثر لا يطبعه بس ما فائدة
qwasm = 0 الذي كتبتها بالنهاية حتى تضمن ماذا ؟
ولكم مني جزيل الشكر وسدد الله خطاكم ودمت مبدعا استاذنا الفاضل

[fadi9]

الاخت شجون
تحليلك للكود ممتاز و صحيح
بالنسبة لسؤالك لماذا وضعنا qwasm=0
فالسبب حتى نجعل عدد القواسم صفرا من البداية عند اختبار العدد v التالي
لانه اذا لم نفعل فسوف تضاف عدد قواسم العدد v الى عدد قواسم الاعداد التي قبله بالتالي لا نتمكن من معرفة ان العدد اوالي ام لا
والمتحول v تكون قيمته صفر عند اول دخول في الحلقة بدون ان نسند له اي قيمة فقط بمجرد تعريفه
انه متحول رقمي integar
وشكرا

[الاستاذ خليل]

نعم اجابتكم صحيحة
و رد الاخ فادي بجوابك شجون ممتاز


الدرس التالي اضافة ملف الفلاشي بالفجوال بيسك 6 و التحكم فيه انشاء الله

حاولو صنع البرنامج التالي لتشجيع طلابكم بالصف

بفرض لدينا صور الطلاب بمجلد و رقموها حسب رقم الطلاب لكن لنفرضها 5 صور فقط
و اريد ان كلما اضغط على زر تحضر صورته بداخل الفجوال بيسك 6 خلال 15 ثانية تتوقف و خلال هذه 15 ثانية يتم ضهور الصور عشوائيا كل نصف دقيقة تضهر صورة بالبرنامج و في حال وصلنا لل15 ثانية تتوقف
و اذا امكن فيه صوت خلال البحث الى ان يتوقف فيتوقف الصوت

هذه التطبيقات هي التي تركز المعلومات حاولو تطبيقها و اذا ما عرفتو ساعملها انشاء الله

الاستاذ خليل

[fadi9]

السلام عليكم
عفوا استاذ خليل لكن المطلوب غير وضح تماما

هل المقصود ظهور خمس صور في خمس emage ام في واحدة فقط على النموذج ؟؟
وهل يتغير ترتيبها كل نصف دقيقة واين نستعمل 15 ثانية

ايضا كيف يمكن ان نجلب صورة اسمها p موجودة في نفس مجلد البرنامج الى image1 مثلا
اي ماذا نكتب في الكود : ??....... = Image1.Picture
وشكرا

[الاستاذ خليل]

السلام عليكم

لو راجعت لقيت ان الشرح عن الدوال فيه دالة App.Path عن مسار البرنامج هيها طريقة جلب صورة بالكود
نعم و الصور تعرض فقط صورة على الفورم كل نصف دقيقة اي نحتاج لتايمر و لكن بشكل عشوائي تضهر الصور و بعد 15 ثانية تقف .
و هكذا كود الصور مرة اخرى
Image8.Picture = LoadPicture(App.Path + "\b1.jpg")
و اذا لم يعمل احذف "/"

اتمنى ان تكون مفهومة

الاستاذ خليل

[fadi9]

شكرا على التوضيح
الاان اصبح كل شيء مفهوم
خطأي كان فقط في نوع الصورة وليس في الدالة ( كما كنت اعتقد )
حيث كنت اضع الاحقة jpeg بدلا من jpg
اكرر شكري لك مجددا استاذ خليل

[بيرموره]

ارجو من الاستاذ خليل اواي عضو برنامج يقوم بطباعة الاعداد الاوليه من1 الى 100 كاملا وبسرعه جزاكم الله خير

[الاستاذ خليل]

هذه لائحة بأعداد أولية أصغر من 100 وهي: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97

[كنتاكي لوى]

كيف يمكن حساب العوامل الاولية لعدد معين ما هي الاكواد ؟

[الاستاذ خليل]

تعمل لوب يقوم بقسمة الرقم على الاعداد حتى العدد فاذا كان عدد النواتج 2 فهو اولي و إلا ليس اولي
v هو الرقم الذي تريد معرفة انه اولي او لا
و يمكنك وضع سطر لتعريفه مثلا


v=val(text1.text)


qwasm هو عدد الارقام التي قسمت على العدد v


qwasm =0

For x = 1 To v
If v Mod x = 0 Then qwasm = qwasm + 1


Next x



الان تكتب شرط يضهرلك مثلا مسج انه عدد اولي في حال ان القواسم هي رقمين فقط

if qwasm =2 then
msgbox("هذا العدد أولي")
endif


جرب الكود و قلي ما الذي حصل معك

[كنتاكي لوى]

شكرا للاستاذ المبدع

[الاستاذ خليل]

حياك الله اسعدت بأنك استفدت