السلام عليكم
جزاكم الله خير على هذه المدرسة الرائعة
سؤالي : كيف اعمل التاريخ والوقت الحالي على الواجة الرئيسية (النموذج ) على ان يكون الوقت يتغير تلقائيا حسب وقت الجهاز ، دون الذهاب لعمل تحديث ، والتاريخ اريده ان يظهر على شكل ساعة .
كيفية عمل التاريخ والوقت الحالي في النموذج
مغلق
ممكن تشرح لي الطريقة ؟؟؟
حلو جدا بس علموني كيف اسوي الطريقة هذي ، وايضا طريقة العرض الرقمي العادي : 9:30:21
أخي الغالي أبو سمير
السلام عليكم ورحمة الله وبركاتة
بخصوص الطريقة التي استخدمها الاخ تامر في عمل الساعة الرقمية
اليك الشرح
اعمل نموذج جديد وفي نمط التصميم قم بوضع Lable ثم قم بتسميتها اسم وليكن Lable_Time وذلك من صندوق الادوات الموضح بالصورة ليصبح الشكل في نمط التصميم كالتالي
.jpg)
وفي حدث
On timer
ضع هذا الكود لتنفيذ الاجراء المراد تنفيذه
Me.Lable_Time.Caption = Time
ولا تنسي في خانة
Time interval
ان تضع رقم 150 وهو المسؤل عن عداد الثواني
قم باستعراض النموذج ستظهر لك الساعة الرقمية
حاول تنفيذ هذه الخطوات في اظهار التاريخ
وهذا هو كود اظهار التاريخ
Me.Lable_Time.Caption = Date
بالتوفيق ومرفق المثال
بسم الله الرحمن الرحيم
بارك الله فيكم اخواني
محمد فؤاد بارك الله فيك
لكن اين اضع الكود هذا ، اشرح لي اكثر في حقل في الخصائص
أخي الغالي
بارك الله فيك
اضغط بالماوس كليك يمين اسفل النموذج كما هو موضح بالصورة ستظهر لك اختيار خصائص قم بالضغط عليها
.JPG)
سيظهر لك الان قائمة الخصائص اذهب للتبويب المسمي Events أو أحداث اذا كان نسخة الاوفيس لديك باللغة العربية
ستجد حدث اسمة on timer
وستجد ايضا تحته مباشرة time interval
بجوار on timer ستجد مربع به ثلاث نقاط كما هو موضح بالصورة اضغط عليه لتدخل الي محرر الفيجوال بيسك وتبدأ في كتابة الاكواد
.JPG)
بالتوفيق ويارب تكون وصلت الفكرة
الاخ الفكرة وصلت بارك الله فيك
اضافة الى ما تفضل به اخواني الاعزاء
هذا مثال لعرض الوقت بنظام 24 ساعة .. تم التعديل على مثال اخي الحبيب محمد فؤاد مع الشكر الجزيل له على المجهود الرائع
زيادة الخير بركة
بارك الله فيك يا أخي الغالي
يوسف
لكن برجاء توضيح التعديل للاخ ابو سمير لكي يعرف ما التغيير الذي طرأ .. فأعتقد انه مبتديء ومحتاج المساعدة ....
-=كلنا مبتدئين= -
بارك الله فيك اخي الحبيب الغالي محمد فؤاد
الفرق هو اضافة علامة الدولار $ وايضاً تغيير القيمة بــــ عند الفاصل الزمني الى 1000 ليتم تحديث الساعة كل ثانية
ولكن ناتج الدالة time يتأثر بالاعدادات الاقليمية ولو تم تغييرها بالجهاز يتغير ناتج الدالة time واذا اردنا الناتج لا يتغيير بتغيير تلك الاعدادت
نستخدم الدالة format كما يلي
لنظام 12 ساعة
Me.Lable_Time.Caption = Format(Now(), "hh:nn:ss am/pm")
حيث Lable_Time هو اسم مربع التسمية والذي تظهر به الساعة بنظام 12 ساعة
ولنظام 24 ساعة كما يلي
Me.lable4.Caption = Format(Now(), "hh:nn:ss")
حيث lable4 هو اسم مربع التسمية والذي تظهر به الساعة بنظام 24 ساعة
وهذا مثالك بعد اذنك به التعديل وبالامكان رؤية ذلك بحدث عند عداد الوقت للنموذج مع الابقاء على القيمة للفاصل الزمني بــ 1000
ارجو ان يكون هذا واضحاً لاخي ابو سمير وان يستفيد من الطرق التي طرحت للاجابة على سؤاله
والله اعلى واعلم
الله يعطيك ألف عافية أخي الغالي يوسف
وزادك الله علماً
شرح ممتاز ووافي
ان شاء الله يستفاد منه الاخ أبو سمير
هذا الموضوع مغلق.