تمرين : ضمان عدم التكرار عند ادخال القيم للمصفوفات

[المـهاجر المـهاجر]

الكود قد لا يجيب عن التمرين المطروح " ضمان عدم التكرار عند إدخال القيم للمصفوفات "

خطأ 100%

بل يهمل المصفوفة كاملة عند وجود التكرار و ينتقي فقط المصفوفات التي لا يوجد فيها تكرار

عذرا
هل الكود الذى امامك ينتقى مصفوفات ام عناصر ؟

حسنا
راجع مشاركتى السابقة
و فسر لى كيف يتصادف ان لا تعطى الرسالة اى نتائج بينما يعطى لنا الليست كافة العناصر الصحيحة فى نفس الوقت ؟؟
و كيف تتمكن الرسالة من العمل عند الدمج بواسطة " - " ؟؟

الكود صحيح 100% و لا يشغلنى ابدا bug الدمج Table.Concat فهى مشكلة انديجوروز و ليست مشكلتى

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

بالخطأ المشار إليه سأعتبر الأمر إنتقاء مادام هناك إهمال
و هل ما طرح من أكواد في مشاركات سابقة يشملها هذا bug
سبق وذكرت لك بأن الأمر بالنسية لي سيكون دراسة كفاءة أكواد
قنحن الان أمام مقاربة " السرعة مع الخطأ الذي لا يظهر مع رفع الاحتمالات
و بطء مقبول مع دقة في التنفيذ "

مشكور أخي الكريم
وفي النهاية كلها أراء لا غير

[المـهاجر المـهاجر]

بالخطأ المشار إليه سأعتبر الأمر إنتقاء مادام هناك إهمال
و هل ما طرح من أكواد في مشاركات سابقة يشملها هذا bug
سبق وذكرت لك بأن الأمر بالنسية لي سيكون دراسة كفاءة أكواد
قنحن الان أمام مقاربة " السرعة مع الخطأ الذي لا يظهر مع رفع الاحتمالات
و بطء مقبول مع دقة في التنفيذ "

لم ترد على جزئية "كيف قام الليست بالاظهار الصحيح"

احتساب الأخطاء لا يصح بهذا المنطق خصوصا و انت تناقش كود اسرع عشرات و مئات المرات من كل ما طرح او تم شرحه
و هدمت نظريات لها سنين

و إلا و بنفس المنطق فان السطر التالى فى اكوادك خطأ

msg = Table.Concat(MyTable, " , ", 1, TABLE_ALL); 

و ان الصواب

msg = Table.Concat(MyTable, " - ", 1, TABLE_ALL); 

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

[عبود عبود عبود عبود]

الإنشغال وراء عدم إستكمال النقاش معكم ....... أتمنى لكم التوفيق

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

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

[المـهاجر المـهاجر]

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

فسر لنا لماذا يتغير أسماء و عدد ازرار و شكل و ايقونات الديالوج بوكس بعد وضع التالى فى زر؟؟

Dialog.Message("Notice" , unpack{10,20,30});

Dialog.Message("Notice", unpack{10,50,90});

Dialog.Message("Notice", unpack{10,50}); 

و ايضا فسر لنا لماذا لا يظهر هذا الزر اى رسائل ؟؟

Dialog.Message("Notice" , unpack{15,25,35});

Dialog.Message("Notice", unpack{15,55,95});

Dialog.Message("Notice", unpack{15,55}); 

برغم احتوائه على كود مطابق للسابق مع تغيير قيم المصفوفة
هل دالة اللوا القياسية unpack بها bug
كيف تعاملت معها الأوتوبلاى على هذا النحو و غيرت من مكونات نافذة المسج نفسها ؟
هل لديك تفسير ؟
أنا لدى على الأقل نظرية فى ذلك و هى
المصفوفات + الديالوج + اللوا = خطأ متوقع بنسبة 90 %

[المـهاجر المـهاجر]

الأن بعد ان اثبتنا قصور اللوا فى عرض المصفوفات فى رسائل
فهذا يعتبر دليل سلبى
الآن مع الدليل الايجابى
سنثبت هنا ان الكود سليم 100 % و سننفى شبهة وجود اى خطأ بالبرنامج
و سنعرض كافة العناصر و كذلك العناصر الغير مكررة
و سنعرض النواتج برسالة بعد تكوينها
طبعا بعد معالجة اوجه القصور فى Table.Concat و عمل Re indexing يدوي لمصفوفة النواتج

-- Mohager Prevent Table Duplicate--
function Add_Unique(TableName,Element)
if  TableName[Element]== nil then 
  TableName[Element] =  Element
end
end

ListBox.DeleteItem("ListBox1", -1);
ListBox.DeleteItem("ListBox2", -1);
MyTable = {}

for i = 1,6 do
rnd = Math.Random(1, 6);
ListBox.AddItem("ListBox2", rnd, "");
Add_Unique(MyTable,rnd)
end
-- Re indexing
MyTableCompact = {}
for a,z in pairs(MyTable) do
Table.Insert(MyTableCompact, 1, z);
end

for a,z in pairs(MyTableCompact) do
ListBox.AddItem("ListBox1", z, "");
end

msg = Table.Concat(MyTableCompact, " , ", 1, TABLE_ALL);
Dialog.Message("Notice", msg, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); 

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



الآن حلقوا فى سماء السرعة مع الملف المفتوح المرفق
تمنياتى بمشاهدة ممتعة

شكرا لكل من شارك فى المناقشة
الى اللقاء

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

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

فسر لنا لماذا يتغير أسماء و عدد ازرار و شكل و ايقونات الديالوج بوكس بعد وضع التالى فى زر؟؟

dialog.message("notice" , unpack{10,20,30});

dialog.message("notice", unpack{10,50,90});

dialog.message("notice", unpack{10,50}); 

و ايضا فسر لنا لماذا لا يظهر هذا الزر اى رسائل ؟؟

dialog.message("notice" , unpack{15,25,35});

dialog.message("notice", unpack{15,55,95});

dialog.message("notice", unpack{15,55}); 

برغم احتوائه على كود مطابق للسابق مع تغيير قيم المصفوفة
هل دالة اللوا القياسية unpack بها bug
كيف تعاملت معها الأوتوبلاى على هذا النحو و غيرت من مكونات نافذة المسج نفسها ؟
هل لديك تفسير ؟
أنا لدى على الأقل نظرية فى ذلك و هى
المصفوفات + الديالوج + اللوا = خطأ متوقع بنسبة 90 %

بحكم أن السؤال يبدو أنه موجه لي سأجيبكم
فلدي تظرية بسيطة هي للحصول على نتائج مرغوبة يجب التعامل مع أكواد اللوا بالشكل الصحيح

وعليه تفسيري ببساطة وبكلمة واحدة " لوكاليها " ستظهر النتائج في كل الرسائل و بالشكل الصحيح المعتاد
موفق

[المـهاجر المـهاجر]

وبكلمة واحدة " لوكاليها " ستظهر النتائج في كل الرسائل و بالشكل الصحيح المعتاد

لا اعرف اين الخطأ ؟؟ شغلت الكود و قلت كلمة " لوكاليها " و لم يحدث اى تغيير.. ربما لها طريقة نطق معينة




شكرا لكل من شارك فى المناقشة
الى اللقاء

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

لا اعرف اين الخطأ ؟؟ شغلت الكود و قلت كلمة " لوكاليها " و لم يحدث اى تغيير.. ربما لها طريقة نطق معينة




شكرا لكل من شارك فى المناقشة
الى اللقاء

حسنا لا تشغل بالك بتلك المفردة كثيرا
و حاول الاستفادة من الكتابة الصحيحة عند التعامل مع الأكواد

----------------------- 1  -----------------------------
 p1 = unpack{10,20,30}
Dialog.Message("p1" ,p1);
--------------------------------------------------------
 p2 =  unpack{10,50,90}
Dialog.Message("p2",p2 );
--------------------------------------------------------
p3 = unpack{10,50}
Dialog.Message("p3", p3); 
--------------------- 2 ---------------------------------
 p4 =unpack{15,25,35}
 Dialog.Message("p4" , p4);
--------------------------------------------------------
 p5 = unpack{15,55,95}
Dialog.Message("p5",p5 );
--------------------------------------------------------
 p5 = unpack{15,55}
Dialog.Message("p6", p5); 
-------------------------------------------------------- 

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

فسر لنا ما حدث و اين هي الأاخطاء ؟
موفق

[المـهاجر المـهاجر]

و حاول الاستفادة من الكتابة الصحيحة عند التعامل مع الأكواد

طبعا سأحاول

فسر لنا ما حدث و اين هي الأاخطاء ؟
موفق

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

 dialog.message("notice" , unpack{10,20,30}); 

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

number Dialog.Message ( 
    

string Title,

string Text,

number Type = MB_OK,

number Icon = MB_ICONINFORMATION,

number DefaultButton = MB_DEFBUTTON1 ) 

[عبود عبود عبود عبود]

طبعا سأحاول



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

 dialog.message("notice" , unpack{10,20,30}); 

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

number dialog.message ( 
    

string title,

string text,

number type = mb_ok,

number icon = mb_iconinformation,

number defaultbutton = mb_defbutton1 ) 

كلام سليم 100% لذلك التعامل الصحيح من البداية ومعرفة كيفية إستخدام أى دالة وطريقة تعاملها مع البارامترات الخاصة بها يمنع وقوع الأخطاء ففى النهاية تعلمون جميعا أن الأتوبلاى عموما هو عبارة عن مجموعة دوال يمكن إستدعاؤها نظرا للبرمجة المسبقة لها فى ملف الدل الخاص بالبرنامج "الأتوبلاى"
وعلى ذلك تكون الأخطاء من المبرمج الذى يتعامل مع برنامج الأتوبلاى نظرا لعدم الإلتزام من البداية بالقواعد

[عبود عبود عبود عبود]

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

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

طبعا سأحاول



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

 dialog.message("notice" , unpack{10,20,30}); 

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

number Dialog.Message ( 
    

string Title,

string Text,

number Type = MB_OK,

number Icon = MB_ICONINFORMATION,

number DefaultButton = MB_DEFBUTTON1 ) 

أنت هنا تتكلم عن ماذا حدث ؟ وهذا واضح لأي مستعمل ليرى مباشرة ماحدث و يقارن بين الديالوجين
و من ثمة يعبر عن الفرق بينهما بأسلوب نثري

بينما أنا أجبت عن الذي يجب أن يحدث بعد التنفيذ الصحيح

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

[المـهاجر المـهاجر]

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

اكواد المشاركة 51 تلتزم بقواعد الأوتوبلاى
هنا Bug
لا يفترض بدالة المسج توزيع عناصر مصفوفة البارامتر الثانى على باقى البارامترات من تلقاء نفسها