درس اليوم الرابع عشر عن Loop(التكرار)بإستخدام For
السلام عليكم
الدرس مشروح بالصور المطلوب عمل برنامج يقوم بطباعة الأعداد الزوجية إذا ضغطنا على زر و أيضا زر آخر يقوم بالمسح و أيضا زر يقوم بطباعة الأعداد العشرية من 0 الى - 10 بفارق 0.1 . الاستاذ خليل |
1 مرفق
السلام عليكم
تحية طيبة لك استاذ خليل سلمت يداك على هذا الدرس والمعلومات الوافرة الهامة ارفق المشروع مع بعض الاضافات لكن نسيت كتابة الاسم عليه ارجو اخباري هل يعمل هذا البرنامج ام لا وشكرا |
2 مرفق
السلام وعليكم ورحمة الله وبركاته
استاذنا الفاضل بارك الله فيك الشرح كان واضح جدا بس يوم سويت تمرين الاعداد العشرية لاحظت ان الى 5.9 صحيح الفرق 0.1وحتى بقية الارقاه هو الفرق نفسه بس اذا اردت اتحكم في وضع الارقام الذي على يمين الفاصلة العشرية بحيث تكون منزلة وحدة فكيف الي عمل ذلك ويمكنك ملاحظة المرفق حتى يتضح الك ماذا أقصد ولكم مني جزيل الشكر |
ممتاز عملكما ممتاز
و بالنسبة للسؤالك يا شجون الحل عند فادي كوده ممتاز كود:
For i = 0 To 100 |
المطلوب منكم الان معرفة الاجابة على ما يلي :
ما هي الادوات الازمة لتنفيذ هذا الكود ؟ و ما هو نتيجة تنفيذ هذا الكود ؟ ما هي فائدة الجملة Mod ؟ كود:
Dim v, x, qwasm As Integer |
السلام عليكم
ان نتيجة تنفيذ الكود المذكور هي الحصول على كافة الاعداد الاولية المحصورة بين 1 حتى 100 وطباعتها في text3 وفائدة الكلمة mod تعني باقي القسمة للعدد الذي قبلها على العدد البعدها ويلزم من ادوات لتنفيذ الكود فقط مربع نص text box ونكتب الكود في حدث form load أويمكن استعمال زر امر command لذلك وان شاء الله يكون الجواب صح ما رأي الاخت شجون ؟؟ |
بسم الله الرحمن الرحيم
السلام وعليكم ورحمة الله وبركاته اني اعتقد اجابة الأخ فادي صحيحة بس اني عندي استفسارلو قمت بتحليل لهذا الكود فسيكون كالآتي : فرضت 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 الذي كتبتها بالنهاية حتى تضمن ماذا ؟ ولكم مني جزيل الشكر وسدد الله خطاكم ودمت مبدعا استاذنا الفاضل |
الاخت شجون
تحليلك للكود ممتاز و صحيح بالنسبة لسؤالك لماذا وضعنا qwasm=0 فالسبب حتى نجعل عدد القواسم صفرا من البداية عند اختبار العدد v التالي لانه اذا لم نفعل فسوف تضاف عدد قواسم العدد v الى عدد قواسم الاعداد التي قبله بالتالي لا نتمكن من معرفة ان العدد اوالي ام لا والمتحول v تكون قيمته صفر عند اول دخول في الحلقة بدون ان نسند له اي قيمة فقط بمجرد تعريفه انه متحول رقمي integar وشكرا |
السلام عليكم
نعم اجابتكم صحيحة
و رد الاخ فادي بجوابك شجون ممتاز الدرس التالي اضافة ملف الفلاشي بالفجوال بيسك 6 و التحكم فيه انشاء الله حاولو صنع البرنامج التالي لتشجيع طلابكم بالصف بفرض لدينا صور الطلاب بمجلد و رقموها حسب رقم الطلاب لكن لنفرضها 5 صور فقط و اريد ان كلما اضغط على زر تحضر صورته بداخل الفجوال بيسك 6 خلال 15 ثانية تتوقف و خلال هذه 15 ثانية يتم ضهور الصور عشوائيا كل نصف دقيقة تضهر صورة بالبرنامج و في حال وصلنا لل15 ثانية تتوقف و اذا امكن فيه صوت خلال البحث الى ان يتوقف فيتوقف الصوت هذه التطبيقات هي التي تركز المعلومات حاولو تطبيقها و اذا ما عرفتو ساعملها انشاء الله الاستاذ خليل |
السلام عليكم
عفوا استاذ خليل لكن المطلوب غير وضح تماما هل المقصود ظهور خمس صور في خمس emage ام في واحدة فقط على النموذج ؟؟ وهل يتغير ترتيبها كل نصف دقيقة واين نستعمل 15 ثانية ايضا كيف يمكن ان نجلب صورة اسمها p موجودة في نفس مجلد البرنامج الى image1 مثلا اي ماذا نكتب في الكود : ??....... = Image1.Picture وشكرا |
السلام عليكم
لو راجعت لقيت ان الشرح عن الدوال فيه دالة App.Path عن مسار البرنامج هيها طريقة جلب صورة بالكود نعم و الصور تعرض فقط صورة على الفورم كل نصف دقيقة اي نحتاج لتايمر و لكن بشكل عشوائي تضهر الصور و بعد 15 ثانية تقف . و هكذا كود الصور مرة اخرى كود:
Image8.Picture = LoadPicture(App.Path + "\b1.jpg") اتمنى ان تكون مفهومة الاستاذ خليل |
شكرا على التوضيح
الاان اصبح كل شيء مفهوم خطأي كان فقط في نوع الصورة وليس في الدالة ( كما كنت اعتقد ) حيث كنت اضع الاحقة 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 هو الرقم الذي تريد معرفة انه اولي او لا و يمكنك وضع سطر لتعريفه مثلا كود:
كود:
كود:
|
شكرا للاستاذ المبدع
|
حياك الله اسعدت بأنك استفدت
|
الساعة الآن 04:00 PM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir