كيف اظهر الوقت والتاريخ في تصميمي ؟؟؟

اخي الفاضل

سأشرح لك طريقة وضع الساعة المتحركة والتاريخ الهجري

اولا : الساعة

1. انشىء مربع نص وليكن اسمه Clock

2. اجعل مصدر عنصر التحكم لهذا المربع هذه العبارة

=Time()

الان اصبح مربع النص يظهر لنا الوقت

الان نريد الوقت يتحرك مثل الساعة

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

Private Sub Form_Timer()
Me.CLOCK.Requery
End Sub

نحفظ النموذج وونظر الان لمربع نص الوقت نجده يتحرك كأنه ساعة حقيقية

ثانيا : التاريخ الهجري

1. ننشىء مربع نص جديد ونسميه txtHD

2. نضع هذا الكود في الحدثين في الحالي وعند التحميل

الفائدة من هذا الكود جعل التاريخ يظهر صيغة التاريخ من اليمين للبسار كالتاريخ الهجري

Private Sub Form_Current()
txtHD = Format(Date, "yyyy/mm/dd")
End Sub

فائدة هذا الكود اظهار التاريخ هجري

Private Sub Form_Load()
Calendar = vbCalHijri
txtHD = Date
End Sub

وهذا مثال على ذلك

HijriDate_CLOCK.rar

اختكم

زهره

رحم الله والديك عن النار وبارك الله فيك وبارك لك

كما توقعت فأنتي اول من يرد فأنتي استاذتنا جميعاً نفعنا الله بعلمك

ولكن للأسف الساعة لا تتحرك ويخرج لي كما في الصورة مظلل باللون الاصفر

http://www.arab7.com/up/file/1147481710359.jpg

هل وضعت العدد 1000 عند الفاصل الزمني لعداد الوقت ستجده في الاحداث اسفل حدث عند عداد الوقت

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

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

وجزاكم الله خيرا

_______________.rar

zahrah كتب:

هل وضعت العدد 1000 عند الفاصل الزمني لعداد الوقت ستجده في الاحداث اسفل حدث عند عداد الوقت

الاخت زهرة ،، نعم لقد وضعت العدد 1000 عند الفاصل الزمني

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

===================================

اخي الكريم yms12

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

شكراً لتواصلكم معي

اخي الفاضل

تأكد من اسم مربع نص الساعة يجب ان يكون CLOCK

او قد تكون قد وضعته في نموذجك بإسم Text لذا يجب ان يكون في الكود ايضا Text

اذا لم تحل المشكلة لديك ضع ملفك هنا ليتم التعديل فيه ومعرفة الخلل

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

معذره اخي الكريم النماذج كانت مخفيه يمكن لك الذهاب الى ادوات - خيارات وتنشيط اختيار كائنات مخفية

ومرفق لك مره اخرى الملف

______.rar

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

اخوكي

محمد

دائما متميزة اختنا العزيزة زهرة،،

ولي ملاحظة، لم لا ينتقل الاخوة الى استخدام عناصر اخرى لعرض الوقت والتاريخ،، بحث تضمن الدقة والجمال في ان معا..

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

انها فعلا اسهل في الاستخدام والتطبيق،، وهذه صورة لاحدى الساعات التي استخدمها في برنامج الاشراف التربوي..

كل الشكر لجميع الاخوة..