برنامج المسابقات

[قنديل الصياد]

أعجبنى هذا البرنامج الجميل

وهو تلخيص لعمل دروس تفاعلية ببرنامج الباور بوينت

الاكواد المستخدمة فى البرنامج

Private Sub CommandButton1_Click()
 InputBox "رسالة البرنامج", "أدخل الاسم من فضلك"
End Sub

Private Sub CommandButton2_Click()
ActivePresentation.SlideShowWindow.View.Next
 MsgBox " مع تحياتى / قنديل الصياد .. منتديات أوفيسنا .. برنامج المسابقات"
End Sub

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Dim trueq, falseq As Long
Dim q, a1, a2, a3, a4 As String
Dim a 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
Com1.BackColor = &HFF00&
natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
Labeltruefalse.Caption = "الاجابة صحيحة"
PlaySound Application.ActivePresentation.Path & "\true.wav", 0, &H1

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
Com1.BackColor = &HFF00&
Com2.BackColor = &HFF&

falseq = falseq + 1

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
Labeltruefalse.Caption = "الاجابة خاطئة"
PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1

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()

Com1.Enabled = False
Com2.Enabled = False
Com3.Enabled = False
Com4.Enabled = False
Com1.BackColor = &HFF00&
Com3.BackColor = &HFF&

falseq = falseq + 1

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
Labeltruefalse.Caption = "الاجابة خاطئة"
PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1

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 Com4_Click()


Com1.Enabled = False
Com2.Enabled = False
Com3.Enabled = False
Com4.Enabled = False
Com1.BackColor = &HFF00&
Com4.BackColor = &HFF&

falseq = falseq + 1

natija.Caption = "النتيجة : " & trueq & " / " & trueq + falseq
Labeltruefalse.Caption = "الاجابة خاطئة"
PlaySound Application.ActivePresentation.Path & "\no.wav", 0, &H1

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 Comsoal_Click()
If trueq + falseq = 10 Then
Comsoal.Visible = True
MsgBox "انتهت الاسئلة شكرا لاستخدامك البرنامج", vbOKOnly, "رسالة البرنامج"
a = 0
falseq = 0
trueq = 0
soal = "السؤال"
natija = "النتيجة"
Com1.Caption = "الاجابة"
Com2.Caption = "الاجابة"
Com3.Caption = "الاجابة"
Com4.Caption = "الاجابة"

Com1.Enabled = False
Com2.Enabled = False
Com3.Enabled = False
Com4.Enabled = False
Com1.BackColor = &H8000000F
Com2.BackColor = &H8000000F
Com3.BackColor = &H8000000F
Com4.BackColor = &H8000000F

Exit Sub
End If

Com1.BackColor = &H8000000F
Com2.BackColor = &H8000000F
Com3.BackColor = &H8000000F
Com4.BackColor = &H8000000F

Comsoal.Visible = False
Com1.Visible = False
Com2.Visible = False
Com3.Visible = False
Com4.Visible = False
  


a = a + 1

If a = 1 Then
q = "من أول الخلفاء الراشدين"
a1 = "أبو بكر الصديق"
a2 = "عمر بن الخطاب"
a3 = "عثمان بن عفان"
a4 = "علي بن ابي طالب"



ElseIf a = 2 Then
q = "شخصية حاولت هدم بيت الله الحرام"
a1 = "ابرهة الحبشي"
a2 = "يزيد بن معاوية"
a3 = "ابو لؤلؤة المجوسي"
a4 = "الاسكندر المقدوني"

ElseIf a = 3 Then
q = "نبي ولد من غير أب"
a1 = "النبي عيسى"
a2 = "النبي موسى"
a3 = "النبي محمد"
a4 = "النبي زكريا"
ElseIf a = 4 Then
q = "خاتم الأنبياء"
a1 = "النبي محمد"
a2 = "النبي موسى"
a3 = "النبي عيسى"
a4 = "النبي زكريا"
ElseIf a = 5 Then
q = "يخرج آخر الزمان يملألأرض قسطا و عدلا"
a1 = "المهدي"
a2 = "النبي موسى"
a3 = "النبي محمد"
a4 = "النبي زكريا"
ElseIf a = 6 Then
q = "كان يتعبد فيه الرسول محمد (ص)قبل الاسلام"
a1 = "غار حراء"
a2 = "غار ثور"
a3 = "جوف الكعبة"
a4 = "منزله"
ElseIf a = 7 Then
q = "ثالث المجموعة الشمسية هو كوكب"
a1 = "الارض"
a2 = "الزهرة"
a3 = "المريخ"
a4 = "عطارد"
ElseIf a = 8 Then
q = "ما هو أكثر حيوان معمر؟"
a1 = "السلحفاة"
a2 = "الفيل"
a3 = "الحصان"
a4 = "الحوت الأزرق"
ElseIf a = 9 Then
q = "كم يوم يعيش ذكر الذباب؟"
a1 = "16 يوم"
a2 = "3 أيام"
a3 = "50 يوم"
a4 = "7 أيام"
ElseIf a = 10 Then
q = "ما هي سرعة دوران الأرض حول الشمس؟"
a1 = "60 الف ميل بالساعة"
a2 = "25 الف ميل بالساعة"
a3 = "100 الف ميل بالساعة"
a4 = "80 الف ميل بالساعة"

End If



soal.Caption = q

Com1.Caption = a1
Com2.Caption = a2
Com3.Caption = a3
Com4.Caption = a4

L1 = Com1.Left
 L2 = Com2.Left
 L3 = Com3.Left
 L4 = Com4.Left
 T1 = Com1.Top
 T2 = Com2.Top
 T3 = Com3.Top
 T4 = Com4.Top
 
 Randomize
 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
natija.Caption = "السؤال رقم : " & a
End Sub

Private Sub CommandButton1_Click()
ActivePresentation.SlideShowWindow.View.Exit
End Sub

مرفق  ملف به التطبيق

 

المسابقة الثقافية.rar

 

 

[مجدى يونس]

الاخ قنديل الصياد

بشائر خير رمضان هلت علينا بالخير بافكارك الجميلة

مسابقة رائعة فعلا

[حمادة عمر]

الاخ الحبيب / قنديل الصياد

نشاط واضح بالفعل وملحوظ

دائما نتمني لك الرقي والتقدم

جزاك الله خيرا

[حمادة عمر]

رمضـــان كـــريـــم

[حمادة عمر]

[حضري محمد]

شكرا لك يا اخي قنديل ، وقد اعجبني عملك كثيرا كثيرا

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

وهل هذا الكود يعمل على شريحة واحدة أم يصلح للعمل على عدرة شرائح؟ وهل سأضطر الى ادخاله في كل شريحة؟ وشكرا جزيلا  يا اخي الكريم

اسف ان تعبتك معي

[مجدى يونس]

الاخ حضرى محمد

وبعد اذن الاخ قنديل الصياد

طريقة الدخول الى محرر الاكواد بالصور

وان شاء الله انا اعمل بموضوعك بمحاولة العمل دون اكواد

 

 

 

 

[حضري محمد]

شكرا لك استاذي العزيز وربي يخليك لينا

[قنديل الصياد]

استاذى الحبيب الاستاذ / مجدى يونس

اخى الاستاذ / حضرى محمد

 

شكرا لكم وخصوصا استاذنا الغالى الاستاذ / مجدى يونس على اعماله الرائعة والتى تعجبنى جدا واقدرها جدا كتقديرى لاستاذى الحبيب

اليك اخى العزيز حضرى محمد

شريحة بدون اكواد ويمكن ان ينفذ على اى عدد من الشرائح ولو اردت اى عمل مثال لها ننفذه لك ان شاء الله

 

 

Presentation1.rar

 

[مجدى يونس]

الاخ قنديل الصياد

شكرا لك 

[مجدى يونس]

الاخ حضرى

ارجو ان الصور تكون واضحة

لان جهازى عطلان ومعنديش برامج تصوير فيديو على الجهاز الذى اعمل عليه مؤقت

[حضري محمد]

شكرا جزيلا لك اخي العزيز قنديل

بارك الله فيك يا استذي مجدي، هي واضحة وضوح الشمس ، ربي يحفظكم اخواني