الدرس العاشر :تطبيق عملي على انتاج تقويم عشوائي اجابته صح أو خطأ

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

السلام عليكم

هنا الدرس بالصوت و الصورة و عذرا على الاطالة (http://www.hesab.net/PowerPoint/21-true_false.exe)
الاستاذ خليل

سيتم ادراج الكود الخاص به لكي لا يكون صعبا المطلوب عمل برنامج بنفس النمط من مناهجكم و تغيير ما يلزم حسب رغبتكم .بدون تطبيقات منكم لن يكون للدورة معنى .

Dim trueq, falseq As Integer
Dim jawab As Boolean



Private Sub Comfalse_Click()
Comfalse.Enabled = False
Comtrue.Enabled = False
If jawab = False Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq

End Sub

Private Sub Comsoal_Click()
Randomize

Dim a, b As Integer
a = Int(Rnd * 2)

b = Int(Rnd * 101)

If a = 0 Then
soal.Caption = "ناتج ضرب " & b & "×" & 10 & "=" & b * 100
jawab = False
Else
soal.Caption = "ناتج ضرب " & b & "×" & 10 & "=" & b * 10
jawab = True
End If
Comtrue.Enabled = True
Comfalse.Enabled = True
End Sub

Private Sub Comtrue_Click()
Comtrue.Enabled = False
Comfalse.Enabled = False
If jawab = True Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
End Sub

[refathafez]

السلام عليكم اخي الفاضل أ / خليل
بمشيئة الله سو ف نكون عند حسن ظنك
ولك التحية والتقدير
رفعت حافظ

[zine pef]

شكرا الأستاذ خليل هذا مجهود كبير تبدله جزاك الله كل الخير والعافية وشكر للأخ حافظ للأهتمام و المواصلة ....في هذا الواجب استاذي في النتيجة و عدد الأسئلة لا ترجع الى 0 في بداية العمل مشكلة

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

الاخ zine pef حلك بسيط قم باعطاءخاصية caption ما تريد
اكتب عدد الاسئلة : 0
و في النتيجة
النتيجة : 0
و في السؤال
اعطه كلمة سؤال
اجعل خاصية Enabled للزر صح و خطا false

الملف مرفق مع التعديل

[أحمد حكمي]

استاذ خليل بارك الله فيك ونفع بك
الدروس رائعة جداً جداً ومن تصميم استاذ مبدع
والشيء الاجمل في الدورة تطبيقات الزملاء الرائعة وسرعة تجاوبهم مع الدروس
وهذا يدل على نجاح الدوره واستفادة الزملاء منها
نسأل الله ان يجعل عملك هذا في ميزان حسناتك

[refathafez]

السلام عليكم ورحمة الله وبركاتة
لي استفسار عند الاستاذ خليل اذا كنت عاوز اعمل الكود (24 × 54 + 24 × 46 )
= 24 ×100 لكي تستخدم كتحليل بسيط بإخراج العامل المشترك أو استخدمه في ايجاد مضروب
اي عدد صحيح وجزاك عنا خيرا
هل ممكن ؟ وهذا هو الواجب

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

شاكرا للاستاذ احمد محمد حكمي افدنا بما تريده بالدورة لكي تتطور اكثر
عمل ممتاز اخ حافظ

بالنسبة لسؤالك قم بتصميم ما تريد و ساساعدك بعون الله في الكود

لازم تحدد بالضبط ما سيحصل

هل سينتج سؤال عشوائي بهذه الصيغة
(24 × 54 + 24 × 46 )
رقم أ ×رقم ب + رقم أ ×رقم ج =رقم أ (رقم ب+رقم ج)

يعني يلزمك 3 متغيرات عشوائية لانهم ثلاثة ارقام مختلفين و تعطيهم كود لاضهار السؤال لكن ما ادري ما تقصد اكتبه و سوف اساعدك بالكود

[refathafez]

السلام عليكم اخي الفاضل جزاكم الله خير الجزاء
سوف اعمله وارفعة لحضريك
رفعت حافظ

[Amel2005]

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

أستاذى الفاضل /
المرفق عبارة عن تدريبات لجدول الضرب حتى (12)
ولكن هناك مشكلة ما !!!

عندما أضغط على زر سؤال جديد دون الإجابة ... لا تتغير معى الليبل عدد الأسئلة...
فحاولت برمجة الزر بوضع
falseq = falseq + 1
ولكن لم تجدى هذه الطريقة ...
فكيف أعالج هذا الكود ..
لك خالص الشكر .

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

أكرر شكرى لك ولا أقول سوى
جزاك الله خيرا.

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

اخت امل

يمكنك تصريح متغير ثالث (باعلى صفحة الاكواد حتى يتم استدعائه في اي مكان بالشريحة) و جعله في كود سؤال جديد يحسب 1 كلما تم الضغط عليه
مرفق تعديل الملف

بالنسبة لاستعمال اوس تستعملي الرمز (^)

اعملي تطبيق و ساحاول التحايل على المشكلة (و لي خبرة في التحايل)

الاستاذ خليل

[zine pef]

الأخ الفاضل خليل بحث عن كتب بوربوينت و فزيال بزيك Vb ولم اعثر عليه ان كان لديك مكان دل عليه وشكرا

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

لا داعي اعظم موقع برمجي للاكواد و الذي استخدمه كثيرا
هو
http://www.planet-source-code.com/vb/default.asp?lngWId=1

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

[shamal]

السلام عليكم
شكرا لك استاذنا الغالي خليل وفقك الله

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

و عليكم السلام عفوا

[refathafez]

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

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

نحن سننهي في 11/6 و ننتفرغ شوية .

حياك الله استاذ رفعت و شكرا على التواصل