منتدى جزيرة الرياضيات

منتدى جزيرة الرياضيات (http://www.hesab.net/vb/index.php)
-   منتدى التعليم الإلكتروني (http://www.hesab.net/vb/forumdisplay.php?f=35)
-   -   درس يوم الثامن عن تشغيل الوقت Timer (http://www.hesab.net/vb/showthread.php?t=2155)

الاستاذ خليل 07-13-2006 12:43 AM

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

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

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

الاستاذ خليل

fadi9 07-13-2006 11:11 PM

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

الاستاذ خليل 07-16-2006 12:26 AM

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

fadi9 07-17-2006 04:44 PM

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

الاستاذ خليل 07-17-2006 06:31 PM

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

shjooon 07-19-2006 08:20 PM

1 مرفق
بسم الله الرحمن الرحيم

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

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

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

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

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

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

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

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

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

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

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


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

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

shjooon 07-20-2006 10:00 AM

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

الاستاذ خليل 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 07-20-2006 01:20 PM

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

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

fadi9 07-20-2006 09:21 PM

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

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

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

الاستاذ خليل 07-20-2006 09:22 PM

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

shjooon 07-22-2006 05:40 AM

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


اختكم : شجون

علا المجد 06-27-2007 10:50 AM

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

mom12 05-04-2008 04:13 PM

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

الاستاذ خليل 05-05-2008 06:31 AM

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


الساعة الآن 05:53 PM

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. TranZ By Almuhajir