المساعدة في تفعيل برنامج اختبار سرعة ادخال البيانات

[عاشق الاسلام]

السلام عليكم اساتذتي ممكن المساعد في تفعيل فورم برنامج اختبار سرعة ادخال البيانات بحيث عندما يضغط الطالب على زر ابدأ يبدأ الوقت بالعد الى ان يضغط على زر التوقف وبالتالي اعرف نتيجة الوقت المستخدم في ادخال البيانات.مع تحياتي لكم بالشكر والتقدير

اختبار.rar

[محمود_الشريف]

أخى فى الله

بالمرفقات تجد نموذج فكرته قريبة للنموذج الذى ارفقته انت

ولكنه بدون فورم 

أتمنى أن تستفاد به فى مطلبك

وتقبل منى وافر الاحترام والتقدير

ساعة توقيت.rar

[عاشق الاسلام]

 

أخى فى الله

بالمرفقات تجد نموذج فكرته قريبة للنموذج الذى ارفقته انت

ولكنه بدون فورم 

أتمنى أن تستفاد به فى مطلبك

وتقبل منى وافر الاحترام والتقدير

 

استاذي الغالي محمود - الشريف بارك الله فيك وشكرأ على الجواب الرائع ولكن انا احتاج ان يكون العمل على الفورم كما هو واضح في الملف المرفق ويكون الوقت ظاهر اثناء العد وليس مخفي وتقبل مني جزيل الشكر والتقدير. 

[محمود_الشريف]

أخى فى الله

اليكم بالمرفقات المطلوب

ساعة توقيت كامله بالفورم

أسأل الله عز وجل أن يكون ما تريده

وتقبل منى وافر الاحترام والتقدير

اختبار_1.rar

[عاشق الاسلام]

 

أخى فى الله

اليكم بالمرفقات المطلوب

ساعة توقيت كامله بالفورم

أسأل الله عز وجل أن يكون ما تريده

وتقبل منى وافر الاحترام والتقدير

 

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

اختبار.rar

[محمود_الشريف]

أخى فى الله

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

وتقبل منى وافر الاحترام والتقدير

اختبار_2.rar

[عاشق الاسلام]

 

أخى فى الله

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

وتقبل منى وافر الاحترام والتقدير

 

استاذي الغالي بارك الله فيك على المجهود الكبير وجعله الله في ميزان حسناتك اخي انا غيرت اسم الفورم وبقيت نفس المشكلة كما هو في الملف المرفق فرجو من حضرتك ان توضح لي اكثر ولو بصورة وتقبل مني وافر الاحترام والتقدير.

اختبار.rar

[ياسر خليل أبو البراء]

الأخ عاشق الإسلام

ضع الأسطر التالية في أول الكود وسيتم حل المشكلة بإذن المولى

Dim StopTimer As Boolean
Dim Etime As Single
Dim Etime0 As Single
Dim LastEtime As Single

[عاشق الاسلام]

 

الأخ عاشق الإسلام

ضع الأسطر التالية في أول الكود وسيتم حل المشكلة بإذن المولى

Dim StopTimer As Boolean
Dim Etime As Single
Dim Etime0 As Single
Dim LastEtime As Single

اخي الغالي انا وضعت الكود ولم يتم حل المشكلة.وتقبل مني وافر الاحترام

[ياسر خليل أبو البراء]

ممكن ترفق الملف الذي تعمل عليه بعد إضافة الأسطر التي ذكرتها لك .. لأن الملف لم يكن يعمل بالفعل في بداية الأمر وعندما أكملت الكود بالأسطر المذكروة عمل الكود معي بنجاح .. لطفا ارفق ملفك بعد الإضافة

[عاشق الاسلام]

 

ممكن ترفق الملف الذي تعمل عليه بعد إضافة الأسطر التي ذكرتها لك .. لأن الملف لم يكن يعمل بالفعل في بداية الأمر وعندما أكملت الكود بالأسطر المذكروة عمل الكود معي بنجاح .. لطفا ارفق ملفك بعد الإضافة

 

تفضل اخي العزيز هذا الملف المرفق وبارك الله فيك.

اختبار.rar

[ياسر خليل أبو البراء]

الأخ الغالي عاشق الإسلام

أنت قمت بوضع الأسطر التي ذكرتها لك في المكان الخاطيء

الكود بالشكل الصحيح

Dim StopTimer As Boolean
Dim Etime As Single
Dim Etime0 As Single
Dim LastEtime As Single
Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub ResetBtn_Click()
StopTimer = True
Etime = 0
Etime0 = 0
LastEtime = 0
ElapsedTimeLbl = "00:00:00.00"
Me.Caption = "Mahmoud Zaki Mousa EL Shrief    "
End Sub


Private Sub StartBtn_Click()
StopTimer = False
Etime0 = Timer() - LastEtime
Do Until StopTimer
Etime = Int((Timer() - Etime0) * 100) / 100
If Etime > LastEtime Then
LastEtime = Etime
ElapsedTimeLbl = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00")
DoEvents
End If
Loop
End Sub
Private Sub StopBtn_Click()
StopTimer = True
Beep
End Sub

[عاشق الاسلام]

 

الأخ الغالي عاشق الإسلام

أنت قمت بوضع الأسطر التي ذكرتها لك في المكان الخاطيء

الكود بالشكل الصحيح

Dim StopTimer As Boolean
Dim Etime As Single
Dim Etime0 As Single
Dim LastEtime As Single
Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub ResetBtn_Click()
StopTimer = True
Etime = 0
Etime0 = 0
LastEtime = 0
ElapsedTimeLbl = "00:00:00.00"
Me.Caption = "Mahmoud Zaki Mousa EL Shrief    "
End Sub


Private Sub StartBtn_Click()
StopTimer = False
Etime0 = Timer() - LastEtime
Do Until StopTimer
Etime = Int((Timer() - Etime0) * 100) / 100
If Etime > LastEtime Then
LastEtime = Etime
ElapsedTimeLbl = Format(Etime / 86400, "hh:mm:ss.") & Format(Etime * 100 Mod 100, "00")
DoEvents
End If
Loop
End Sub
Private Sub StopBtn_Click()
StopTimer = True
Beep
End Sub

اخي ممكن ترفع الملف المرفق الذي انت عملت عليه لان يظهر عندي خطا بالكود.تحياتي

تم تعديل سبتمبر 25, 2014 بواسطه عاشق الاسلام

[ياسر خليل أبو البراء]

أخي عاشق الإسلام إذا أردت أن تتعلم فلابد أن تفشل وإلا فلن تتعلم

انظر أين الخطأ وحاول مرارا وتكرارا ولا تعتمد على غيرك إلا في أحلك الظروف

الكود جاهز ببساطة خذ الكود نسخ ولصق في المكان الصحيح

[عاشق الاسلام]

 

أخي عاشق الإسلام إذا أردت أن تتعلم فلابد أن تفشل وإلا فلن تتعلم

انظر أين الخطأ وحاول مرارا وتكرارا ولا تعتمد على غيرك إلا في أحلك الظروف

الكود جاهز ببساطة خذ الكود نسخ ولصق في المكان الصحيح

 

اخي واستاذي شكرعلى الكلام الجميل والنصيحة الرائعة و يشرفني ان اكون طالب علم في مدرستك واتعلم من علمك الرائع.وانا طبقت الكود وعمل بشكل صحيح.عندي طلب اخير هل يمكن ان نضيف  درجة دقة البيانات المدخلة كما هو واضح في الفورم المرفق بحيث يكون الطالب مجبر على ادخال بيانات معينة من قبلي وعلى اساسها سوف تحدد درجة الدقة وعلى سبيل المثال: الاسم :محمد - والصف : الاول - ورقم الموبايل: 12345  .وتقبل مني وافر الاحترام والتقدير.

اختبار.rar

تم تعديل سبتمبر 26, 2014 بواسطه عاشق الاسلام

[ياسر خليل أبو البراء]

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

[عاشق الاسلام]

 

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

 

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

[ياسر خليل أبو البراء]

نعم أخي عاشق الإسلام اطرح طلبك في موضوع مستقل حتى يتسنى للأخوة الأفاضل مساعدتك بشكل أفضل