تمرين 4 : كيفية معرفة اسم الصفحة التالية و الصفحة السابقة و التأكد من الصفحة الأولى

[المـهاجر]

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

لدينا مشروع متعدد الصفحات
يمكننا بكل سهولة معرفة إسم الصفحة التالية و السابقة فى وقت التصميم بالأوتوبلاى
http://d.top4top.net/p_386sf3lv1.jpg

المطلوب
الآن نريد كود يعطينا إسم الصفحة التالية
و كود يعطينا إسم الصفحة السابقة
كذلك نريد كود يكتشف إذا كنا فى الصفحة الأولى
و نريد كود يكتشف إذا كنا فى الصفحة الأخيرة
نريد ايضا كود يكتشف اذا كان المشروع يتكون من صفحة واحدة فقط

يمكن الحصول على نتائج بطريق غير مباشر بالدالة
Application.GetPages
و لابد من التعامل مع المصفوفات و معالجتها بدوال إضافية للحصول على النتائج

فهل هناك طرق مباشرة أغفلها ملف مساعدة الأوتوبلاى ؟؟
نعم و هناك متغيرات مباشرة حجبتها عنا الشركة المنتجة لللأوتوبلاى لسبب لا نعلمه
سيكشف لنا التمرين عن المتغيرات الخام التى إستخدمتها الشركة لبناء الدالة السابق ذكرها و حظرت علينا معرفتها
و لأن المعرفة حق للجميع
وضعت لكم هذا التمرين

اعتذر عن كثرة الطلبات
لكن ليس من الحكمة انشاء 4 تمرينات تصب فى نفس الخصوص

القيود
عدم اختزان اسماء الصفحات فى اى متغير او نص اثناء التصميم

:abc_051: :abc_051: :abc_051:
و تدريجيا سأكشف لكم النقاب فى تمارين أخرى عن متغيرات شديدة الحساسية
منها متغيرات تبلغ الشركة عن إذا ما كانت نسختك من الأوتوبلاى مقرصنة أم لا
و أدى الجهل بها الى إيقاف الكثير من العضويات فى منتدى الشركة المنتجة بحجة استخدام نسخة مقرصنة من البرنامج

:abc_051: :abc_051: :abc_051:
تقبلوا خالص تحياتى
:abc_152: :abc_152:
:abc_152:

انتهى التمرين بتوصل الأخ ابو بلقيس لجزء كبير من الحل
:abc_139:

الحل
الصفحة السابقة
Dialog.Message("Notice", _PagePrevious);

الصفحة التالية
Dialog.Message("Notice", _PageNext);

معرفة اننا بالصفحة الأولى
if _PagePrevious == "" then
Dialog.Message("Notice", "You Are in The First Page");
end

معرفة أننا بالصفحة الأخيرة

if _PageNext == "" then
Dialog.Message("Notice", "You Are in The Last Page");
end


معرفة انا المشروع لا يحوى الا صفحة واحدة
if _PagePrevious == "" and _PageNext == "" then
Dialog.Message("Notice", "You Have Only one Page in your Project");
end

شكرا للجميع

[ياسرهتهت]

بسم الله الرحمن الرحيم
شكرا لك استاذ المهاجر
في انتظار الاجابة :abc_152:
موفق بإذن الله ... لك مني أجمل تحية .

[فرح صالحي]

كود يكشف عدد صفحات المشروع
-- Get the names of all of the pages in the application.
pages = Application.GetPages();

-- Create a string containing all of the page names.
page_string = "";
for index, pagename in pairs(pages) do
page_string = String.Concat(page_string, pagename.."\r\n");
end

-- Display a dialog message with all of the page names.
result = Dialog.Message("Application Pages", "This application consists of the following pages: \r\n"..page_string);

[ياسرهتهت]

كود يكشف عدد صفحات المشروع
-- Get the names of all of the pages in the application.
pages = Application.GetPages();

-- Create a string containing all of the page names.
page_string = "";
for index, pagename in pairs(pages) do
page_string = String.Concat(page_string, pagename.."\r\n");
end

-- Display a dialog message with all of the page names.
result = Dialog.Message("Application Pages", "This application consists of the following pages: \r\n"..page_string);


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

شكرا لك اخي فرح
كود مميز وجميل ورائع
يحدد عدد الصفحات واسمائها
موجود في Help
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

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

Dialog.Message("",_PageCurrent); --- الحالية
Dialog.Message("",_PageNext); ---- التالي
Dialog.Message("",_PagePrevious); --- السابق

[المـهاجر]

شكرا للجميع
تم غلق التمرين و تعديل المشاركة الأولى

[عبد الهادي بهاب]

مشكور استاذي على التمرين
فعلا تمرين جد رائع و فائدة عظيمة
بارك الله فيكما و زادكم من علمه