مساعدة في عداد الوقت

[ازهر عبد العزيز]

السلام عليكم 

في النمودج K يوجد عداد للوقت يعمل بشكل طبيعي للحقول Y,A,B,C احتاج اضيف عدادا وقت اخر للحقول X,D.E,F  يعمل كعمل العداد الاول لكن بشكل منفصل اي عند ايقاف العداد الاول لايتاثر العداد الثاني والعكس  صحيح وكدلك عند تشغيل العداد الاول لايتاثر العداد الثاني وهكدا وادا امكن اضافة زر لتصفير العداد الاول وكدل زر لتصفير العداد الثاني ولكم جزيل الشكر 

1819992170_19(1)(1).accdb

[ابوخليل]

مع عدم فهمي لطبيعة عمل هذه العدادات

تفضل التعديل حسب طلبك

If j = 1 Then
If Me.A = 9 Then
    Me.A = 1
Else
    Me.A = Me.A + 1
End If
If Me.B = 9 Then
    Me.B = 2
Else
    Me.B = Me.B + 1
End If
Me.Y = A - B
If Me.Y = Me.C Then Me.j = 0: MsgBox "OK"
End If
'===========================================
If t = 1 Then
If Me.D = 9 Then
    Me.D = 1
Else
    Me.D = Me.D + 1
End If
If Me.E = 9 Then
    Me.E = 2
Else
    Me.E = Me.E + 1
End If
Me.x = D - E
If Me.x = Me.F Then Me.t = 0: MsgBox "OK"
End If

لاحظ اني كررت الكود فقط

timer11.rar

[ازهر عبد العزيز]

• الاستاد ابو خليل شكرا لمرورك لكن المرفق لايعمل عندي ... يمكن الخطا عندي 

[kha9009lid]

16 دقائق مضت, ازهر عبد العزيز said:

يمكن الخطا عندي

بعد اذن اخي واستاذي ابو خليل

شوف اخي ازهر الخطا بسبب me.j و me.t

لكونهما متغيران وليسا حقلين في النموذج

timer11.accdb

[ابوخليل]

انا بعد ان تأكدت من عمل العدادات رجعت كالمعتاد اتأكد من المحرر اذا فيه اسطر زائدة او نحو ذلك .. 

فوجدت اني نسيت استبدل  me.TimerInterval  فبدلت   TimerInterval بـــ المتغيرين  j  و  t  وغفلت عن me

ورفعت المثال بدون فحص

الف شكر استاذنا العزيز على المداخلة والإشارة الى مكان الخلل

[ازهر عبد العزيز]

الاساتدة  المحترمين ابوخليل , kha9009lid  شكرا لتعاونكم تبقى مشكلة اخيرة ارجو منكم تقديم يد المساعدة احتاج الى زر توقيف عداد الوقت الاول كما هو  بدون تصفير وكدلك عداد الوقت الثاني 

 

تم تعديل أبريل 4, 2021 بواسطه ازهر عبد العزيز

[ابوخليل]

فقط قم بتعطيل الأكواد الظاهرة كما في الصورة

 

[ازهر عبد العزيز]

[kha9009lid]

24 دقائق مضت, ازهر عبد العزيز said:

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

يا هلا باخي ازهر

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

ثانيا ليبقى العداد كماهو عند التوقيف في زر امر ايقاف

بدل

j = 0
A = 0
B = 0
Y = 0

الى

j = 0
A = A
B = B
Y = Y

وكذلك ايضا للعداد الاخر مع مراعات اسماء الحقول

مع الاعتراف باني لم افهم الهدف من هذا العمل

 

timer11.accdb

7 دقائق مضت, ابوخليل said:

فقط قم بتعطيل الأكواد الظاهرة كما في الصورة

اعتذر منك اخي ابو خليل كنت اجري التعديلات اوف لاين ولم انتبه لردك

تحياتي وتقديري لك اخي ومعلمي 🌹

[ازهر عبد العزيز]

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

[kha9009lid]

4 دقائق مضت, ازهر عبد العزيز said:

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

احسنت اخي ازهر فنحن نعمل باسماء مستعار ولا نطلب الا الاجر من الله ولكن ينسب الفضل لاهله

قال تعالى (ولا تنسوا الفضل بينكم) صدق الله العظيم

[jjafferr]

17 دقائق مضت, kha9009lid said:

اولا امل تغيير افضل اجابة لاخي واستاذي الفاضل ابو خليل لانه هو صاحب الاجابة الحقيقي

تم 🙂

لا خَيلَ عِندَكَ تُهديها وَلا مالُ ... فَليُسعِدِ النُطقُ إِن لَم تُسعِدِ الحالُ

وَاِجزِ الأَميرَ الَّذي نُعماهُ فاجِئَةٌ ... بِغَيرِ قَولِ وَنُعمى الناسِ أَقوالُ

 

جعفر

[kha9009lid]

29 دقائق مضت, jjafferr said:

تم 🙂

لا خَيلَ عِندَكَ تُهديها وَلا مالُ ... فَليُسعِدِ النُطقُ إِن لَم تُسعِدِ الحالُ

وَاِجزِ الأَميرَ الَّذي نُعماهُ فاجِئَةٌ ... بِغَيرِ قَولِ وَنُعمى الناسِ أَقوالُ

جزاك الله خير يا ابا عبدالله

 

[ابوخليل]

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

1 ساعه مضت, kha9009lid said:

 ولكن ينسب الفضل لاهله قال تعالى (ولا تنسوا الفضل بينكم) صدق الله العظيم

أشد العلماء تواضعا أكثرهم علما ، الى ترى أن المكان المنخفض أكثر البقاع ماء

[kha9009lid]

منذ ساعه, ابوخليل said:

الذي سيأتي مستقبلا سيأخذ افضل اجابة اختصارا لوقته

على راسي كلكم اخي واستاذ ابو خليل واستاذي جعفر واخي وزميلي الحبيب ازهر 🌹

[jjafferr]

4 ساعات مضت, ابوخليل said:

وسأعيد التقييم الى اصله

أشد العلماء تواضعا أكثرهم علما ، الا ترى أن المكان المنخفض أكثر البقاع ماء

وكثر ما اكنت اقول في حقك بأنك اخونا العود ، فإني كنت مقصر ، إجلالا لمثل مواقفك هذه 🙂

 

جعفر

[ابوخليل]

4 ساعات مضت, jjafferr said:

وكثر ما اكنت اقول في حقك بأنك اخونا العود ، فإني كنت مقصر ، إجلالا لمثل مواقفك هذه 🙂

خِلّ إذا جئتَه يوماً لتسألَهُ .... أعطاكَ ما ملكت كفّاهُ واعتذرا 
يُخفي صنائعَهُ والله يُظهرُها .... إنّ الجميلَ إذا أخفيتَه ظهرا

[Barna]

ما شاء الله تبارك الله

دروس نتعلمها من الكبار امثالكم