كيفية توقيف العداد لبرنامج

zine pef كتب:

السلام عليكم

الكود:

S = GetSetting("A", "0", "Runcount")

G = Val(S) + 1

SaveSetting "A", "0", "RunCount", G

حسب فهمي لهذا الكود G هو العداد

ما هو الكود لكي يتوقف العداد من العد

و شكرا لكم

اجعل الكود هكذا

S = GetSetting("A", "0", "Runcount")
G = Val(S) 
SaveSetting "A", "0", "RunCount", G

أو إلغي الكود نهائيا .

تحياتي

شكرا أخي omani على المرور و المساعدة

لم أوضح أكثر في السابق بالنسبة للكود

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

و

كما تكرمت على الأيجابة في سؤال سابق عن إرجاع العدد الى الصفر (0)

الأن اريد العدد ان يتوقف عن العد

و قلت إلغاء الكود ..هل من طريقة

و شكرا لكم

zine pef كتب:

الأن اريد العدد ان يتوقف عن العد

و قلت إلغاء الكود ..هل من طريقة

و شكرا لكم

أنظر هذا السطر

G = Val(S) + 1

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

فنحن قمنا بإزالة الزيادة بحيث اصبح الكود كالتالي :

G = Val(S)

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

تحياتي

شكرا أخي سوف اجرب العلمية و الرد بعدين

شوف أخي الكود

On Error Resume Next
S = GetSetting("b", "0", "x")
G = Val(S) + 1
SaveSetting "b", "0", "x", G
  Me.Lab.Caption = "Êã ÊÔÛíá   " & " ( " & G & " ) " & "ãÑÉ ãä 4ãÑÉ"
If G > 4 Then
   MsgBox "ÚÜÜÜÜÝæ ÃÎí ÇáßÜÜÜÑíã .. åÐå äÜÜÓÎÉ ãÍÜÜÜÏæÏÉ" & vbCrLf & _
   "ÊÚãá áÚÏÏ 4 ãÑÇÊ .. Þã ÈÔÑÇÁ ÇáÈÑäÇãÌ", _
      vbExclamation + vbOKOnly, _
      " ÃÓÊÇÐ ÒåÑÇÁ"
 If InputBox("ÅÏÎÇá ßáãÉ ÇáãÑæÑ", "ÇáÑÌÇÁ ÅÏÎÇá ßáãÉ ãÑæÑ") = "o" Then
SaveSetting "b", "0", "x", 0
G = Val(S)
End If
End If

و البرنامج لا يتوقف

اين الخلل و شكرا لك

zine pef كتب:

شوف أخي الكود

On Error Resume Next
S = GetSetting("b", "0", "x")
G = Val(S) + 1
SaveSetting "b", "0", "x", G
  Me.Lab.Caption = "Êã ÊÔÛíá   " & " ( " & G & " ) " & "ãÑÉ ãä 4ãÑÉ"
If G > 4 Then
   MsgBox "ÚÜÜÜÜÝæ ÃÎí ÇáßÜÜÜÑíã .. åÐå äÜÜÓÎÉ ãÍÜÜÜÏæÏÉ" & vbCrLf & _
   "ÊÚãá áÚÏÏ 4 ãÑÇÊ .. Þã ÈÔÑÇÁ ÇáÈÑäÇãÌ", _
      vbExclamation + vbOKOnly, _
      " ÃÓÊÇÐ ÒåÑÇÁ"
 If InputBox("ÅÏÎÇá ßáãÉ ÇáãÑæÑ", "ÇáÑÌÇÁ ÅÏÎÇá ßáãÉ ãÑæÑ") = "o" Then
SaveSetting "b", "0", "x", 0
G = Val(S)
End If
End If

و البرنامج لا يتوقف

اين الخلل و شكرا لك

انظر التعديل هنا في السطر الثالث بالتحديد

On Error Resume Next
S = GetSetting("b", "0", "x")
G = Val(S)

تحياتي

ألف شكر أخي عماني على المساعدة

لكن ليس تصحيح في السطر الثالث 3

اريد عندما يعد البرنامج و يتوقف يطلب الكود للتفعيل بعد كلمة التفعيل

نضع

SaveSetting "b", "0", "x", 0

اي ارجاع العدد الى 0

هنا لبد ان يتوقف العدد ارجو ان اكون واضح في الشرح

و شكرا لك

zine pef كتب:

ألف شكر أخي عماني على المساعدة

لكن ليس تصحيح في السطر الثالث 3

اريد عندما يعد البرنامج و يتوقف يطلب الكود للتفعيل بعد كلمة التفعيل

نضع

SaveSetting "b", "0", "x", 0

اي ارجاع العدد الى 0

هنا لبد ان يتوقف العدد ارجو ان اكون واضح في الشرح

و شكرا لك

اخي ارسل مثالك كامل مع التعديل المطلوب . حفاظا على الوقت .

تحياتي

السلام عليكم

اليك المثال ارجو ان الملف واضح

DEMO1.rar

تفضل اخي مثالك بعد التعديل .

تحياتي

DEMO1.rar

شكرا أخي omani على المساعدة

++1