الدرس الحادي عشر : عمل برنامج اختيار من متعدد عشوائيا
السلام عليكم
الدرس الحادي عشر : عمل برنامج اختيار من متعدد عشوائيا الدرس هنا بالصوت و الصورة مع الكود الكود : كود:
Dim trueq, falseq As Long برنامج جدول الضرب يعتمد على نفس الطريقة برنامج حقائق القسمة برنامج الضرب في 10 او 100 او الف برنامج التقريب لاقرب اي منزلة تريدونها برنامج لحلول معادلة معينة . برنامج لمعرفة اي ربع لنقاط التمثيل على المحور السيني و الصادي مثلا او اي برنامج تحبونه من منهجكم . الاستاذ خليل |
مشكلة
يااستاذ اليوم ظهرت مشكلة....BB FLashBack M.P لا بعمل ظهرت كتابة please open a movie لاادري ما هو السبب ال 21 درس مرت حلوى الا هذا ما هو المشكل؟ و السلام عليكم
|
البرنامج يعمل اعد تحميله من جديد
قد لا تكون حملته كاملا الاستاذ خليل |
السلام عليكم ورحمة الله وبركاته.
أولا .. اعتذر للفاضل الكريم / الأستاذ خليل لتأخرى فى التطبيقات السابقة. ظروف طارئة وانتهت تقريبا ... وسأحاول ارسال التدريبات من الغد إن شاء الله. فأرجو المعذرة .. أكثر الله من أمثالك وجعل كل من تعلم منك علما أو صبرا لتعليم غيره أو حبا لتقديم الخير .. فى ميزان حسناتك يوم القيامة . أخى الفاضل /zine pef حدثت لى نفس المشكلة عند تحميل أحد الدروس السابقة ... فأعدت تحميل الدرس ووجدته جيدا ... جرب مرة اخرى تحميل الدرس لأنه يعمل معى ... جزاكم الله خيرا. |
شكرا للأستاذ و الأخت امال2005 لقد اعدت التحميل للمرة الثانية و الحمد لله و انا الأن اقوم بالواجب الى القاء بالغد انشاء الله...
|
انتظر تطبيقاتكم و شكرا لكم
الاستاذ خليل |
واجب عن الدرس الحادي عشرة
1 مرفق
شكرا استاذ خليل بدأت الأمور تحلو اني صممت الواجب بعملية الضرب وظهرت اعداد كبيرة اي بالأس يجهلها بعض التلاميد مثل 5.7e+07 اي معتاها 57000000 و لم استطيع وضع الكود حتى يكون العدد بدون أس.. وشكرا مرة اخى
|
السلام عليكم
شكرا على التطبيق و اليك حل مشكلتك استبدل الكود السابق لوضع الاجابات بالتالي : كود:
Com1.Caption = Format(b * a, "###########") |
1 مرفق
السلام عليكم
اليكم الواجب في المرفق لكن المعذرة فهو مصمم بطريقة مختلفة وايضا لم استطع تحميله كارتباط |
اخي zine pef
احسنت عملك ممتاز !! عندي سؤال لو سمحت؟ هل تشرح لي الكود التالي فلم افهمه Dim Start As Long Start = Timer Do While Timer < Start + 3 'a 3 second delay (Change To any numer you want) DoEvents ' Yield To other processes. Loop وشكرا |
شرح
هذا الكود دكره الأستاذ في الدرس
Dim zine As Long zine = Timer Do While Timer < zine + 3 'a 3 second delay (Change To any numer you want) 3ثواني المهلة تستطيع تغيرها الى ارقام اخرى DoEvents ' Yield To other processes. Loop بعد ادن الأستاذ .. في بداية DIM توضع اي حرف من الحروف او اي كلمة وحافض عليها حتى النهاية مثل ZINE و الأداة TIMER هو موقت اي عداد يحسب الوقت.. وفي هذا الكود موضوع 3 ثواني ...بعد مرور 3 ثواني يتغير السؤال و اذا حدفت كل الكود فلا تكون المهلة بين السؤال و الأخر..وهذا ما عندي اقوله وشكرا |
شكرا اخي zine pef
لكن مامعنى العبارة DoEvents ' Yield To other processes ملاحظة :البرنامج جدول الضرب لا يعمل بشكل كامل توجد مشكلة دائما في poer point او نقص ما وهو الحاجة الى حدث ( تحديث الشريحة ) فهل يوجد هذا الحدث |
1 مرفق
fadi9 عملك لا يضهر بشكل جيد بس نضغط على L0 و غيره يخرج لكن استبدله بازرار و سيعمل جيدا
DoEvents فائدتها تجعل البرنامج يشغل اوامره الكود السابق فائدته يوقف تنفيذ الكود 3 ثواني ' Yield To other processes هي شرح لعمها بالانجليزية يعني تقدر تمسحها الكود السابق يعمل عمل التايمر فاذا كنت تريد تنفيذ شي بعد زمن الصق الكود السابق و اكتب بعده الكود الذي تود تنفيذه بعده . بالنسبة لتحديث الصفحة فلا يلزمنا انت قول لي وش تريد تنفذ و سأحاول حله زر ابدا هو يهيء لك السؤال كاملا فهو يعمل تحديث لك و فكرتك جيده بعمل ليبل يغطي كل الصفحة و اذا ضغط عليه يبدا السؤال ساعدل ملفك ليعمل بشكل افضل الاستاذ خليل |
1 مرفق
اتمنى للأخfadi قد اتضحت لك الأمور .. وبالنسبة لواجيك غيرت lL0/L1/L2/L3 من CLICK .الى MOSSE MOVE وانه يشتغل جيد..
الأستاذ خلبل لي مشكلة صغيرة في الملف و هي المربعات البيضاء اريدها تختفي تصبح مثل لون الشريحة في المرفق.. |
شكر وتهنئة
الشكرك والتقدير لك يااستاذى الفاضل
الشرح رائع رائع رائع فوق ما كنت اتصور واتمنى المزيد من الدروس المفيدة القيمة مثل هذا الدرس |
شكرا اخي Aioooooooo على المرور يالله قوم بالواجبات و التدريبات و سعدنا في البحث حتى تحلو الأمور اكثر و تصبح هذه الدورة في P_point جد حسنة.. الى القاء القريب..
|
1 مرفق
السلام عليكم
فيه شيء غير مضبوط في هذا العمل ارجو المساعدة رفعت حافظ |
تحياتي للجميع
الشكر الكبير للاستاذ خليل على تعديل البرنامج فقد اصبح يعمل بشكل جيد وعذرا لاني تسرعت في بعض الاسئلة بدون ان اقرا الدرس الاخير بتمعن الان اصبح كل شيئ مفهوم ملاحظة : اني اعمل على الاصدار 2007 واحفظ الملفات بصيغة 2003 والظاهر انه توجد مشكلة عند الحفظ وليس في الكود الموضوع فمثلا لقد غيرت فقط لون زر الامر L0 في البرنامج المعدل وقمت بالحفظ ففوجئت ان البرنامج عاد لنفس المشكلة القديمة ( الخروج عند النقر على اليبل او كمند الاجابة) ولم يعد يعمل كما هو مطلوب ايضا جربت تغيير حدث CLIC الى MOUSEDOWM لكن بلا فائدة ! بقيت المشكلة ساتعمق في الاصدار 2007 من POERPOINT عسى ان اتجاوز هذه المشكلة واستمر في الدورة او قد اعاود استخدام الاصدار 2003 لقد اتعبتكم معي ... شكرا لكم والى اللقاء |
1 مرفق
السلام عليكم ورحمة الله وبركاته...
صراحة أستاذى الكريم ... لم أكن أتوقع أن أظل أعمل مع برنامج الباور بوينت طوال يوم كامل إلا اليوم... فكرة التايمر فى منتهى الروعة ... حاولت أن أصمم برنامج يماثل برنامج " من سيربح الميليون" ... وأستخدم فكرة الدرس فيه ... ونجحت إلى حد ما ... لكن هناك مشكلة لم أعرف حلها ... وهى كيفية الاحتفاظ بقيمة الأرقام فى متغير ... أرسلت الملف كمرفق فى تصميمه الأول ... وأعرف أنه لن يعجبك الآن أستاذى الفاضل .. ولكن سأطوره ... وليتنى أجد حلا لمشكلة الاحتفاظ بالأرقام 100 ، 200 ، 300 ، 500 ، ... ثم ضربها فى 2 سأظل مدينة لك أستاذى الكريم برغبتى الملحة فى التعرف أكثر على هذا البرنامج.. الذى جعلتنا نتعامل معه بشكل أفضل . أكرر شكرى المتجدد والدائم لك. جزاك الله خيرا وجعل هذا العمل نورا لك فى ميزان حسناتك. تحياتى |
zine pef يجب ان تضع لون الخلفية باك كالور text1 نفس لون خلفية للشريحة الغريب ان الخاصية المسؤولة عن هذا التغيير هي BackStyle و هي لا تتغير في العرض بس في التصميم
و هي احدى عيوبه . لكن الدرس التالي فيه حل لمشكلتك يمكنك استخدام الدرس التالي في التصميم. |
و شكرا للا عضاء جميعا على التفاعل
aiooooooooooooo refathafez fadi9 Amel2005 zine pef refathafez حدد المشكلة بالضبط و تستطيع استخدام برامج الاعضاء السابقة فيها شي قد تكون ناسيه fadi9 خيرا ان شاء الله Amel2005 لحفظ المتغيرات يجب التصريح بهم باعلى الكود اكتبي كود:
Dim q, n2, n3, n4, n5, n6 As Integer كود:
Dim trueq, falseq, n As Long اي قيم ستستعمليها لاحقا في نفس الشريحة تعرفيها باعلى الكود و اذا كان المتغير غير رقمي تتغير جملة Integer الى النوع الذي تريدينه لاحظي دروس المتغيرات اتمنى ان افدتك و عملك روعة اتمنى ان تكمليه و شكرا جزيلا |
1 مرفق
السلام عليكم ورحمة الله وبركاته.
برنامج "من سيربح الميليون" فى جدول الضرب للمرحلة الابتدائية فى صورته النهائية "تقريبا" إعداد / Amel2005 إشراف أستاذنا الفاضل جزاه الله عنا خيرا ونفعه ونفعنا بعلمه / الأستاذ خليل أرجو أن ينال إعجابكم جميعا ... وإبداء ملاحظاتكم . جزاكم الله خيرا . |
عمل رائع اختي امل
لكن يوجد به اعطال مثلا اذا كانت قيمة المتغيرات الجديدة كبيرة سيرسل خطأ استبدلي الجملة التالية للتصريح كالتالي : كود:
Dim a, b, d, o As Integer كود:
Dim a, b, d, o As Long و ضيفي عليه ميزات حذف اجابتين باستعمال اخفاء فزبل بعمل متغير من 3حالات مثلا فهو يخفي يعمل فزبل لزر 2-3 او 2-4 او 3-4 ايضا ينتهي البرنامج عند وصول الى 15 سؤال ايضا ياريت الصوت بس شويه سيكون صعب ساحاول عمل دروس تقدمية بالموضوع اذا تريدين نساعدك بالكود حاضرين المفاجئة عملت مسابقة بالباور بوينت مع الاكسس في طور الانشاء تم استدعاء الاسئلة بنجاح جميل ان نرى اعمال متميزة بالدورة |
الأستاذة Amel2005 عمل جيد و ممتاز واصلي في تطويره
|
الاخت امل فكرة رائعة
للاحتفاظ بقيمة المتغير يمكنك استعمال التعليمة ctatic انظري الشرح عن المتغيرات في الدرس 12 ملاحظة: يوجد تكرار في بعض الاسئلة , وايضا الارقام الضروبة اغلبها 10 او 100 عندي سؤال من فضلك : ما معنى التعليمة msoCTrue |
أستاذنا الفاضل / الأساذ خليل
جزاك الله خيرا لتشجيعك لنا ... وما أعمالنا إلا ثمرة مجهودك وشرحك لنا أستاذنا الكريم. الحمد لله ... أضفت للعمل الأصوات المشروحة فى الدرس الثالث عشر وسأكمل تطويره .... وسأستبدل نوع المتغيرات كما أشرت أستاذى الكريم. ولا غنى لنا عن توجيهاتك ومعاونتك . بارك الله فيك. وكأنى أتنسم من كلماتك أن هناك دورة فى الأكسس ستكون إن شاء الله. بالمناسبة / لم أكن أن الاكسل أيضا يمكن عمل برامج به إلا من فترة قصيرة فقط . يبدو أنك أستاذنا ستحمسنا للتوسع فى تعلم كيفية برمجة الأوفيس . لك احترامنا وتقديرنا. أخى الكريم / zine pef أشكرك لتشجيعك ... وأصارحك القول ... أنى لا أبدأ فى عمل أى تطبيق إلا بعد الاطلاع على تطبيقك أولا ... فأنسخ أكوادك وأبدأ أطور فيها (أرجو أن تسامحنى لهذا التلصص والاقتباس من عملك) بارك الله فيك. أخى الفاضل / fadi9 جزاك الله خيرا ... وزادك علما . وسأنفذ ما أشرت به اقتباس:
ولكن فى VBA نضيف mso كسابقة لها . وظيفتها اظهار الشكل . تحياتى للجميع |
(أرجو أن تسامحنى لهذا التلصص والاقتباس من عملك).....أختاه لا يلزم ان تتكرر مثل هذه الأقوال لأن نحن اخوى في طريق العلم و ابونة و استاذنا الأخ خليل ..ولكي نتعلم نأخد كلمة من عندك و الأخرى من عند fadi و تلك من عند الأخ حافظ و الى اخره...و شكرا والف شكر على المجملة هدي..
أختاه هل لاحظتي الخلل الصغير الموجود في من يربح 1000000 لهادا اليوم مع الصوت؟ هل عندك فكرة من سيربح 1000000 بالأسئلة اي سؤال و جواب بدون الأعداد؟ الأسئلة تكون مثل هذا: |
سيتم بعون الله عمل مسابقة تقبل ارقام و نصوص بس اصبروا شويه
|
|
الساعة الآن 07:06 PM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir