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

[zine pef]

السلام عليكم

الكود:

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

G = Val(S) + 1

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

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

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

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

و شكرا لكم

تم تعديل أبريل 3, 2010 بواسطه zine pef

[ابوخليل]

السلام عليكم

أعمل زر أمر وفي حدث عند النقر اكتب :

Me.TimerInterval = 0

[zine pef]

لم تنجح الطريقة

ارفق لكم ملف ربما تكون الفكرة واضخة

DEMO1.rar

[ابوخليل]

انظر إن كان هذا الحل يناسبك ؟

DEMO2.rar

[zine pef]

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

لكن ليس هو المطلوب

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

أريد ان يبدأ العد و عند خروج inputBox بعد الموافقة يتوقف العدد نهائيا على العد

[ابوخليل]

تم التعديل على المرفق انظر مرة أخرى

بعد ادخال الرقم السري الصحيح يلتغي العداد

[zine pef]

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

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

و المطلوب لبد أن يبدأ العد و عند نهايته و بعد إدخال الرقم السري يتوقف عن العد

و ألف شكر أخي

[ابوخليل]

غريبة فالعداد يعمل حيث يفتح النموذج أربع مرات فقط ثم يظهر مربع الباسوورد فإن لم تدخل الاسم الصحيح اغلق البرنامج وإن كان صحيحا فتح النموذج وتوقف العداد من غير رجعة ، والسبب أن رأس الكود فيه شرط يتحقق بإدخال الاسم الصحيح .

حتى أني أجريت تجارب على العداد فجعلته يعد حتى 8 ، 6 ويعمل تمام .

هذا هو تصوري لمطلوبك وهو انك تريد المستخدم يمكنه فتح البرنامج اربع مرات للتجربة فقط والخامسة يطالبه بالباسوورد فإن كان صحيحا فتح النموذج وتوقف العداد .. هل هذا صحيح ؟؟

[zine pef]

شكرا أخي الفكرة و صلت و تحقق المطلوب

حلت المشكلة

بركة الله فيك و جزاك كل الخير

تم تعديل أبريل 4, 2010 بواسطه zine pef