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

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

السلام عليكم 

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

1819992170_19(1)(1).accdbFetching info...

[ابوخليل]

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

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

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.rarFetching info...

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

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

[kha9009lid]

  في 3‏/4‏/2021 at 20:44, ازهر عبد العزيز said:

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

Expand  

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

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

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

timer11.accdbFetching info...

[ابوخليل]

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

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

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

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

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

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

 

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

[ابوخليل]

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

 

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

[kha9009lid]

  في 4‏/4‏/2021 at 07:56, ازهر عبد العزيز said:

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

Expand  

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

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

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

بدل

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

الى

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

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

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

 

timer11.accdbFetching info...

  في 4‏/4‏/2021 at 08:14, ابوخليل said:

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

Expand  

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

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

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

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

[kha9009lid]

  في 4‏/4‏/2021 at 08:29, ازهر عبد العزيز said:

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

Expand  

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

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

[jjafferr]

  في 4‏/4‏/2021 at 08:21, kha9009lid said:

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

Expand  

تم 🙂

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

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

 

جعفر

[kha9009lid]

  في 4‏/4‏/2021 at 08:44, jjafferr said:

تم 🙂

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

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

Expand  

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

 

[ابوخليل]

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

  في 4‏/4‏/2021 at 08:34, kha9009lid said:

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

Expand  

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

[kha9009lid]

  في 4‏/4‏/2021 at 10:27, ابوخليل said:

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

Expand  

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

[jjafferr]

  في 4‏/4‏/2021 at 10:27, ابوخليل said:

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

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

Expand  

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

 

جعفر

[ابوخليل]

  في 4‏/4‏/2021 at 14:30, jjafferr said:

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

Expand  

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

[Barna]

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

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