قومي بجعل خاصية الاخفاء للاجابات TextBox1 و غيره الى مخفية
و امسحي جميع الكود في الشريحة رقم 5 و استبدليه بهذا الكود
اذا ضغطتي على ليبل Label1 سيقوم باضهار مربعات النصوص TextBox1 و غيره و سم يحسب الوقت في Label1 و بعدما سينتهي الوقت سيخفي مربعات النصوص TextBox1 و غيره
اليكم الكود
كود:
Private Sub CommandButton1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub CommandButton3_Click()
sumq = sumq + 1
If TextBox1.Text = 3 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox2.Text = 4 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox3.Text = 2 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
sumq = sumq + 1
If TextBox4.Text = 1 Then
trueq = trueq + 1
Else
falseq = falseq + 1
End If
Label2 = " عدد الأسئلة: " & sumq & " عدد الإجابات الصحيحة: " & trueq & " التقدير: " & taqdeeruzer
Call taqdeer
End Sub
Private Sub Label1_Click()
TextBox1.Visible = True
TextBox2.Visible = True
TextBox3.Visible = True
TextBox4.Visible = True
Dim a As Integer
'If a <> 0 Then GoTo 10
a = 0
' تم تسجيل الماكرو 19 شباط، 08 بواسطة khalil
10
a = a + 1
'Slide5.Label2.Caption = a
Label1.Caption = a
Dim Start As Long
Start = Timer
Do While Timer < Start + 1 'a 3 second delay (Change To any numer you want)
DoEvents ' Yield To other processes.
Loop
If a = 10 Then
'MsgBox ("نفذ الوقت")
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
CommandButton3_Click
Exit Sub
End If
GoTo 10
End Sub