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