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

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)
-   -   الدرس العاشر :تطبيق عملي على انتاج تقويم عشوائي اجابته صح أو خطأ (http://www.hesab.net/vb/showthread.php?t=3016)

الاستاذ خليل 07-22-2007 06:42 AM
الدرس العاشر :تطبيق عملي على انتاج تقويم عشوائي اجابته صح أو خطأ
 
السلام عليكم

هنا الدرس بالصوت و الصورة و عذرا على الاطالة
الاستاذ خليل

سيتم ادراج الكود الخاص به لكي لا يكون صعبا المطلوب عمل برنامج بنفس النمط من مناهجكم و تغيير ما يلزم حسب رغبتكم .بدون تطبيقات منكم لن يكون للدورة معنى .
كود:
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 07-22-2007 03:51 PM
شكروتقدير
 
السلام عليكم اخي الفاضل أ / خليل
بمشيئة الله سو ف نكون عند حسن ظنك
ولك التحية والتقدير
رفعت حافظ

zine pef 07-22-2007 04:30 PM
الواجب
 
1 مرفق
شكرا الأستاذ خليل هذا مجهود كبير تبدله جزاك الله كل الخير والعافية وشكر للأخ حافظ للأهتمام و المواصلة ....في هذا الواجب استاذي في النتيجة و عدد الأسئلة لا ترجع الى 0 في بداية العمل مشكلة

الاستاذ خليل 07-22-2007 11:39 PM
السلام عليكم
 
1 مرفق
الاخ zine pef حلك بسيط قم باعطاءخاصية caption ما تريد
اكتب عدد الاسئلة : 0
و في النتيجة
النتيجة : 0
و في السؤال
اعطه كلمة سؤال
اجعل خاصية Enabled للزر صح و خطا false

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

أحمد حكمي 07-23-2007 12:32 AM
استاذ خليل بارك الله فيك ونفع بك
الدروس رائعة جداً جداً ومن تصميم استاذ مبدع
والشيء الاجمل في الدورة تطبيقات الزملاء الرائعة وسرعة تجاوبهم مع الدروس
وهذا يدل على نجاح الدوره واستفادة الزملاء منها
نسأل الله ان يجعل عملك هذا في ميزان حسناتك

refathafez 07-23-2007 04:05 AM
1 مرفق
السلام عليكم ورحمة الله وبركاتة
لي استفسار عند الاستاذ خليل اذا كنت عاوز اعمل الكود (24 × 54 + 24 × 46 )
= 24 ×100 لكي تستخدم كتحليل بسيط بإخراج العامل المشترك أو استخدمه في ايجاد مضروب
اي عدد صحيح وجزاك عنا خيرا
هل ممكن ؟ وهذا هو الواجب

الاستاذ خليل 07-23-2007 04:14 PM
شاكرا للاستاذ احمد محمد حكمي افدنا بما تريده بالدورة لكي تتطور اكثر
عمل ممتاز اخ حافظ

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

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

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

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

refathafez 07-23-2007 06:37 PM
شكرا للرد
 
السلام عليكم اخي الفاضل جزاكم الله خير الجزاء
سوف اعمله وارفعة لحضريك
رفعت حافظ

Amel2005 07-25-2007 02:24 AM
1 مرفق
السلام عليكم ورحمة الله وبركاته
ألف شكر أستاذنا الكريم الأستاذ خليل لهذا الدرس الممتع الجميل.
نسيت رابط الموقع الممكن تحميله ... فأرجو المعذرة فقد أرسلت الملف كمرفق .

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

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

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

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

الاستاذ خليل 07-26-2007 07:24 AM
1 مرفق
اخت امل

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

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

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

الاستاذ خليل

zine pef 07-27-2007 09:08 PM
الأخ الفاضل خليل بحث عن كتب بوربوينت و فزيال بزيك Vb ولم اعثر عليه ان كان لديك مكان دل عليه وشكرا

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

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

shamal 05-03-2008 06:57 PM
السلام عليكم
شكرا لك استاذنا الغالي خليل وفقك الله

الاستاذ خليل 05-05-2008 06:29 AM
و عليكم السلام عفوا

refathafez 05-08-2008 02:04 AM
تحياتي الي جميع الاخوه الافاضل
اقتربت الامتحانات وسوف تقترب الاجازة بمشيئة الله
وعلي اخونا الاستاذ خليل الاستعداد للجديد في هذا الصيف
وسوف تنتهي امتحانات الصفوف الثلاثة المتوسطة 5 / 6 والثانوي 20 /6 ونتفرغ
وتحياتي للجميع وسلامي الخاص للأخ الفاضل الاستاذ خليل

الاستاذ خليل 05-11-2008 05:41 PM
نحن سننهي في 11/6 و ننتفرغ شوية .

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


الساعة الآن 05:22 PM

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