طلب مساعدة بخصوص وضع تاريخ انتهاء صلاحية الاسطوانة

[احمد مجدى]

السلام عليكم ورحمة الله وبركاته

لو سمحتم يا اخوانى كنت عايز اعرف ازاى كيفية

وضع تاريخ إنتهاء الصلاحية للأسطوانة يعنى يخبر

مستعمل الاسطوانة ان انتهاء الفترة التجريبية فى

يوم مثلا 11-7-2016 على حسب اول تشغيل للاسطوانة يحسب

فترة مثلا 30 يوم ويجمعهم على التاريخ الحالى ويعرض الناتج فى صفحة المشروع

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

ورمضان كريم والسلام عليكم ورحمة الله وبركاته

[عبود عبود]

راجع هذا الموضوع

http://www.abc4web.net/vb/showthread.php?t=16352

[احمد مجدى]

راجع هذا الموضوع

http://www.abc4web.net/vb/showthread.php?t=16352





شكرا على ردك يا استاذى الفاضل بس مش ده كان قصدى انا كنت عايز اعمل زرار عند الضغط عليه يظهر رساله او ديالوج يوضح فيه انتهاء الصلاحية فى يوم مثلا 10\9\2016 يعنى بالوقت اللى احدده للفترة انا مطبق فكرة جعل الاسطوانة تريال ولكن كنت عايز الطلب التانى ده يا ريت لو تقدر تفدنى زى
اى برنامج تضغط على ادارة التراخيص يظهر لك ميعاد انتهاء الترخيص وهو دا اللى انا عايزه

والف شكر وجزاك الله خيرا
فى انتظار الرد

[عبود عبود]

ضع ملف مفتوح بالأكواد التى تستخدمها للتعديل عليها وعمل اللازم

[احمد مجدى]

ضع ملف مفتوح بالأكواد التى تستخدمها للتعديل عليها وعمل اللازم





دا رابط الملف المفتوح


http://up.top4top.net/downloadf-162p2371-rar.html

[عبود عبود]

ضع هذا الكود فى الحدث "On Show" للصفحة :

--
EndDate = ((date_installed+15) - 2440587.5) * 86400 ;
data = os.date("%Y-%m-%d",EndDate);
Label.SetText("Label1", data);

[ثامر أبو بلقيس]

أحسنت .. أرى أن يتم تخزين أول يوم للاستعمال
ثم تجرى من خلاله عملية الحساب
اي إضافة الــ 30 يوما :abc_138:

[احمد مجدى]

ضع هذا الكود فى الحدث "On Show" للصفحة :

--
EndDate = ((date_installed+15) - 2440587.5) * 86400 ;
data = os.date("%Y-%m-%d",EndDate);
Label.SetText("Label1", data);

انا وضعت الكود زى ما قولت فى On Show بس ظهر رسالة خطا فى لاين 1 مش عارف اعمل ايه

يا ريت تعملها فى الملف المفتوح وترفعه بعد اذنك

[عبود عبود]

https://www.mediafire.com/?uca5d503qh4ipct

[احمد مجدى]

https://www.mediafire.com/?uca5d503qh4ipct




تمام تسلم ايدك والله ربنا يبارك فيك

هو دا المطلوب جزاك الله خيرا

وربنا يزيدك علما كمان وكمان

[عبود عبود]

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


:abc_065:

[ثامر أبو بلقيس]

بالعكس أستاذي الكريم منكم تعلمنا مباديء التعامل مع البرنامج :abc_139:

[ياسرهتهت]

انا وضعت الكود زى ما قولت فى On Show بس ظهر رسالة خطا فى لاين 1 مش عارف اعمل ايه

يا ريت تعملها فى الملف المفتوح وترفعه بعد اذنك

------------------------

بسم الله الرحمن الرحيم

اخي الكود شغال 100%
هذا الملف بعد تعديل اخونا عبود
http://up.top4top.net/downloadf-163f82j1-rar.html

موفق بإذن الله ... لك مني أجمل تحية .

[عبود عبود]

بالعكس أستاذي الكريم منكم تعلمنا مباديء التعامل مع البرنامج :abc_139:


بارك الله لك وتقبل منك الصيام وبارك لك فى أولادك وأحباؤك :abc_138:

[ثامر أبو بلقيس]

وهذه قراءة أخرى للكود كنت على وشك كتابتها
كفكرة دون الاطلاع على الملف المفتوح لذلك حتى و إنك اختصرت الطريق
جيد أن أكتب هذا الكود لعله يفيد يوما في موقف مشابه
قد لا يعطي في أول ضغطة الناتج وكأن بي ينقصه تحديث أو اختيار الحفظ في ملف نصي أفضل
المهم هي محاولة مفادها " ما هو التاريخ المتوافق مع فترة استعمال اختبارية منذ بدء البرنامج ؟" تضاف لمجهودانكم جيد لو تجرب في ملف
منفصل ينقصها اجراء نهاية القترة التنجريبية لان التركيزهنا فقط على إظهار التاريخ
x = System.GetDate(DATE_FMT_US);
--
salim = Application.LoadValue("salim", "salim");
if salim == "" then
Application.SaveValue("salim", "salim", x);
else
end
----------------------------------------------
tamer1 = os.time({year=String.Mid(salim, 7, 4), month=String.Mid(salim, 1, 2), day=String.Mid(salim, 4, 2)})
b1 = String.ToNumber(Math.Ceil((tamer1 / 86400) + 2440587.5))
v=b1+15
K = (v - 2440587.5) * 86400
data = os.date("%Y-%m-%d",K)
Dialog.Message("Notice", data);

[ثامر أبو بلقيس]

------------------------

بسم الله الرحمن الرحيم

اخي الكود شغال 100%
هذا الملف بعد تعديل اخونا عبود
http://up.top4top.net/downloadf-163f82j1-rar.html

موفق بإذن الله ... لك مني أجمل تحية .


http://www.abc4web.net/vb/images/smilies/word/shokr.gif

[احمد مجدى]

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


:abc_065:

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

والسلام عليكم ورحمة الله وبركاته