درس يوم الثامن عن تشغيل الوقت Timer

الاستاذ خليل · #1 07-13-2006, 12:43 AM

السلام عليكم

هذا تطبيق مشروح بالصور

المطلوب عمل المشروعين السابقين و ارفاقهما

الاستاذ خليل

fadi9 · #2 07-13-2006, 11:11 PM

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

الاستاذ خليل · #3 07-16-2006, 12:26 AM

ساختبرك هل تستطيع عمل زر ايقاف ما هو الكود للإيقاف التوقيت مثلا هو يشتغل و تريد توقفه قبل ما ينتهي الوقت

fadi9 · #4 07-17-2006, 04:44 PM

التطبيق في المرفق التالي:
عند النقر على زر التشغيل يبدا العرض
اذا نقرنا زر الايقاف اثناء العرض يتوقف العرض
وشكرا

الاستاذ خليل · #5 07-17-2006, 06:31 PM

ممتاز الاخ فادي عمل ممتاز شاهد الدرس الجديد بمنتدى الدورات التعليمية

shjooon · #6 07-19-2006, 08:20 PM

بسم الله الرحمن الرحيم

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

كيف حالكم جميع

الاستاذ الفاضل اني قريت درس التايمر وربما غيابي لظروف قاهرة جعلني غير مستوعبة الاستيعاب المطلوب ولهذا وجدت عندي عدة تساؤلات ومنها

ما فهمته في موضوع التايمر هو انك تريد عبارة ترحيب بحيث تبدأ في الظهور بعد 3 ثواني لكن لماذا تم كتابة هذا الكود
Timer1.Enabled= false
Timer1.Intreval=300
في الفورم ولم يكتب في التايمر أليس هذا أمر يخص التايمر وخاصة اننا يمكننا عمله يدويا وذلك بتغيير خصائص التايمر وليس الفورم وبالمناسبة جربت كتابة هذا الكود في الفورم وشغلت التمرين لكني لم اجد تغييرا أهذا يعني ان الامر غير مرئي للمستخدم لكنه فعال

ثانيا : لماذا كتب الكود الذي يظهر عبارة الترحيب (( أهلا وسهلا )) في التايمر ولم يكتب في command رغم اننا اذا شغلنا البرامج نضغط على command وهو بدوره يظهر على الليبل

ثالثا : لو قمت بتأدية هذا التمرين بهذه الصورة هل يؤدي نفس الغرض

يعني مثلا الادوات الذي سأحتاجها هي ليبل ، وتايمر ، وكموند

من خصائص الليبل بمسح الاسم حتى يظل فارغ

من خصائص التايمر سأضع عند Enabled false و عند interval 300 حتى اضمن عدم تشغيل التايمر في البداية

وفي command سأكتب هذا الكود

"اهلا وسهلا بكم "= label1.caption
Timer1.Enabled=True

ولكم مني الشكر الجزيل خاصة للاستاذ خليل ابراهيم

تحياتي اختكم : شجون

shjooon · #7 07-20-2006, 10:00 AM

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

الاستاذ خليل · #8 07-20-2006, 10:28 AM

السلام عليكم

اذا تكتبي كود اكتبيه باحرف صغيرة يعني امحي End If
و عيدي كتابتها باحرف صغيرة و بدون فراغ هو اتوماتيكيا سيعدلهم اكتبي endif ثم اضغطي على enter
سيعدلهم الى End If

اذا الون في الكود احمر يعني في خطا في الكود
و نستطيع كتابة الكود بشكل اخر ايضا مثل :

كود:

Private Sub Timer1_Timer()
Label1.Caption = Val(Label1.Caption) + 1
If Val(Label1.Caption) = 15 Then Timer1.Enabled = False: MsgBox "انتهى الوقت"
End Sub

shjooon · #9 07-20-2006, 01:20 PM

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

مشكور استاذنا الفاضل ولكنك لم تجيب على استفساراتي السابقة فلماذا ؟

fadi9 · #10 07-20-2006, 09:21 PM

الاخت شجون
اهلا بعودتك بعد الغياب
بالنسبة للتطبيق الثاني( العداد) فقد اوضح لك الاستاذ خليل اين المشكلة

بالنسبة للتطبيق الاول ( الترحيب بعد ثلاث ثواني )
الفورم الذي نفذتيه يظهر الترحيب مباشرة وليس بعد ثلاث ثواني

اذا كان التايمر ممكن اي enabled=trou فسوف يتم تنفيذ الكود المكتوب داخل التايمر بعد الفترة الزمنية المحددة بالخاصية interval لذلك نجعل التايمر متوقف في البداية(اي enabled=false) ونشغله عند الضغط على command( بان نضع في كود الكومند timer1.enable=trou)
جربي اعادة تنفيذ الفورم من جديد كما هو مشروح مع مراعاة ان interval=3000 (وهي تعادل
3 ثواني) وليس 300 التي بسببها قد يكون انك لم تلحظي الفرق

الاستاذ خليل · #11 07-20-2006, 09:22 PM

عفوا و تم الرد لم اشاهد الاستفسار إلا الان

shjooon · #12 07-22-2006, 05:40 AM

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

اختكم : شجون

علا المجد · #13 06-27-2007, 10:50 AM

ان شاء الله بطبق هالدروس ولي عودة

mom12 · #14 05-04-2008, 04:13 PM

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

الاستاذ خليل · #15 05-05-2008, 06:31 AM

يعني الصوت مسجل ؟ ام انت تريد تسجيله ؟ الفكرة غير واضحة لدي