محمد
(( المدير العام ))
دعاء الدولة : عدد المساهمات : 3173 33076 تاريخ الميلاد : 25/07/1977 تاريخ التسجيل : 28/02/2010 العمر : 46 مدرس - مدير الموقع عزيمة وإرادة
بطاقة الشخصية المدير العام: 10
| موضوع: انتاج برامج تفاعلية بإستخدام برنامج الباور بوينت تعلم و اصنع دروسك التعليمية الخميس أكتوبر 21, 2010 1:32 am | |
| السلام عليكم و رحمة الله و بركاته
احببت ان انقل لكم خبرتي في صنع برامج تفاعلية باستخدام الباور بوينت الذي جهلت امكانياته في بادئ الامر و لكم الحكم على السؤال هل تعرف كل شيء بالباوربوينت ؟
كعادتي السنوية اقدم لكم دورة مفيدة
سيكون هذا الموضوع متجدد يرجى التحديث في كل مرة لتجد جديد الدروس.
الدرس الأول طريقة اضافة شريط ادوات الفجوال بيسك و شرح بعض رموز الشريط [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الدرس الرابع :شرح خصائص الأدوات
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الدرس الخامس: الشفرة و كيفية كتابتها و الدوال و الاحداث و دالة if وصلنا الى الجزء الاهم الذي من الضروري ان تنجزوا فروضها و ترسلوها بالمنتدى [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] ملاحظة اذا فتحته قم باختيار للقراءة فقط لكي يفتح لان تعديله يتطلب رقم سري حيث انني لا اريد احد يعدل على الملف
و هنا ملفات تطبيقية على المواضيع المشروحة (صوت و صورة) يرجى زيادة الصوت لانه سجل ضعيفا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
يرجى قراءة و محاولة التطبيق جيدا
الدروس التاالية سنطبق عملي انتاج دروس تفاعلية يرجى ادراج الواجب
الدرس السادس : دالة اضهار المسج msgbox بهذا الدرس بدأنا بإختبار اجابات التلاميذ بعمل درس عملي ليكون التعلم ذاتيا للطلاب باستعمال دالة المسج نحتاج لصفحة او جزء من صفحات الكتاب المدرسي الذي تدرسه بطباعتها بالسكانرو ادخالها للحاسوب [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] بالصوت و الصورة و التطبق العملي.
الدرس السابع التحقق من القيم المدخلة رقمية او نصية
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] الواجب عمل برنامج يتحقق من قيمة رقمية رقمية او نصية تحتاجون الى textbox زر و تقولون له في الزر اذا كانت القيمة رقمية ارسل مسج القيمة رقمية اذا كانت القيمة نصية يرسل مسج ان القيمة نصية
الدرس الثامن : نقل القيم من شريحة لأخرى
الدرس هنا بالصوت و الصورة [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الدرس التاسع : كيفية عمل حساب الدرجات [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الدرس العاشر :تطبيق عملي على انتاج تقويم عشوائي اجابته صح أو خطأ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
سيتم ادراج الكود الخاص به لكي لا يكون صعبا المطلوب عمل برنامج بنفس النمط من مناهجكم و تغيير ما يلزم حسب رغبتكم .بدون تطبيقات منكم لن يكون للدورة معنى .
<TR>شيفره برمجيه : |
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 |
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] | | <TR>
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
|
الدرس الحادي عشر : عمل برنامج اختيار من متعدد عشوائيا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] الكود :
<TABLE style="BORDER-BOTTOM-COLOR: #000000; BACKGROUND-COLOR: #ffffff; BORDER-TOP-COLOR: #000000; BORDER-RIGHT-COLOR: #000000; BORDER-LEFT-COLOR: #000000" border=1 cellSpacing=0 cellPadding=3 width="95%" align=center>
| <td>شيفره برمجيه : </TD> <TR> <td style="TEXT-ALIGN: left; DIRECTION: ltr">
Dim trueq, falseq As Long Dim a, b, c As Integer Dim L1, L2, L3, L4, T1, T2, T3, T4 As Integer
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 Com1_Click() Com1.Enabled = False Com2.Enabled = False Com3.Enabled = False Com4.Enabled = False
trueq = trueq + 1
natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq Labeltruefalse.Caption = "الاجابة صحيحة"
Labeltruefalse.Visible = True
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
Comsoal_Click
Labeltruefalse.Visible = False
End Sub
Private Sub Com2_Click() Com1.Enabled = False Com2.Enabled = False Com3.Enabled = False Com4.Enabled = False
falseq = falseq + 1
natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq Labeltruefalse.Caption = "الاجابة خاطئة"
Labeltruefalse.Visible = True
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
Comsoal_Click Labeltruefalse.Visible = False End Sub
Private Sub Com3_Click() Com2_Click End Sub
Private Sub Com4_Click() Com2_Click End Sub
Private Sub Comsoal_Click() If trueq + falseq = 10 Then MsgBox "انتهت الاسئلة شكرا لاستخدامك البرنامج", vbOKOnly, "رسالة البرنامج" Comsoal.Visible = True End If
Comsoal.Visible = False Com1.Visible = False Com2.Visible = False Com3.Visible = False Com4.Visible = False
Randomize
a = Int(Rnd * 3) b = Int(Rnd * 101) c = Int(Rnd * 3)
If a = 0 Then a = 10
If c = 0 Then b = b * 10 ElseIf c = 1 Then b = b * 100 ElseIf c = 2 Then b = b * 1000 End If
ElseIf a = 1 Then a = 100
If c = 0 Then b = b * 100 ElseIf c = 1 Then b = b * 1000 ElseIf c = 2 Then b = b * 10000 End If
ElseIf a = 2 Then a = 1000
If c = 0 Then b = b * 1000 ElseIf c = 1 Then b = b * 10000 ElseIf c = 2 Then b = b * 100000 End If
End If
soal.Caption = "ناتج قسمة " & b & "÷" & a & "="
Com1.Caption = b / a Com2.Caption = (b / a) * 10 Com3.Caption = (b / a) * 100 Com4.Caption = (b / a) * 1000
L1 = Com1.Left L2 = Com2.Left L3 = Com3.Left L4 = Com4.Left T1 = Com1.Top T2 = Com2.Top T3 = Com3.Top T4 = Com4.Top
Dim v As Integer v = Int(Rnd * 4) If v = 0 Then Com1.Left = L1 Com2.Left = L2 Com3.Left = L3 Com4.Left = L4 Com1.Top = T1 Com2.Top = T2 Com3.Top = T3 Com4.Top = T4 ElseIf v = 1 Then Com2.Left = L1 Com1.Left = L2 Com3.Left = L3 Com4.Left = L4 Com2.Top = T1 Com1.Top = T2 Com3.Top = T3 Com4.Top = T4 ElseIf v = 2 Then Com3.Left = L1 Com2.Left = L2 Com1.Left = L3 Com4.Left = L4 Com3.Top = T1 Com2.Top = T2 Com1.Top = T3 Com4.Top = T4 ElseIf v = 1 Then Com4.Left = L1 Com3.Left = L2 Com2.Left = L3 Com1.Left = L4 Com4.Top = T1 Com3.Top = T2 Com2.Top = T3 Com1.Top = T4 End If
Com1.Enabled = True Com2.Enabled = True Com3.Enabled = True Com4.Enabled = True Com1.Visible = True Com2.Visible = True Com3.Visible = True Com4.Visible = True
End Sub</TD></TR></TABLE> يرجى عمل احد المواضيع التالية : برنامج جدول الضرب يعتمد على نفس الطريقة برنامج حقائق القسمة برنامج الضرب في 10 او 100 او الف برنامج التقريب لاقرب اي منزلة تريدونها برنامج لحلول معادلة معينة . برنامج لمعرفة اي ربع لنقاط التمثيل على المحور السيني و الصادي مثلا او اي برنامج تحبونه من منهجكم . الدرس الثاني عشر : استعمال نماذج الفجوال بيسك 6 Uzerform بالباوربوينت [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
المطلوب ادراج فورم Uzerform و استدعائها و اذا في مجال اي برنامج خفيف على شريحة Uzerform .|
اني اعرف استخدم الباور بوينت بس ما اعرف اشلون اشرح لاحد ، و الحين في المدرسة عاطيني ادرس 10 طلاب بور بوينت و متحيرة اشلون اشرح ليهم
اذا تريدين تشرحين لاحد تجهزين المادة العلمية على الباور بوينت بحيث تضههر على حسب تسلسل الدرس
هل عندك هذا الشرح باللغة الانجليزية عشان استفيد منه ، و يساعدني على الشرح
لا و لماذا اللغة الانجليزية نحن تعلمنا بالعربية بدورة ICDL .
اني حاليا مستعيرة كتاب من المدرسة عن HTML و حابة اتعلمه اذا ممكن تساعدني اذا تعرف و تحط دروس اذا عندك و شكرا لم اشرحه قبلا لكن يوجد موقع دروس بالانترنت مفيد و بالانجليزية [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
| |
|
محمد
(( المدير العام ))
دعاء الدولة : عدد المساهمات : 3173 33076 تاريخ الميلاد : 25/07/1977 تاريخ التسجيل : 28/02/2010 العمر : 46 مدرس - مدير الموقع عزيمة وإرادة
بطاقة الشخصية المدير العام: 10
| موضوع: رد: انتاج برامج تفاعلية بإستخدام برنامج الباور بوينت تعلم و اصنع دروسك التعليمية الخميس أكتوبر 21, 2010 1:33 am | |
| | |
|