كيفية ترجيع البرنامج يشتغل بعد نفاذ عدد مرات التشغيل
بعد الكود دة
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' ÇáÑÞã (3) íÍÏÏ ÚÏÏ ãÑÇÊ ÇáÊÔÛíá
MsgBox ("انتهت مدة تشغيل البرنامج")
Unload Me
End If
اخي الكريم :
اكتب هذا السطر في الفورم لوود مرة وواحدة ونفذ البرنامج ثم قم بحذف السطر مرة اخرى وإلا سوف لن تنتهي فترة التجريب أبدا " . حيث ان عمله يقوم باعادة العداد الى صفر
SaveSetting "A", "0", "RunCount", 0
او اتبع الخطوات التالية
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…