هنا دروس دورة انتاج برامج تفاعلية بإستخدام برنامج الباور بوينت تعلم و,دروس صوت و صورة
السلام عليكم و رحمة الله و بركاته
سيكون هذا الموضوع متجدد يرجى التحديث في كل مرة لتجد جديد الدروس. الدرس الأول طريقة اضافة شريط ادوات الفجوال بيسك و شرح بعض رموز الشريط قم يتحميل الملف الاول هو شرح للطريقة بالصوت و الصورة الدرس الثاني تسجيل و تشغيل مايكرو الدرس الثالث درس ادراج الأدوات و الخصائصها الدرس الرابع :شرح خصائص الأدوات شرح خصائص مربع النص textbox خصائص اداة الزر خصائص مربع التسمية Label الدرس الخامس: الشفرة و كيفية كتابتها و الدوال و الاحداث و دالة if وصلنا الى الجزء الاهم الذي من الضروري ان تنجزوا فروضها و ترسلوها بالمنتدى هيا لنبدء هنا الشرح بالصور اضغط عنا ملاحظة اذا فتحته قم باختيار للقراءة فقط لكي يفتح لان تعديله يتطلب رقم سري حيث انني لا اريد احد يعدل على الملف و هنا ملفات تطبيقية على المواضيع المشروحة (صوت و صورة) يرجى زيادة الصوت لانه سجل ضعيفا عن ادراج الشفرة ملف ثاني ربط السلاسل النصية شرح بعض الدوال الجزء الاول شرح بعض الدوال الجزء الثاني العمليات الجمع و الطرح و الضرب و القسمة اضافة الارقام دالة الشرط if المتغيرات الجزء الاول المتغيرات الجزء الثاني يرجى قراءة و محاولة التطبيق جيدا الدروس التاالية سنطبق عملي انتاج دروس تفاعلية يرجى ادراج الواجب الدرس السادس : دالة اضهار المسج msgbox بهذا الدرس بدأنا بإختبار اجابات التلاميذ بعمل درس عملي ليكون التعلم ذاتيا للطلاب باستعمال دالة المسج نحتاج لصفحة او جزء من صفحات الكتاب المدرسي الذي تدرسه بطباعتها بالسكانرو ادخالها للحاسوب ثم تابع الدرس التالي بالصوت و الصورة و التطبق العملي. المطلوب من المشاركين الرد لاكمل باقي الدروس و اذا كان الشرح غير واضح الرجاء التنبيه الدروس صنعتها بنفسي و موجودة على موقع جزيرة الرياضيات اتمنى لكم الافادة الدرس السابع التحقق من القيم المدخلة رقمية او نصية اضغط هنا للشرح بالصوت و الصورة الواجب عمل برنامج يتحقق من قيمة رقمية رقمية او نصية تحتاجون الى textbox زر و تقولون له في الزر اذا كانت القيمة رقمية ارسل مسج القيمة رقمية اذا كانت القيمة نصية يرسل مسج ان القيمة نصية الدرس الثامن : نقل القيم من شريحة لأخرى الدرس هنا بالصوت و الصورة المطلوب عمل برنامج نفسه بنفس الطريقة و سيتم تكملة الشرح عليه و شكرا لكم الاستاذ خليل الدرس العاشر :تطبيق عملي على انتاج تقويم عشوائي اجابته صح أو خطأ هنا الدرس بالصوت و الصورة و عذرا على الاطالة الاستاذ خليل سيتم ادراج الكود الخاص به لكي لا يكون صعبا المطلوب عمل برنامج بنفس النمط من مناهجكم و تغيير ما يلزم حسب رغبتكم .بدون تطبيقات منكم لن يكون للدورة معنى . كود 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 الدرس الحادي عشر : عمل برنامج اختيار من متعدد عشوائيا الدرس هنا بالصوت و الصورة مع الكود الكود : كود 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 يرجى عمل احد المواضيع التالية : برنامج جدول الضرب يعتمد على نفس الطريقة برنامج حقائق القسمة برنامج الضرب في 10 او 100 او الف برنامج التقريب لاقرب اي منزلة تريدونها برنامج لحلول معادلة معينة . برنامج لمعرفة اي ربع لنقاط التمثيل على المحور السيني و الصادي مثلا او اي برنامج تحبونه من منهجكم . :ali::ali::ali: |
يسلمو اخوي علي على هذا المجهود الرائع والله يجعله في ميزان حسناتك
تقبل مروري |
|
موضوع جميل
شكرا لك وبالتوفيق |
مشكووووووووووووور بصراحه الموقع واصحااااااااابه رااااااااااااااااااااااائعينhttp://img267.imageshack.us/img267/2356/9449638zk5.gif
:w002 (10)::w002 (10)::w002 (10): |
جزاك الله خيرا
|
اتمنى أن اعود تلميذا تحت رعايتك . هل تقبل ؟
|
http://img267.imageshack.us/img267/2356/9449638zk5.gif اثابك الله عليه مشرفنا الفاضل على العمري وجعل عملك خالص لوجهه الكريم |
مشكووووووووووووووووووووووورين
|
الف شكر
|
الساعة الآن 09:59 AM |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By
Almuhajir