السلام عليكم
هنا الدرس بالصوت و الصورة و عذرا على الاطالة
الاستاذ خليل
سيتم ادراج الكود الخاص به لكي لا يكون صعبا المطلوب عمل برنامج بنفس النمط من مناهجكم و تغيير ما يلزم حسب رغبتكم .بدون تطبيقات منكم لن يكون للدورة معنى .
كود:
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