منتدى جزيرة الرياضيات

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)
-   -   درس اليوم الرابع عشر عن Loop(التكرار)بإستخدام For (http://www.hesab.net/vb/showthread.php?t=2170)

الاستاذ خليل 07-28-2006 12:53 AM

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

الدرس مشروح بالصور


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

الاستاذ خليل

fadi9 07-28-2006 06:56 PM

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

shjooon 07-28-2006 10:44 PM

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

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

الاستاذ خليل 07-29-2006 01:18 AM

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

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

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

الاستاذ خليل

الاستاذ خليل 07-29-2006 01:37 AM

المطلوب منكم الان معرفة الاجابة على ما يلي :
ما هي الادوات الازمة لتنفيذ هذا الكود ؟
و ما هو نتيجة تنفيذ هذا الكود ؟
ما هي فائدة الجملة 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 07-29-2006 07:19 PM

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

shjooon 07-29-2006 08:27 PM

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

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

اني اعتقد اجابة الأخ فادي صحيحة بس اني عندي استفسارلو قمت بتحليل لهذا الكود فسيكون كالآتي :
فرضت 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 07-29-2006 10:00 PM

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

الاستاذ خليل 07-30-2006 12:55 AM

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


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

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

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

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

الاستاذ خليل

fadi9 07-31-2006 06:07 PM

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

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

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

الاستاذ خليل 08-01-2006 01:52 AM

السلام عليكم

لو راجعت لقيت ان الشرح عن الدوال فيه دالة App.Path عن مسار البرنامج هيها طريقة جلب صورة بالكود
نعم و الصور تعرض فقط صورة على الفورم كل نصف دقيقة اي نحتاج لتايمر و لكن بشكل عشوائي تضهر الصور و بعد 15 ثانية تقف .
و هكذا كود الصور مرة اخرى
كود:

Image8.Picture = LoadPicture(App.Path  + "\b1.jpg")
و اذا لم يعمل احذف "/"

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

الاستاذ خليل

fadi9 08-01-2006 05:52 PM

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

بيرموره 01-22-2008 09:31 PM

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

الاستاذ خليل 01-23-2008 04:59 AM

هذه لائحة بأعداد أولية أصغر من 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

كنتاكي لوى 12-14-2011 10:28 AM

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

الاستاذ خليل 01-01-2012 11:28 PM

تعمل لوب يقوم بقسمة الرقم على الاعداد حتى العدد فاذا كان عدد النواتج 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

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

كنتاكي لوى 01-03-2012 11:26 AM

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

الاستاذ خليل 01-03-2012 11:04 PM

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


الساعة الآن 06:52 PM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir