ايجاد أرقام محذوفة في تسلسل معين

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

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

في ListBox مكتوب مثلا
1
2
3
7
10
25
60
-----------
في التسلسل من 1 إلى 60 فُقدت أعداد :
4
5
6
..
...
..الخ
-----------
البحث عن طريقة ايجاد تلك الأعداد المحذوفة

تقديري:abc_138:

[Haitham.2012]

إن شاء الله يكون هو المطلوب .. الملف في المرفقات :abc_138:

http://im70.gulfup.com/ziBdxS.png (http://www.gulfup.com/?KeIOSf)

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

شكرا هو المطلوب :abc_138:

[ياسرهتهت]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبود عبود]

جزاك الله خيرا أخى هيثم

[المـهاجر]

شكرا استاذ هيثم و جارى الاطلاع

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

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

شكرا أخي المحترم على تشريفكم لنا بهذا المرور العطر :abc_138:

[ربيع]

y = ListBox.GetCount("ListBox1");
my_table = {};
for d = 1,y do
Table.Insert(my_table,1, ListBox.GetItemText("ListBox1",d));
end
x = math.min(unpack(my_table));
m =math.max(unpack(my_table));
----
ff =""
for i = 1 ,m-x do
x = x + 1
if String.Find(Table.Concat(my_table, ";", 1, TABLE_ALL), x, 1, true)==-1 then
ff=ff..x.."\r\n"
end
end
Dialog.Message("missing_number_rabie", ff);
------------------------------------------------------------------------------

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

y = listbox.getcount("listbox1");
my_table = {};
for d = 1,y do
table.insert(my_table,1, listbox.getitemtext("listbox1",d));
end
x = math.min(unpack(my_table));
m =math.max(unpack(my_table));
----
ff =""
for i = 1 ,m-x do
x = x + 1
if string.find(table.concat(my_table, ";", 1, table_all), x, 1, true)==-1 then
ff=ff..x.."\r\n"
end
end
dialog.message("missing_number_rabie", ff);
------------------------------------------------------------------------------

جميل جدا لكن لماذا الكود لا يعمل مع ليسبوكس لا يوجد فيها 4
مثلا 1.2.3.5.7.8.12.15

يظهر ديالوج لكن بدون 4

[ربيع]

جميل جدا لكن لماذا الكود لا يعمل مع ليسبوكس لا يوجد فيها 4
مثلا 1.2.3.5.7.8.12.15
يظهر ديالوج لكن بدون 4

لماذا يحدث معك ما ذكرت؟ :abc_152:

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

لماذا يحدث معك ما ذكرت؟ :abc_152:

اسف اسف 1000000000000000000000000000000000000000000 اسف
لا ادري ما حدث .............ممكن كتبت اربعة و لم اراها

المهم كل شيئ تمام

ملف مرفق
مع اضافة خاصية زر اضافة الارقام و امكانية استخدام زر enter

[ربيع]

قمت بإضافة زر ادخال عناصر لل listbox
---
الـlistbox لا يمكن أن يستقبل حروفا أو لا شيء أو أعداد سالبة
-- تؤدي إلى أخطاء أو رسائل خطأ
كيف نستثنيها في هذا الادخال ؟ :abc_152:

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

قمت بإضافة زر ادخال عناصر لل listbox
---
الـlistbox لا يمكن أن يستقبل حروفا أو لا شيء أو أعداد سالبة
-- تؤدي إلى أخطاء أو رسائل خطأ
كيف نستثنيها في هذا الادخال ؟ :abc_152:

هذا تمرين جيد
تستعمل خاصية Dialog.MaskedInput