الاخ فادي الافضل ان يكون التقدير اتوما تيكيا و اقصد به بعد ان تظهر النتيجة بعد اختيار الاجابة
و يوجد خطا في التقدير يجب ان يكون هكذا
كود:
Private Sub Cmd_Click()
Dim v As Single
v = Val(sumtrue.Caption) / Val(sumq.Caption)
If 0.9 < v And v <= 1 Then L = "ممتاز"
If 0.8 < v And v <= 0.9 Then L = "جيد جدا"
If 0.7 < v And v <= 0.8 Then L = "جيد"
If 0.6 < v And v <= 0.7 Then L = "مقبول"
If v < 0.6 Then L = " ضعيف "
L.Visible = True
Timer3.Enabled = True
Cmd.Visible = False
End Sub
بالنسبة لشجون اتوقع ان تكون ملفات الصوت كبيرة حاولي ان تجدي اصواتا اقل حجما او ارفعيها على احد المواقع التي تسمح باحجام اكبر.
و انتظر ردكم و اقول ان هل تحتاجون لدروس اخرى الان ؟في ماذا ؟
لاني اريد مشروع من عندكم عبارة عن برنامج تعليمي متكامل .