azizsoft
26-06-2012, 10:05 AM
http://img835.imageshack.us/img835/6807/21948207.png
وبعــــــــــــــــــــــ ــــــــــد
الاخوة مشرفي وأعضاء منتدى طريق الاحتراف
أهلا وسهلا ومرحبا بكم وأسعد الله أوقاتكم بطاعته ومحبته .
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
يسعدني أن أقدم لكم اليوم درس أو تلميح بسيط لملجد Help ببرنامج الأتوبلاي والذي سبق أن أشرت اليه في مواضيع
سابقة فذكر ان الذكرى تنفع المؤمنين .
اخوتي الكرام جل البرامج العملاقة وحتى الصغيرة تحتوي على ملف مساعدة يسمى Help وعادة نعدما تضغط F1 من لوحة
المفاتيح تجده أمامك هذا المجلد هو سر كل برنامج ودليلك الى الاحتراف أعلم أن البعض لايجيد اللغة الانقليزية لكن نحاول
قدر الامكان ولو بالقاء نظرة عليه فمثلا برنامج الاتوبلاي يحتوي على ملف مساعدة جميل وسهل واليك الدليل .
لنلقي نظرة سريعة على هذا الشرح البسيط وسأوضح لك كيفية الاستفادة من بعض الأكواد الجاهزة وربما بحثت عنها ذات مرة
واستفسرت عن كود معين لأمر معين ؟؟؟؟
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
WIDTH=800 HEIGHT=600
بعد فتح المجلد Help سنقف فقط على مجلد HowDo افتح المجلد ولاحظ معي الطرق والأوامر الكثيرة التي تسهل عليك
القيام بعديد التطبيقات بمجرد نسخ الكود ولصقه في مكانه ، عند تمعنك جيدا في العناوين ستلاحظ سهولة التطبيق واليك بعض الأمثلة
نحن دائما في نفس المجلد نحدد Add Password Protection
ستجد من اليمين الكود وهنا يعلمك مطور البرنامج كيف تجعل اسطوانتك تفتح برقم سري
وسنسخ نفس الكود ويكفي فقط أن نغير أي رقم سري خاص بنا وندرجه مكان password وبباقي الفقرة ونضع
الكود كله في الحدث On show من خصائص الصفحة كما هو مبين بأول سطر وهو :
Insert the following script in your page's On Show event
-- the 'correct' password
real_password = "password";
-- prompt the user to enter a password
user_password = Dialog.PasswordInput("Password", "Please enter the password: ", MB_ICONQUESTION);
-- compare the user's password to the 'correct' password.
-- If the user supplies the wrong password, exit the program.
if real_password ~= user_password then
Application.Exit();
end
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
مثال آخر وعليك أن تكمل البقية :
جعل اسطوانتك تعمل لمدة 30 يوما فقط أي تجريبية
Expire my Application After Thirty Days
ويمكن أن تغير ارقام 30 الى عدد ايام تريدها حتى يوم واحد ان شئت أي تضح ببساطه عوض 30 ..... 1
ننسخ الكود نضغط Project ثم Action في الحدث OnStartUp نلصق الكود والسلام عليكم == ماهذه السهولة يا سلام .....لو تركز فقط
يا طيب :abc_088::abc_088:
-- Initialize variables
days_left = 30;
date_installed = Application.LoadValue("My Application", "Date Installed");
time_limit = 30; --the length of the trial period, in days
-- Convert string value to number
date_installed = String.ToNumber(date_installed);
-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN));
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end
-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
else
-- There are days left, alert user how many
Dialog.Message("Trial Period", "You have "..days_left.." days left in your trial period.");
end
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
هناك العديد والعديد من الأوامر الجاهزة في في هذا المجلد المعد خصيصا للمبتدئين مثلنا فتأكد أخي الكريم
أنك ستجد عديد الحلول والأفكار التي لم تكن تعرفها وتحت طلبك لاي استفسار فمن هناك تكون انطلاقتك للاحتراف.
لاتنسونا بصالح الدعاء فلكم الأجر بالمثل .
والسلام عليكم ورحمة الله وبركاته
http://img138.imageshack.us/img138/8206/rabhi.gif
وبعــــــــــــــــــــــ ــــــــــد
الاخوة مشرفي وأعضاء منتدى طريق الاحتراف
أهلا وسهلا ومرحبا بكم وأسعد الله أوقاتكم بطاعته ومحبته .
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
يسعدني أن أقدم لكم اليوم درس أو تلميح بسيط لملجد Help ببرنامج الأتوبلاي والذي سبق أن أشرت اليه في مواضيع
سابقة فذكر ان الذكرى تنفع المؤمنين .
اخوتي الكرام جل البرامج العملاقة وحتى الصغيرة تحتوي على ملف مساعدة يسمى Help وعادة نعدما تضغط F1 من لوحة
المفاتيح تجده أمامك هذا المجلد هو سر كل برنامج ودليلك الى الاحتراف أعلم أن البعض لايجيد اللغة الانقليزية لكن نحاول
قدر الامكان ولو بالقاء نظرة عليه فمثلا برنامج الاتوبلاي يحتوي على ملف مساعدة جميل وسهل واليك الدليل .
لنلقي نظرة سريعة على هذا الشرح البسيط وسأوضح لك كيفية الاستفادة من بعض الأكواد الجاهزة وربما بحثت عنها ذات مرة
واستفسرت عن كود معين لأمر معين ؟؟؟؟
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
WIDTH=800 HEIGHT=600
بعد فتح المجلد Help سنقف فقط على مجلد HowDo افتح المجلد ولاحظ معي الطرق والأوامر الكثيرة التي تسهل عليك
القيام بعديد التطبيقات بمجرد نسخ الكود ولصقه في مكانه ، عند تمعنك جيدا في العناوين ستلاحظ سهولة التطبيق واليك بعض الأمثلة
نحن دائما في نفس المجلد نحدد Add Password Protection
ستجد من اليمين الكود وهنا يعلمك مطور البرنامج كيف تجعل اسطوانتك تفتح برقم سري
وسنسخ نفس الكود ويكفي فقط أن نغير أي رقم سري خاص بنا وندرجه مكان password وبباقي الفقرة ونضع
الكود كله في الحدث On show من خصائص الصفحة كما هو مبين بأول سطر وهو :
Insert the following script in your page's On Show event
-- the 'correct' password
real_password = "password";
-- prompt the user to enter a password
user_password = Dialog.PasswordInput("Password", "Please enter the password: ", MB_ICONQUESTION);
-- compare the user's password to the 'correct' password.
-- If the user supplies the wrong password, exit the program.
if real_password ~= user_password then
Application.Exit();
end
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
مثال آخر وعليك أن تكمل البقية :
جعل اسطوانتك تعمل لمدة 30 يوما فقط أي تجريبية
Expire my Application After Thirty Days
ويمكن أن تغير ارقام 30 الى عدد ايام تريدها حتى يوم واحد ان شئت أي تضح ببساطه عوض 30 ..... 1
ننسخ الكود نضغط Project ثم Action في الحدث OnStartUp نلصق الكود والسلام عليكم == ماهذه السهولة يا سلام .....لو تركز فقط
يا طيب :abc_088::abc_088:
-- Initialize variables
days_left = 30;
date_installed = Application.LoadValue("My Application", "Date Installed");
time_limit = 30; --the length of the trial period, in days
-- Convert string value to number
date_installed = String.ToNumber(date_installed);
-- Was date_installed 0 (non-existent)?
if date_installed == 0 then
-- Value was nonexistent, create it
Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN));
else
-- Update days_left
days_left = (date_installed + time_limit) - System.GetDate(DATE_FMT_JULIAN);
end
-- Are there days left?
if days_left < 1 then
-- There are not any days left, alert user and exit.
Dialog.Message("Trial Period Over", "This software has expired");
Application.Exit();
else
-- There are days left, alert user how many
Dialog.Message("Trial Period", "You have "..days_left.." days left in your trial period.");
end
http://img87.imageshack.us/img87/1498/913e588354hs6gi8.png
هناك العديد والعديد من الأوامر الجاهزة في في هذا المجلد المعد خصيصا للمبتدئين مثلنا فتأكد أخي الكريم
أنك ستجد عديد الحلول والأفكار التي لم تكن تعرفها وتحت طلبك لاي استفسار فمن هناك تكون انطلاقتك للاحتراف.
لاتنسونا بصالح الدعاء فلكم الأجر بالمثل .
والسلام عليكم ورحمة الله وبركاته
http://img138.imageshack.us/img138/8206/rabhi.gif