منتدى جزيرة الرياضيات - الدرس الحادي عشر : عمل برنامج اختيار من متعدد عشوائيا

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)

- منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)

و شكرا للا عضاء جميعا على التفاعل
aiooooooooooooo
refathafez
fadi9
Amel2005
zine pef

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

fadi9 خيرا ان شاء الله
Amel2005 لحفظ المتغيرات يجب التصريح بهم باعلى الكود
اكتبي

كود:

Dim q, n2, n3, n4, n5, n6 As Integer

اي سيصبح الكود هكذا باول مكان بالكود:

كود:

Dim trueq, falseq, n  As Long

Dim a, b, d As Integer

Dim L1, L2, L3, L4, T1, T2, T3, T4 As Integer

Dim q, n2, n3, n4, n5, n6 As Integer

الزبدة
اي قيم ستستعمليها لاحقا في نفس الشريحة تعرفيها باعلى الكود و اذا كان المتغير غير رقمي تتغير جملة Integer الى النوع الذي تريدينه لاحظي دروس المتغيرات

اتمنى ان افدتك و عملك روعة اتمنى ان تكمليه

و شكرا جزيلا

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

برنامج "من سيربح الميليون" فى جدول الضرب للمرحلة الابتدائية
فى صورته النهائية "تقريبا"
إعداد / 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
جزاك الله خيرا ... وزادك علما .
وسأنفذ ما أشرت به

اقتباس:

ما معنى التعليمة msoCTrue

هى مثل True المستخدمة فى لغة الفيجوال بيسك .
ولكن فى VBA نضيف mso كسابقة لها . وظيفتها اظهار الشكل .

تحياتى للجميع

(أرجو أن تسامحنى لهذا التلصص والاقتباس من عملك).....أختاه لا يلزم ان تتكرر مثل هذه الأقوال لأن نحن اخوى في طريق العلم و ابونة و استاذنا الأخ خليل ..ولكي نتعلم نأخد كلمة من عندك و الأخرى من عند fadi و تلك من عند الأخ حافظ و الى اخره...و شكرا والف شكر على المجملة هدي..
أختاه هل لاحظتي الخلل الصغير الموجود في من يربح 1000000 لهادا اليوم مع الصوت؟
هل عندك فكرة من سيربح 1000000 بالأسئلة اي سؤال و جواب بدون الأعداد؟
الأسئلة تكون مثل هذا:

سيتم بعون الله عمل مسابقة تقبل ارقام و نصوص بس اصبروا شويه