استاذ خليل انقذني بسرعه بليز

[جودعمار]

السلام عليكم شكرا على كود الطباعه ه ريحتني كثير بس باقي اخر شي
ممكن تطلع على الملف السابق وتشوف طريقتي وعلى اساسها اريد التقدير النهائي
ماادري ليش في كل الارقام يكتب يحتاج الى رعايه
رد علي في اقرب فرصه رجاء

[الاستاذ خليل]

انا لم اتمكن من تحميله ارفعيه على مستضيف اخر من امس و انا احاول دون فائدة

[جودعمار]

URL=http://www.faylat.com/up/get-1204561399.rar]التحميل من هنا[/URL]

http://www.faylat.com/up/files-1204561399.rar

[الاستاذ خليل]

لا زلت لم اتمكن من تحميل الملف لوجود عطل بالوصلة سأقوم بتكبير حجم المرفقات و ارفقيه

[جودعمار]

هذا المرفق

[جودعمار]

قدرت تحمله؟

[جودعمار]

استاذي كيف الملف والملاحظات اللي سبق اني ذكرتها مع فائق التقديرلك ولمجهودك معي

[الاستاذ خليل]

نعم حملته
و يجب وضع التقدير في المديول لتحتفظ بقيمة التقدير و النتائج و سيعمل بشكل جيد
انا حملت افس 2007 على جهازي بس ما عرفت اطلع شريط الفجوال بيسك تغير على الافس يبي لي اتعمق فيه اكثر

[جودعمار]

هذا من قائمه ثم ادوات وفي الشريط المنسدل منه ادوات

[جودعمار]

ماعرفت استاذي معليش اشرح لي اكثر

[جودعمار]

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

[الاستاذ خليل]

قمت بعمل الازم حاولي التعديل عليه ليضبط حسب ما تريدين

[جودعمار]

شكرا جزيلا بطلع عليه الانواعطيك خبر

[جودعمار]

استاذي شكرا جزيلا لكن كيف ممكن اعمل عليه التايمر

[الاستاذ خليل]

Dim a As Integer
'If a <> 0 Then GoTo 10

a = 0
10
a = a + 1


  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 = 120 Then
     

MsgBox ("نفذ الوقت")
     Exit Sub
     
     End If
     
      GoTo 10

[جودعمار]

استاذي اضع له ليبل وهل اضع ليبل في كل شريحه حتى يحسب لي الوقت

[الاستاذ خليل]

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

[جودعمار]

اشرح لي بالخطوات استاذي اذا ممكن

[الاستاذ خليل]

شوي صعب انا ساضع الكود و انت الصقيه و جربيه ساضعه لاحقا

[الاستاذ خليل]

قومي بجعل خاصية الاخفاء للاجابات 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