اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

إخوتي الاعزاء

فكرة اليوم

التحكم بالوقت ( الساعة ) Time Control

كلمات استدلالية اضافة وقت - طرح وقت - On Timer - DateAdd - نموذج - كود

التطبيق جزء من تصور شامل

post-12714-0-65097100-1301227513_thumb.p

اقتطفت لكم اليوم فكرة التحكم و السيطرة على الوقت حيث يحتوي النموذج F2

( من أعلى اليمين)

حقل غير ممكن لليوم يظهر اسم اليوم

حقل غير ممكن لليوم يظهر تاريخ اليوم

حقل غير ممكن للساعة يظهر الساعة ( 12 ساعة AM . PM ) (مفعل مع On Timer)

حقل غير ممكن للساعة يظهر الساعة مع الثواني (مفعل مع On Timer) – 1000 تساوي ثانية واحدة

ثم مجموعة ازرار وحقل غير منضم

( في الوسط )

حقل غير منضم ممكن للساعة يظهر قيمة افتراضية للوقت (الساعة الثامنة صباحا) (ساعة بداية الدوام)

( يمين من الاعلى للأسفل +)

زر لاضافة دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

زر لاضافة خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

زر لاضافة عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

زر لاضافة ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

( يسار من الاعلى للأسفل -)

زر لطرح دقيقة واحدة على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

زر لطرح خمسة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

زر لطرح عشرة دقائق على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

زر لطرح ستون دقيقة ( ساعة واحدة) على قيمة الوقت ( الساعة ) في حقل الوقت الافتراضي

( يمين أسفل الوسط)

زر للعودة للوقت الافتراضي في حقل الوقت الافتراضي

( يسار أسفل الوسط)

زر لتثبيت الوقت الحالي في حقل الوقت الافتراضي

الاضافة و الطرح للوقت تتم باستخدام طريقة DateAdd حسب البنية التالية

    T1 = DateAdd("h", 1, T1)

ولسان حال الكود يقول

في الحقل T1 تعامل مع (n دقائق ) ( h ساعات) , (1 بالاضافة) (1- بالطرح) , من أصل قيمة الحقل T1

وكفى ... وفي التطبيق مزيد توضيح

post-12714-0-03216600-1301227679_thumb.p

NA_TimeControl.rar

  • Like 5
  • Thanks 2
  • 1 year later...
  • 3 months later...
  • 2 years later...
  • 2 years later...
قام بنشر

سلمت اناملك وافكارك وجزاك الله خيرا ماشاء الله استاذي ابوادم

بس النموذج الرئيسي يطلب تظهر رسالة تقول الكائن غير موجود في عنصر التحكم ثم يغلق ويفتح على الكود( ProgressBar2.Value = i ) في جميع نماذج التحميل مش هذا فقط

هل ينقصني كائن حذف عليا ام ايش

وكيف اصلحه

  • 1 year later...
قام بنشر

السلام عليكم ..

هل يمكن استبدال دالة

T1 = DateAdd("h", 1, T1)

بدالة الوقت فقط

Time ()

وكيف تكتب في كود الحدث عند النقر من زرالتحكم (+ أو -) في الساعة أو الدقائق أو الثواني ؟

 

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information