المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : محتاج الكود دا ضررورررى

محمد مصطفى الجن
11-12-2015, 02:58 PM
بسم الله الرحمن الرحيم

انا الحمد لله شبه انتهيت من البرنامج الذى اقوم على عمله ولكن ماينقصنى بعض الامور وهى كالاتى

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


الطلب التانى وهو عندى انبوت عاوز اعمل فيه طريقة معرفش ممكنة ولا لا وهى انى مثلا هكتب فيه 1 لو روحت عامل + 1 وضغط انتر من الكيبورد تتم عملية الجمع تلقائى وهى 2 وكذالك لو عملت بجوار 2 + وكتبت رقم تتم التجميع

توضيح الانبوت فارغ كتبت فيه 1 وعملت +1 وضغط انتر يبقا الانبوت فيه رقم 2 فقط وكذلك لو عملت بجورها + وكتبت 3 وضغط انتر يبقا فى الانبوت رقم الجمع 5 فقط


وكمان عندى ليست بوكس عاوز المحتوى الى بيظهر فيها يتوسط اليست بوكس ميكون على الشمال
ثامر أبو بلقيس
11-12-2015, 03:44 PM
السلام عليكم ورحمة الله وبركاته

الطلب التانى وهو عندى انبوت عاوز اعمل فيه طريقة معرفش ممكنة ولا لا وهى انى مثلا هكتب فيه 1 لو روحت عامل + 1 وضغط انتر من الكيبورد تتم عملية الجمع تلقائى وهى 2 وكذالك لو عملت بجوار 2 + وكتبت رقم تتم التجميع

توضيح الانبوت فارغ كتبت فيه 1 وعملت +1 وضغط انتر يبقا الانبوت فيه رقم 2 فقط وكذلك لو عملت بجورها + وكتبت 3 وضغط انتر يبقا فى الانبوت رقم الجمع 5 فقط


تقصد عملية + أو أي عملية أخرى كتبتها و ظهرت في الانبوت بعدها تمسح العملية و تظهر النتيجة أم تبقى العملية الحسابية
محمد مصطفى الجن
11-12-2015, 03:46 PM
السلام عليكم ورحمة الله وبركاته



تقصد عملية + أو أي عملية أخرى كتبتها و ظهرت في الانبوت بعدها تمسح العملية و تظهر النتيجة أم تبقى العملية الحسابية

اى عملية حسابية اخرى الكريم وبعد الضغط على انتر تتم عملية التجميع ولا يظهر سوى المجموع فقط
ثامر أبو بلقيس
11-12-2015, 03:52 PM
إذن أنت بصدد إنجاز أنبوت ذكي

ضع أي أنبوت في تجميعيتك و في الحدث on key للأنبوت أكتب
y = Input.GetText(this);
if e_Key == 13 then
x = string.gsub("$return "..y.."$", "%$(.-)%$", function (s)
return loadstring(s)()
end)
Input.SetText(this, x);
Input.SetSelection(this, #x+1, #x+1);
end

جرب الان أي عملية جمع طرح ضرب قسمة أو أي عملية أخرى رياضية
بل تستطيع الان حتى تنفيذ أوامر أخرى مثلا لو تكتب في الانبوت
Application.Exit(0);
وتضغط على المفتاح13 ستخرج التجميعية لذلك قلت أنبوت ذكي

موفق :abc_138:
محمد مصطفى الجن
11-12-2015, 04:02 PM
إذن أنت بصدد إنجاز أنبوت ذكي

ضع أي أنبوت في تجميعيتك و في الحدث on key للأنبوت أكتب
y = input.gettext(this);
if e_key == 13 then
x = string.gsub("$return "..y.."$", "%$(.-)%$", function (s)
return loadstring(s)()
end)
input.settext(this, x);
input.setselection(this, #x+1, #x+1);
end

جرب الان أي عملية جمع طرح ضرب قسمة أو أي عملية أخرى رياضية
بل تستطيع الان حتى تنفيذ أوامر أخرى مثلا لو تكتب في الانبوت
application.exit(0);
وتضغط على المفتاح13 ستخرج التجميعية لذلك قلت أنبوت ذكي

موفق :abc_138:

مشكور اخى الكريم كالعادة زى زمان بلاقيك فى الوقت المناسب

طيب لو هعمل

4 انبوت

واحد الرقم الى يتكتب فيه تتم عملية جمع او طرح او ضرب على حسب نوعية العملية الحسابية الى فى الانبوت التانى وتتم العملية الحسابية ما يكتب فى فى الانبوت الاول بما يكتب فى الانبوت التالت وتظهر النتيجة فى الانبوت الرابع

توضيح

الانبوت الاول مثلا 20
الانبوت التانى مثلا على حسب ماهيكتبه المستخدم من عملية حسابية جمع طرح ضرب قسمة
الانبوت التالت مثلا 10

الانبوت الرابع تظهر نتيجة العملية الحسابية 30
محمد مصطفى الجن
11-12-2015, 04:05 PM
إذن أنت بصدد إنجاز أنبوت ذكي

ضع أي أنبوت في تجميعيتك و في الحدث on key للأنبوت أكتب
y = input.gettext(this);
if e_key == 13 then
x = string.gsub("$return "..y.."$", "%$(.-)%$", function (s)
return loadstring(s)()
end)
input.settext(this, x);
input.setselection(this, #x+1, #x+1);
end

جرب الان أي عملية جمع طرح ضرب قسمة أو أي عملية أخرى رياضية
بل تستطيع الان حتى تنفيذ أوامر أخرى مثلا لو تكتب في الانبوت
application.exit(0);
وتضغط على المفتاح13 ستخرج التجميعية لذلك قلت أنبوت ذكي

موفق :abc_138:
والله انت برنس نجح الامر الاول وكما كنت اريده ياريت لو تشوف الطلب التانى
ثامر أبو بلقيس
11-12-2015, 04:14 PM
السلام عليكم ورحمة الله وبركاته
4 انبوت

واحد الرقم الى يتكتب فيه تتم عملية جمع او طرح او ضرب على حسب نوعية العملية الحسابية الى فى الانبوت التانى وتتم العملية الحسابية ما يكتب فى فى الانبوت الاول بما يكتب فى الانبوت التالت وتظهر النتيجة فى الانبوت الرابع

توضيح

الانبوت الاول مثلا 20
الانبوت التانى مثلا على حسب ماهيكتبه المستخدم من عملية حسابية جمع طرح ضرب قسمة
الانبوت التالت مثلا 10

الانبوت الرابع تظهر نتيجة العملية الحسابية 30


جيد خذ أنبوت 1 أكتب فيه 20
خذ أنبوت 2 أكتب فيه +
خذ أنبوت 3 أكتب فيه 10

ضع أنبوت 4 لاستقبال النتيجة

ضف زر و أكتب فيه
y = Input.GetText("Input1")..Input.GetText("Input2")..Input.GetText("Input3")
x = string.gsub("$return "..y.."$", "%$(.-)%$", function (s)
return loadstring(s)()
end)
Input.SetText("Input4", x);


لاحظ هنا وظفت ظهور الناتج تحت زر شوف أنت الحدث الذي تريده لتنفيذ العملية بعد اكتمال اركانها :abc_138:
محمد مصطفى الجن
11-12-2015, 06:47 PM
السلام عليكم ورحمة الله وبركاته


جيد خذ أنبوت 1 أكتب فيه 20
خذ أنبوت 2 أكتب فيه +
خذ أنبوت 3 أكتب فيه 10

ضع أنبوت 4 لاستقبال النتيجة

ضف زر و أكتب فيه
y = Input.GetText("Input1")..Input.GetText("Input2")..Input.GetText("Input3")
x = string.gsub("$return "..y.."$", "%$(.-)%$", function (s)
return loadstring(s)()
end)
Input.SetText("Input4", x);


لاحظ هنا وظفت ظهور الناتج تحت زر شوف أنت الحدث الذي تريده لتنفيذ العملية بعد اكتمال اركانها :abc_138:


اخى ابو بلقيس انا ظبط البرنامج وكل حاجة بس عندى مشكلة مش عارف سببها

وهى مثلا عند عمل تحديث للصفحة او دخول للصفحة التالية ومن ثم العودة للصفحة السابقة يتم عمل تكرار تلقائى للاسم الموجود فى الليست بوكس وفى كل مرة رجوع للصفحة يتم التكرار مرة اخرى مش هتفهم الى اقصده غير لما تشوف الملف المفتوح
وتضغط على زر الى اسمه بحث هينقلك للصفحة التالية وهتلاقى زر اسمه الصفحة التالية اضغط عليه هينقلك لصفحة من الصفحة دى زر على شكل سهم تحديث اضغط عليه هيرجعك للصفحة السابقة وهتلاقى الاسم الى كان فى الليست بوكس اتكرر وكل مرة تقوم بالموضوع يتكرر الاسم


http://up.top4top.net/downloadf-top4top_2e9e08760d1-rar.html
ثامر أبو بلقيس
11-12-2015, 06:54 PM
في حدث الصفحة الموجود فيها ListBox

اكتب في البداية هذا الكود في الحدث on show
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);

مع مراعاة اسم العنصر في الكود الكفيل بمسح القائمة لذلك ضعه قبل إجراء أي استيراد
و من المستحسن يكتب دائما قبل اي اكواد تتعلق بعنصر ListBox

لم اطلع على الملف
محمد مصطفى الجن
11-12-2015, 06:59 PM
في حدث الصفحة الموجود فيها listbox

اكتب في البداية هذا الكود في الحدث on show
listbox.deleteitem("listbox1", lb_allitems);

مع مراعاة اسم العنصر في الكود الكفيل بمسح القائمة لذلك ضعه قبل إجراء أي استيراد
و من المستحسن يكتب دائما قبل اي اكواد تتعلق بعنصر listbox

لم اطلع على الملف

شوف الملف ومنتظرك اخى
ثامر أبو بلقيس
11-12-2015, 07:03 PM
يا مصطفى الملف المرسل تنفيذي كيف لي او للزملاء الاطلاع على الأكواد

------ ارفع ملفا مفتوحا لتسهيل الاطلاع على الأكواد ---- مجرد رأي :abc_138:
محمد مصطفى الجن
11-12-2015, 07:11 PM
شوف الملف ومنتظرك اخى

ههههههه معلش اخى الكريم رفعت الملف التنفيذى عن طريق الخطاء

دا الملف المفتوح

http://up.top4top.net/downloadf-top4top_bc1de91b691-rar.html
ثامر أبو بلقيس
11-12-2015, 07:25 PM
في كل الصفحات في on show
يصبح السطر المكتوب سطرين
ListBox.DeleteItem("listContent", LB_ALLITEMS);
fill_list()
أي المسح قبل الاستيراد :abc_138:
محمد مصطفى الجن
11-12-2015, 07:31 PM
في كل الصفحات في on show
يصبح السطر المكتوب سطرين
listbox.deleteitem("listcontent", lb_allitems);
fill_list()
أي المسح قبل الاستيراد :abc_138:

لاتزال المشكلة موجودة اخى الكريم
محمد مصطفى الجن
11-12-2015, 07:36 PM
لاحظ اللست بوكس اخى يتم تكرار الجمعة اكتر من مرة

وذلك فى كل مرة يتم الضغط على زر الصفحة التالية ومن ثم الرجوع للصفحة مرة اخرى يتم تكرار اسم الجمعة

ملحوظة عند غلق البرنامج وفتحه ترجع الامور لطبيعتها ولا يتبقى فى الليست بوكس غير الجمعة مرة واحدة


http://cdn.top4top.co/i_7b968c0bb21.jpg (http://up.top4top.net/)
محمد مصطفى الجن
11-12-2015, 08:21 PM
في كل الصفحات في on show
يصبح السطر المكتوب سطرين
listbox.deleteitem("listcontent", lb_allitems);
fill_list()
أي المسح قبل الاستيراد :abc_138:

منتظر عودتك بعد معاينة الملف والوصول الى الخطاء
ثامر أبو بلقيس
11-12-2015, 08:36 PM
كل محاولاتي خرجت تسلل لم احدد سبب و مكمن هذا الخلل :abc_138:
محمد مصطفى الجن
11-12-2015, 08:40 PM
كل محاولاتي خرجت تسلل لم احدد سبب و مكمن هذا الخلل :abc_138:

معلش اخى عارف انى هتعبك معايا بس معلش حاول تشوف كل الاكواد ولو نظرة سريعة ربما يظهر الخطا لانى تعبت فى المشروع جدا وحاجة زى دى مبوظة الدنيا
ثامر أبو بلقيس
11-12-2015, 09:28 PM
ربما تشابه الاسماء سبب هذا الخلط انا لم أنتبه

ماذا لو كان في الصفحة الاولى الكود في on show

كالتالي :
ListBox.DeleteItem("listContent", LB_ALLITEMS);
fill_list()

أما الصفحة الثانية فبكون هكذا
ListBox.DeleteItem("listCoontent", LB_ALLITEMS);
filll_list()


أما الصفحة الثالثة فيكون
ListBox.DeleteItem("listCooontent", LB_ALLITEMS);
fillll_list()

اذا كان الحل إن شاء الله صحيح فالسبب أنت لأنك اخترت تسميات تظهر و كأنها متشابهة

و ضعف نظري زده تشتتي لا يسمحان بإكتشاف هذا التشابه

موفق أخي :abc_138:

نسيت أن أسجل إعجابي بعملك البرمجي البعيد عن أي تجميع لمحتويات تعجبني هذه الأعمال
وفقك الله في أفكار اخرى ذات فكر برمجي متورد
محمد مصطفى الجن
12-12-2015, 11:32 AM
ربما تشابه الاسماء سبب هذا الخلط انا لم أنتبه

ماذا لو كان في الصفحة الاولى الكود في on show

كالتالي :
listbox.deleteitem("listcontent", lb_allitems);
fill_list()

أما الصفحة الثانية فبكون هكذا
listbox.deleteitem("listcoontent", lb_allitems);
filll_list()


أما الصفحة الثالثة فيكون
listbox.deleteitem("listcooontent", lb_allitems);
fillll_list()

اذا كان الحل إن شاء الله صحيح فالسبب أنت لأنك اخترت تسميات تظهر و كأنها متشابهة

و ضعف نظري زده تشتتي لا يسمحان بإكتشاف هذا التشابه

موفق أخي :abc_138:

نسيت أن أسجل إعجابي بعملك البرمجي البعيد عن أي تجميع لمحتويات تعجبني هذه الأعمال
وفقك الله في أفكار اخرى ذات فكر برمجي متورد

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


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


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

ومتشكر جدا على الاعجاب ولدى افكار مختلفة جميلة ولكنها تحتاج الى شخص يتفهم لغة البرمجة ويتقنها كل مالدى هو الفكرة ولكنى اجهل تطبيقها نظرا لعدم اتقانى للاكواد لذلك اعرض الفكرة لكى القى من حضرتكم التطبيق العملى والكود الذى يقوم بالمطلوب ومن ثم اتمكن بالتدريج من فهم الكود لكى اختزنه فى ذاكرتى
ثامر أبو بلقيس
12-12-2015, 12:38 PM
السلام عليكم ورحمة الله وبركاته

تقصد زر الحفظ في الصفحة الاولى يصبح
result = Dialog.Input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", MB_ICONQUESTION);
if result=="belkiss" then
------------------------------------------------
striD = Input.GetText("id");
f_name = Input.GetText("fname");
l_name = Input.GetText("lname");
albtaa = Input.GetText("albtaa");
aladd = Input.GetText("aladd");
almany = Input.GetText("almany");
phone = Input.GetText("phone");
molahzat = Input.GetText("molahzat");
moso = Input.GetText("moso");
strXML = "<friend id='"..striD.."'>\n<fname>"..f_name.."</fname>\n";
strXML = strXML.."<lname>"..l_name.."</lname>\n<albtaa>"..albtaa.."</albtaa>";
strXML = strXML.."\n<aladd>"..aladd.."</aladd>\n<almany>"..almany.."</almany>";
strXML = strXML.."\n<phone>"..phone.."</phone>\n<molahzat>"..molahzat.."</molahzat>\n<moso>"..moso.."</moso>\n</friend>\n";
if add_or_edit =="add" then
nCount = XML.Count("friends", "friend");
XML.InsertXML("friends/friend:"..nCount, strXML, XML.INSERT_BEFORE);
elseif add_or_edit =="edit" then
local tbselect = ListBox.GetSelected("listContent");
XML.InsertXML("friends/friend:"..tbselect[1], strXML, XML.REPLACE);
end
XML.Save(_SourceFolder.."\\AutoPlay\\Docs\\test.xml");
ListBox.DeleteItem("listContent", LB_ALLITEMS);
fill_list()
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);
-----------------------------------------------------------
else
Dialog.Message("Notice", "لايمكنك الحفظ ما كتبته خاطيء");
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);


end




و في الصفحة الثانية يصبح
result = Dialog.Input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", MB_ICONQUESTION);
if result=="belkiss" then
strRD7 = Input.GetText("RD7");
AR1 = Input.GetText("AR1");
AR2 = Input.GetText("AR2");
AR3 = Input.GetText("AR3");
AR4 = Input.GetText("AR4");
AR5 = Input.GetText("AR5");
AR6 = Input.GetText("AR6");
AR7 = Input.GetText("AR7");
AR8 = Input.GetText("AR8");
AR9 = Input.GetText("AR9");
AR10 = Input.GetText("AR10");
AR11 = Input.GetText("AR11");
AR12 = Input.GetText("AR12");
AR13 = Input.GetText("AR13");
AR14 = Input.GetText("AR14");
AR15 = Input.GetText("AR15");
AR16 = Input.GetText("AR16");
AR17 = Input.GetText("AR17");
AR18 = Input.GetText("AR18");
AR19 = Input.GetText("AR19");
AR20 = Input.GetText("AR20");
EN1 = Input.GetText("EN1");
EN2 = Input.GetText("EN2");
EN3 = Input.GetText("EN3");
EN4 = Input.GetText("EN4");
EN5 = Input.GetText("EN5");
EN6 = Input.GetText("EN6");
EN7 = Input.GetText("EN7");
EN8 = Input.GetText("EN8");
EN9 = Input.GetText("EN9");
EN10 = Input.GetText("EN10");
EN11 = Input.GetText("EN11");
EN12 = Input.GetText("EN12");
EN13 = Input.GetText("EN13");
EN14 = Input.GetText("EN14");
EN15 = Input.GetText("EN15");
EN16 = Input.GetText("EN16");
EN17 = Input.GetText("EN17");
EN18 = Input.GetText("EN18");
EN19 = Input.GetText("EN19");
EN20 = Input.GetText("EN20");
RD1 = Input.GetText("RD1");
RD2 = Input.GetText("RD2");
RD3 = Input.GetText("RD3");
RD4 = Input.GetText("RD4");
RD5 = Input.GetText("RD5");
RD6 = Input.GetText("RD6");
RD8 = Input.GetText("RD8");
RD9 = Input.GetText("RD9");
RDD = Input.GetText("RDD");
RD11 = Input.GetText("RD11");
RD12 = Input.GetText("RD12");
GG = Input.GetText("GG");
G1 = Input.GetText("G1");
G2 = Input.GetText("G2");
G3 = Input.GetText("G3");
G5 = Input.GetText("G5");
strXML = "<friendd RD7='"..strRD7.."'>\n<AR1>"..AR1.."</AR1>\n";
strXML = strXML.."<AR2>"..AR2.."</AR2>\n<AR3>"..AR3.."</AR3>";
strXML = strXML.."<AR4>"..AR4.."</AR4>\n<AR5>"..AR5.."</AR5>";
strXML = strXML.."<AR6>"..AR6.."</AR6>\n<AR7>"..AR7.."</AR7>";
strXML = strXML.."<AR8>"..AR8.."</AR8>\n<AR9>"..AR9.."</AR9>";
strXML = strXML.."<AR10>"..AR10.."</AR10>\n<AR11>"..AR11.."</AR11>";
strXML = strXML.."<AR12>"..AR12.."</AR12>\n<AR13>"..AR13.."</AR13>";
strXML = strXML.."<AR14>"..AR14.."</AR14>\n<AR15>"..AR15.."</AR15>";
strXML = strXML.."<AR16>"..AR16.."</AR16>\n<AR17>"..AR17.."</AR17>";
strXML = strXML.."<AR18>"..AR18.."</AR18>\n<AR19>"..AR19.."</AR19>";
strXML = strXML.."<AR20>"..AR20.."</AR20>\n<EN1>"..EN1.."</EN1>";
strXML = strXML.."<EN2>"..EN2.."</EN2>\n<EN3>"..EN3.."</EN3>";
strXML = strXML.."<EN4>"..EN4.."</EN4>\n<EN5>"..EN5.."</EN5>";
strXML = strXML.."<EN6>"..EN6.."</EN6>\n<EN7>"..EN7.."</EN7>";
strXML = strXML.."<EN8>"..EN8.."</EN8>\n<EN9>"..EN9.."</EN9>";
strXML = strXML.."<EN10>"..EN10.."</EN10>\n<EN11>"..EN11.."</EN11>";
strXML = strXML.."<EN12>"..EN12.."</EN12>\n<EN13>"..EN13.."</EN13>";
strXML = strXML.."<EN14>"..EN14.."</EN14>\n<EN15>"..EN15.."</EN15>";
strXML = strXML.."<EN16>"..EN16.."</EN16>\n<EN17>"..EN17.."</EN17>";
strXML = strXML.."<EN18>"..EN18.."</EN18>\n<EN19>"..EN19.."</EN19>";
strXML = strXML.."<EN20>"..EN20.."</EN20>\n<RD1>"..RD1.."</RD1>";
strXML = strXML.."<RD2>"..RD2.."</RD2>\n<RD3>"..RD3.."</RD3>";
strXML = strXML.."<RD4>"..RD4.."</RD4>\n<RD5>"..RD5.."</RD5>";
strXML = strXML.."<RD9>"..RD9.."</RD9>\n<RDD>"..RDD.."</RDD>";
strXML = strXML.."<G1>"..G1.."</G1>\n<G2>"..G2.."</G2>";
strXML = strXML.."<G3>"..G3.."</G3>\n<G5>"..G5.."</G5>";
strXML = strXML.."<RD11>"..RD11.."</RD11>\n<RD12>"..RD12.."</RD12>";
strXML = strXML.."\n<RD6>"..RD6.."</RD6>\n<RD8>"..RD8.."</RD8>\n</friendd>\n";
if add_or_edit =="add" then
nCoount = XML.Count("friendss", "friendd");
XML.InsertXML("friendss/friendd:"..nCoount, strXML, XML.INSERT_BEFORE);
elseif add_or_edit =="edit" then
local tbsselect = ListBox.GetSelected("listCoontent");
XML.InsertXML("friendss/friendd:"..tbsselect[1], strXML, XML.REPLACE);
end
XML.Save(_SourceFolder.."\\AutoPlay\\Docs\\test1.xml");
ListBox.DeleteItem("listCoontent", LB_ALLITEMS);
filll_list()
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);
else
Dialog.Message("Notice", "لايمكنك الحفظ ما كتبته خاطيء");
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);

end


و في الصفحة الثالثة يصبح
result = Dialog.Input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", MB_ICONQUESTION);
if result=="belkiss" then
strDD23 = Input.GetText("DD23");
DD22 = Input.GetText("DD22");
DD24 = Input.GetText("DD24");
DD25 = Input.GetText("DD25");
strXML = "<frienddd DD23='"..strDD23.."'>\n<DD22>"..DD22.."</DD22>\n";
strXML = strXML.."<DD24>"..DD24.."</DD24>\n<DD25>"..DD25.."</DD25>\n</frienddd>\n";
if add_or_edit =="add" then
nCoooount = XML.Count("friendsss", "frienddd");
XML.InsertXML("friendsss/frienddd:"..nCoooount, strXML, XML.INSERT_BEFORE);
elseif add_or_edit =="edit" then
local tbsselect = ListBox.GetSelected("listCooontent");
XML.InsertXML("friendsss/frienddd:"..tbsselect[1], strXML, XML.REPLACE);
end
XML.Save(_SourceFolder.."\\AutoPlay\\Docs\\test2.xml");
ListBox.DeleteItem("listCooontent", LB_ALLITEMS);
fillll_list()
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);
else
Dialog.Message("Notice", "لايمكنك الحفظ ما كتبته خاطيء");
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);

end


هكذا و لا راني خارج مجال التغطية :abc_138:
محمد مصطفى الجن
12-12-2015, 03:44 PM
السلام عليكم ورحمة الله وبركاته

تقصد زر الحفظ في الصفحة الاولى يصبح
result = dialog.input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", mb_iconquestion);
if result=="belkiss" then
------------------------------------------------
strid = input.gettext("id");
f_name = input.gettext("fname");
l_name = input.gettext("lname");
albtaa = input.gettext("albtaa");
aladd = input.gettext("aladd");
almany = input.gettext("almany");
phone = input.gettext("phone");
molahzat = input.gettext("molahzat");
moso = input.gettext("moso");
strxml = "<friend id='"..strid.."'>\n<fname>"..f_name.."</fname>\n";
strxml = strxml.."<lname>"..l_name.."</lname>\n<albtaa>"..albtaa.."</albtaa>";
strxml = strxml.."\n<aladd>"..aladd.."</aladd>\n<almany>"..almany.."</almany>";
strxml = strxml.."\n<phone>"..phone.."</phone>\n<molahzat>"..molahzat.."</molahzat>\n<moso>"..moso.."</moso>\n</friend>\n";
if add_or_edit =="add" then
ncount = xml.count("friends", "friend");
xml.insertxml("friends/friend:"..ncount, strxml, xml.insert_before);
elseif add_or_edit =="edit" then
local tbselect = listbox.getselected("listcontent");
xml.insertxml("friends/friend:"..tbselect[1], strxml, xml.replace);
end
xml.save(_sourcefolder.."\\autoplay\\docs\\test.xml");
listbox.deleteitem("listcontent", lb_allitems);
fill_list()
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);
-----------------------------------------------------------
else
dialog.message("notice", "لايمكنك الحفظ ما كتبته خاطيء");
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);


end




و في الصفحة الثانية يصبح
result = dialog.input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", mb_iconquestion);
if result=="belkiss" then
strrd7 = input.gettext("rd7");
ar1 = input.gettext("ar1");
ar2 = input.gettext("ar2");
ar3 = input.gettext("ar3");
ar4 = input.gettext("ar4");
ar5 = input.gettext("ar5");
ar6 = input.gettext("ar6");
ar7 = input.gettext("ar7");
ar8 = input.gettext("ar8");
ar9 = input.gettext("ar9");
ar10 = input.gettext("ar10");
ar11 = input.gettext("ar11");
ar12 = input.gettext("ar12");
ar13 = input.gettext("ar13");
ar14 = input.gettext("ar14");
ar15 = input.gettext("ar15");
ar16 = input.gettext("ar16");
ar17 = input.gettext("ar17");
ar18 = input.gettext("ar18");
ar19 = input.gettext("ar19");
ar20 = input.gettext("ar20");
en1 = input.gettext("en1");
en2 = input.gettext("en2");
en3 = input.gettext("en3");
en4 = input.gettext("en4");
en5 = input.gettext("en5");
en6 = input.gettext("en6");
en7 = input.gettext("en7");
en8 = input.gettext("en8");
en9 = input.gettext("en9");
en10 = input.gettext("en10");
en11 = input.gettext("en11");
en12 = input.gettext("en12");
en13 = input.gettext("en13");
en14 = input.gettext("en14");
en15 = input.gettext("en15");
en16 = input.gettext("en16");
en17 = input.gettext("en17");
en18 = input.gettext("en18");
en19 = input.gettext("en19");
en20 = input.gettext("en20");
rd1 = input.gettext("rd1");
rd2 = input.gettext("rd2");
rd3 = input.gettext("rd3");
rd4 = input.gettext("rd4");
rd5 = input.gettext("rd5");
rd6 = input.gettext("rd6");
rd8 = input.gettext("rd8");
rd9 = input.gettext("rd9");
rdd = input.gettext("rdd");
rd11 = input.gettext("rd11");
rd12 = input.gettext("rd12");
gg = input.gettext("gg");
g1 = input.gettext("g1");
g2 = input.gettext("g2");
g3 = input.gettext("g3");
g5 = input.gettext("g5");
strxml = "<friendd rd7='"..strrd7.."'>\n<ar1>"..ar1.."</ar1>\n";
strxml = strxml.."<ar2>"..ar2.."</ar2>\n<ar3>"..ar3.."</ar3>";
strxml = strxml.."<ar4>"..ar4.."</ar4>\n<ar5>"..ar5.."</ar5>";
strxml = strxml.."<ar6>"..ar6.."</ar6>\n<ar7>"..ar7.."</ar7>";
strxml = strxml.."<ar8>"..ar8.."</ar8>\n<ar9>"..ar9.."</ar9>";
strxml = strxml.."<ar10>"..ar10.."</ar10>\n<ar11>"..ar11.."</ar11>";
strxml = strxml.."<ar12>"..ar12.."</ar12>\n<ar13>"..ar13.."</ar13>";
strxml = strxml.."<ar14>"..ar14.."</ar14>\n<ar15>"..ar15.."</ar15>";
strxml = strxml.."<ar16>"..ar16.."</ar16>\n<ar17>"..ar17.."</ar17>";
strxml = strxml.."<ar18>"..ar18.."</ar18>\n<ar19>"..ar19.."</ar19>";
strxml = strxml.."<ar20>"..ar20.."</ar20>\n<en1>"..en1.."</en1>";
strxml = strxml.."<en2>"..en2.."</en2>\n<en3>"..en3.."</en3>";
strxml = strxml.."<en4>"..en4.."</en4>\n<en5>"..en5.."</en5>";
strxml = strxml.."<en6>"..en6.."</en6>\n<en7>"..en7.."</en7>";
strxml = strxml.."<en8>"..en8.."</en8>\n<en9>"..en9.."</en9>";
strxml = strxml.."<en10>"..en10.."</en10>\n<en11>"..en11.."</en11>";
strxml = strxml.."<en12>"..en12.."</en12>\n<en13>"..en13.."</en13>";
strxml = strxml.."<en14>"..en14.."</en14>\n<en15>"..en15.."</en15>";
strxml = strxml.."<en16>"..en16.."</en16>\n<en17>"..en17.."</en17>";
strxml = strxml.."<en18>"..en18.."</en18>\n<en19>"..en19.."</en19>";
strxml = strxml.."<en20>"..en20.."</en20>\n<rd1>"..rd1.."</rd1>";
strxml = strxml.."<rd2>"..rd2.."</rd2>\n<rd3>"..rd3.."</rd3>";
strxml = strxml.."<rd4>"..rd4.."</rd4>\n<rd5>"..rd5.."</rd5>";
strxml = strxml.."<rd9>"..rd9.."</rd9>\n<rdd>"..rdd.."</rdd>";
strxml = strxml.."<g1>"..g1.."</g1>\n<g2>"..g2.."</g2>";
strxml = strxml.."<g3>"..g3.."</g3>\n<g5>"..g5.."</g5>";
strxml = strxml.."<rd11>"..rd11.."</rd11>\n<rd12>"..rd12.."</rd12>";
strxml = strxml.."\n<rd6>"..rd6.."</rd6>\n<rd8>"..rd8.."</rd8>\n</friendd>\n";
if add_or_edit =="add" then
ncoount = xml.count("friendss", "friendd");
xml.insertxml("friendss/friendd:"..ncoount, strxml, xml.insert_before);
elseif add_or_edit =="edit" then
local tbsselect = listbox.getselected("listcoontent");
xml.insertxml("friendss/friendd:"..tbsselect[1], strxml, xml.replace);
end
xml.save(_sourcefolder.."\\autoplay\\docs\\test1.xml");
listbox.deleteitem("listcoontent", lb_allitems);
filll_list()
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);
else
dialog.message("notice", "لايمكنك الحفظ ما كتبته خاطيء");
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);

end


و في الصفحة الثالثة يصبح
result = dialog.input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", mb_iconquestion);
if result=="belkiss" then
strdd23 = input.gettext("dd23");
dd22 = input.gettext("dd22");
dd24 = input.gettext("dd24");
dd25 = input.gettext("dd25");
strxml = "<frienddd dd23='"..strdd23.."'>\n<dd22>"..dd22.."</dd22>\n";
strxml = strxml.."<dd24>"..dd24.."</dd24>\n<dd25>"..dd25.."</dd25>\n</frienddd>\n";
if add_or_edit =="add" then
ncoooount = xml.count("friendsss", "frienddd");
xml.insertxml("friendsss/frienddd:"..ncoooount, strxml, xml.insert_before);
elseif add_or_edit =="edit" then
local tbsselect = listbox.getselected("listcooontent");
xml.insertxml("friendsss/frienddd:"..tbsselect[1], strxml, xml.replace);
end
xml.save(_sourcefolder.."\\autoplay\\docs\\test2.xml");
listbox.deleteitem("listcooontent", lb_allitems);
fillll_list()
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);
else
dialog.message("notice", "لايمكنك الحفظ ما كتبته خاطيء");
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);

end


هكذا و لا راني خارج مجال التغطية :abc_138:


انت بررررررنس معلش كل مابينجح الامر بشكل سريع بطمع انى استغلك اكتر ههههه

كلمة السر هنا عاوز اعمل زر اسميه تغير كلمة السر عند الضغط عليه يظهر ديلوج اكتب كلمة السر القديمة اكتب كلمة السر الجديدة اعد كتابة كلمة السر الجديدة

وايضا هعمل زر اسمه تفعيل الرقم السرى وزر الغاء تفعيل الرقم السرى

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

والزر الى اسمه تفعيل الرقم السرى وظيفته العكس عند الضغط عليه يطلب من المستخدم ادخال الرقم السرى وفى حالة ادخاله بشكل صحيح يتم تفعيل طلب الرقم السرى لزر الحفظ من جديد
مع مراعاة ان فى حالة اغلاق البرنامج وتشغيله مرة اخرى يكون الوضع الافتراضى هو طلب الرقم السرى عند الحفظ حتى وان نسي المستخدم الضغط على زر تفعيل طلب الرقم السرى قبل اغلاق البرنامج
ثامر أبو بلقيس
12-12-2015, 05:12 PM
السلام عليكم ورحمة الله وبركاته

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

اتفقنا جيد أول و أهم شيء هو : اجعل البرنامج مسؤولا :abc_005:
ثانيا : نتفق بأن كلمة السر عند الحفظ الأول ستكون brahim

الان يصبح كود الحفظ في الصفحة الأولـــى :
n= Application.LoadValue("TAMER3", "TAMER3");
if n == "" then
Application.SaveValue("TAMER3", "TAMER3", "brahim");
else
-------------------------------------------------------------------------------------------------
result = Dialog.Input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", MB_ICONQUESTION);
if result==n then
------------------------------------------------
striD = Input.GetText("id");
f_name = Input.GetText("fname");
l_name = Input.GetText("lname");
albtaa = Input.GetText("albtaa");
aladd = Input.GetText("aladd");
almany = Input.GetText("almany");
phone = Input.GetText("phone");
molahzat = Input.GetText("molahzat");
moso = Input.GetText("moso");
strXML = "<friend id='"..striD.."'>\n<fname>"..f_name.."</fname>\n";
strXML = strXML.."<lname>"..l_name.."</lname>\n<albtaa>"..albtaa.."</albtaa>";
strXML = strXML.."\n<aladd>"..aladd.."</aladd>\n<almany>"..almany.."</almany>";
strXML = strXML.."\n<phone>"..phone.."</phone>\n<molahzat>"..molahzat.."</molahzat>\n<moso>"..moso.."</moso>\n</friend>\n";
if add_or_edit =="add" then
nCount = XML.Count("friends", "friend");
XML.InsertXML("friends/friend:"..nCount, strXML, XML.INSERT_BEFORE);
elseif add_or_edit =="edit" then
local tbselect = ListBox.GetSelected("listContent");
XML.InsertXML("friends/friend:"..tbselect[1], strXML, XML.REPLACE);
end
XML.Save(_SourceFolder.."\\AutoPlay\\Docs\\test.xml");
ListBox.DeleteItem("listContent", LB_ALLITEMS);
fill_list()
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);
-----------------------------------------------------------
else
Dialog.Message("Notice", "لايمكنك الحفظ ما كتبته خاطيء");
Button.SetEnabled("add", true);
Button.SetEnabled("edit", true);
Button.SetEnabled("save", false);
end


--------------------------
زر التعديل و الذي يمكنك بعد الحفظ الأول تغيير كلمة المرور لكن في أول استعمال للبرنامج قبل الحفظ الأول
فكلمة المرور هي فراغ أي لاشيء

ضع زرا جديدا أكتب فيه :
n=Application.LoadValue("TAMER3", "TAMER3");
result2 = Dialog.Input("إتفاقية", "أكتب رمز المرور القديم", "", MB_ICONQUESTION);
if result2==n then
result3 = Dialog.Input(" موافقة", "أكتب رمز المرور الجديد", "", MB_ICONQUESTION);
if result3~='CANCEL' and result3~='' then
Application.SaveValue("TAMER3", "TAMER3", result3);
else
Application.SaveValue("TAMER3", "TAMER3", result2);
end
else
Dialog.Message("Notice", "ليست كلمة المرور السابقة");
end
محمد مصطفى الجن
12-12-2015, 06:16 PM
السلام عليكم ورحمة الله وبركاته

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

اتفقنا جيد أول و أهم شيء هو : اجعل البرنامج مسؤولا :abc_005:
ثانيا : نتفق بأن كلمة السر عند الحفظ الأول ستكون brahim

الان يصبح كود الحفظ في الصفحة الأولـــى :
n= application.loadvalue("tamer3", "tamer3");
if n == "" then
application.savevalue("tamer3", "tamer3", "brahim");
else
-------------------------------------------------------------------------------------------------
result = dialog.input("رخصـة مرور", "أكتب رمز المرور لموصلة الحفظ", "", mb_iconquestion);
if result==n then
------------------------------------------------
strid = input.gettext("id");
f_name = input.gettext("fname");
l_name = input.gettext("lname");
albtaa = input.gettext("albtaa");
aladd = input.gettext("aladd");
almany = input.gettext("almany");
phone = input.gettext("phone");
molahzat = input.gettext("molahzat");
moso = input.gettext("moso");
strxml = "<friend id='"..strid.."'>\n<fname>"..f_name.."</fname>\n";
strxml = strxml.."<lname>"..l_name.."</lname>\n<albtaa>"..albtaa.."</albtaa>";
strxml = strxml.."\n<aladd>"..aladd.."</aladd>\n<almany>"..almany.."</almany>";
strxml = strxml.."\n<phone>"..phone.."</phone>\n<molahzat>"..molahzat.."</molahzat>\n<moso>"..moso.."</moso>\n</friend>\n";
if add_or_edit =="add" then
ncount = xml.count("friends", "friend");
xml.insertxml("friends/friend:"..ncount, strxml, xml.insert_before);
elseif add_or_edit =="edit" then
local tbselect = listbox.getselected("listcontent");
xml.insertxml("friends/friend:"..tbselect[1], strxml, xml.replace);
end
xml.save(_sourcefolder.."\\autoplay\\docs\\test.xml");
listbox.deleteitem("listcontent", lb_allitems);
fill_list()
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);
-----------------------------------------------------------
else
dialog.message("notice", "لايمكنك الحفظ ما كتبته خاطيء");
button.setenabled("add", true);
button.setenabled("edit", true);
button.setenabled("save", false);
end


--------------------------
زر التعديل و الذي يمكنك بعد الحفظ الأول تغيير كلمة المرور لكن في أول استعمال للبرنامج قبل الحفظ الأول
فكلمة المرور هي فراغ أي لاشيء

ضع زرا جديدا أكتب فيه :
n=application.loadvalue("tamer3", "tamer3");
result2 = dialog.input("إتفاقية", "أكتب رمز المرور القديم", "", mb_iconquestion);
if result2==n then
result3 = dialog.input(" موافقة", "أكتب رمز المرور الجديد", "", mb_iconquestion);
if result3~='cancel' and result3~='' then
application.savevalue("tamer3", "tamer3", result3);
else
application.savevalue("tamer3", "tamer3", result2);
end
else
dialog.message("notice", "ليست كلمة المرور السابقة");
end
ازاى اعمل البرنامج مسئول ؟
تانى شي فى زر تفعيل طلب الباسورد وزر الغاء تفعيل طلب الباسورد ما الكود المناسب للعمليتين