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

<TR>
<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 .

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]	الدرس الحادي عشر : عمل برنامج اختيار من متعدد عشوائيا [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] الكود : <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>