عرض مشاركة واحدة
  #6  
قديم 08-07-2006, 10:38 PM
الصورة الرمزية الاستاذ خليل
الاستاذ خليل الاستاذ خليل غير متواجد حالياً
المدير العام


 
تاريخ التسجيل: Jan 2003
الدولة: مملكة البحرين
المشاركات: 3,977
السلام عليكم

الاخ فادي الافضل ان يكون التقدير اتوما تيكيا و اقصد به بعد ان تظهر النتيجة بعد اختيار الاجابة

و يوجد خطا في التقدير يجب ان يكون هكذا

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

لاني اريد مشروع من عندكم عبارة عن برنامج تعليمي متكامل .
__________________
هذا من فضل ربي
رد مع اقتباس