إعـــــــلان

**ياسرهتهت ياسرهتهت** · 13-05-2016, 02:08 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

خطوة نحو الحل لهده الاشكالية الصعبة :
قد يكمل الفكرة مبرمج
سيعلن عن الحصص في مصفوفة 30 حصة
السؤال المطروح ما هي التشكيلات الممكن تكوينها بهده المواد بحيث لا يتم تكرار مادة مرتين
جيد
جرب هدا :

كود PHP:


 items = { "رياضيات", "رياضيات", "رياضيات","رياضيات", "رياضيات", "رياضيات", "عربي", "عربي","عربي", "عربي", "عربي","انجليزي", "انجليزي", "انجليزي","انجليزي"

,"حاسوب", "حاسوب", "حاسوب","حاسوب", "فيزياء", "فيزياء","فيزياء", "كيمياء", "كيمياء","كيمياء", "احياء", "احياء","احياء"

, "اسلامية", "اسلامية"};

----------------------------------

repeat

flags = {}

my_table= {}

t =""

 for i=1,table.getn(items)  do

if not flags[items[i]] then

flags[items[i]] = true

t=t..items[i]..","

Table.Insert(my_table, 1, i);

end

end

Dialog.Message("Notice",t)

 ----------------------------------------

for x,y in pairs(my_table) do

Table.Remove(items, y);

end

 my_table= {}

until #items==0

----------------------------------------

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

السؤال كيف يتم استغلال كل تشكيل ليوزع على الانبوتات كما ظهر

بالتوفيق

--------------------------------------

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

شكرا لك استاذي الفاضل على المتابعة
الكود الجديد ؟ حاولت فهمه لكن لم استطع ؟
(السؤال كيف يتم استغلال كل تشكيل ليوزع على الانبوتات كما ظهر)

صعب

**ثامر أبو بلقيس ثامر أبو بلقيس** · 13-05-2016, 10:51 PM

السلام عليكم ورحمة الله وبركاته
سأشرح لك الكود السايق لاحقا

وهذه فكرة أواقتراح آخر قد يكون أقرب إلى الحل

حتى تعاين النتائج الانبوتات الثلاثين "30 " يكون ترتيبها عكس ماجاء في الملف المقتوح
أي يكون ترتيبها عمودي
Input6 Input1
Input7 Input2
Input3 الخ
Input4
Input5

بعدما تفتح المشروع الجديد بهده المواصفات
جرب الكود التالي مباشرة :

كود PHP:


 items = { { "عربي", "عربي","عربي", "عربي", "عربي","عربي"},{"انجليزي","انجليزي"}
,{"حاسوب", "حاسوب", "حاسوب","حاسوب"},{ "فيزياء","فيزياء", "فيزياء","فيزياء"},{ "جغرافيا","جغرافيا"},{ "تاريخ", "تاريخ","تاريخ"}
,{ "اسلامية"},{ "هندسة","هندسة"},{ "رياضيات", "رياضيات", "رياضيات","رياضيات", "رياضيات","رياضيات"}};
-----------------------------------------------------------
c=1
my_table = {};
my_table2 = {}; 
for p = 1,Table.Count(items) do
for k=1,Table.Count(items[p]) do
if Table.Count(items[p]) >=6 then 
Table.Insert(my_table, c, items[p][k]);
Table.Remove(items[p], c);
c=c+1
end
end
end
for p1 = 1,Table.Count(items) do
for k1=1,Table.Count(items[p1]) do
Table.Insert(my_table2, 1, items[p1][k1]);
end
end
for u,pp in pairs(my_table2)do
Input.SetText("Input"..u, pp);
end
for g,t in pairs(my_table)do
Input.SetText("Input"..Table.Count(my_table2)+g, t);
end

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

**ياسرهتهت ياسرهتهت** · 13-05-2016, 11:54 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

السلام عليكم ورحمة الله وبركاته
سأشرح لك الكود السايق لاحقا

وهذه فكرة أواقتراح آخر قد يكون أقرب إلى الحل

حتى تعاين النتائج الانبوتات الثلاثين "30 " يكون ترتيبها عكس ماجاء في الملف المقتوح
أي يكون ترتيبها عمودي
Input6 Input1
Input7 Input2
Input3 الخ
Input4
Input5

بعدما تفتح المشروع الجديد بهده المواصفات
جرب الكود التالي مباشرة :

كود PHP:


 items = { { "عربي", "عربي","عربي", "عربي", "عربي","عربي"},{"انجليزي","انجليزي"}

,{"حاسوب", "حاسوب", "حاسوب","حاسوب"},{ "فيزياء","فيزياء", "فيزياء","فيزياء"},{ "جغرافيا","جغرافيا"},{ "تاريخ", "تاريخ","تاريخ"}

,{ "اسلامية"},{ "هندسة","هندسة"},{ "رياضيات", "رياضيات", "رياضيات","رياضيات", "رياضيات","رياضيات"}};

-----------------------------------------------------------

c=1

my_table = {};

my_table2 = {}; 

for p = 1,Table.Count(items) do

for k=1,Table.Count(items[p]) do

if Table.Count(items[p]) >=6 then 

Table.Insert(my_table, c, items[p][k]);

Table.Remove(items[p], c);

c=c+1

end

end

end

for p1 = 1,Table.Count(items) do

for k1=1,Table.Count(items[p1]) do

Table.Insert(my_table2, 1, items[p1][k1]);

end

end

for u,pp in pairs(my_table2)do

Input.SetText("Input"..u, pp);

end

for g,t in pairs(my_table)do

Input.SetText("Input"..Table.Count(my_table2)+g, t);

end

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

------------------------------------------

بسم الله الرحمن الرحيم
شكرا جزيلاً استاذي الكريم
هذا الكود يحقق المطلوب بدقة
مع عدم التكرار في نفس اليوم

ممتاز جدا

موفق بإذن الله ... لك مني أجمل تحية .

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-05-2016, 12:22 AM

كود PHP:


------------------------------------------------------------------

items = {{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{}};

for g = 1,ComboBox.GetCount("ComboBox1")do

for y = 1,ComboBox.GetItemData("ComboBox1", g)  do

Table.Insert( items[g], y, ComboBox.GetItemText("ComboBox1", g));

end

end

-----

c=1

my_table = {};

my_table2 = {}; 

for p = 1,Table.Count(items) do

for k=1,Table.Count(items[p]) do

if Table.Count(items[p]) >=6 then 

Table.Insert(my_table, c, items[p][k]);

Table.Remove(items[p], c);

c=c+1

end

end

end

for p1 = 1,Table.Count(items) do

for k1=1,Table.Count(items[p1]) do

Table.Insert(my_table2, 1, items[p1][k1]);

end

end

for u,pp in pairs(my_table2)do

Input.SetText("Input"..u, pp);

end

for g,t in pairs(my_table)do

Input.SetText("Input"..Table.Count(my_table2)+g, t);

end

حتى لا تتخلى على عنصر ComboBox1
يكفي 17 مادة أو أقل و يمكنك الاضافة بالتعبير {} دون تأثير

موفـــق

**ياسرهتهت ياسرهتهت** · 14-05-2016, 06:29 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

كود PHP:


------------------------------------------------------------------

items = {{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{},{}};

for g = 1,ComboBox.GetCount("ComboBox1")do

for y = 1,ComboBox.GetItemData("ComboBox1", g)  do

Table.Insert( items[g], y, ComboBox.GetItemText("ComboBox1", g));

end

end

-----

c=1

my_table = {};

my_table2 = {}; 

for p = 1,Table.Count(items) do

for k=1,Table.Count(items[p]) do

if Table.Count(items[p]) >=6 then 

Table.Insert(my_table, c, items[p][k]);

Table.Remove(items[p], c);

c=c+1

end

end

end

for p1 = 1,Table.Count(items) do

for k1=1,Table.Count(items[p1]) do

Table.Insert(my_table2, 1, items[p1][k1]);

end

end

for u,pp in pairs(my_table2)do

Input.SetText("Input"..u, pp);

end

for g,t in pairs(my_table)do

Input.SetText("Input"..Table.Count(my_table2)+g, t);

end

حتى لا تتخلى على عنصر ComboBox1
يكفي 17 مادة أو أقل و يمكنك الاضافة بالتعبير {} دون تأثير

موفـــق

-------------------------------------

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

جازك الله كل خير
استاذي الفاضل
افادك الله كما افدتني
موفق بإذن الله ... لك مني أجمل تحية .

إعـــــــلان

المساعدة في انشاء جدول حصص الكتروني ؟

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك