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

عبد الهادي بهاب · 04-05-2016, 05:15 PM

انت تقصد الاحتمالات الممكنة لشرط عذذ الحصص في اليوم
كود يححق الشرط و يضع كل مادة في خانة

هل هذا هو المقصود ؟

**ثامر أبو بلقيس ثامر أبو بلقيس** · 04-05-2016, 06:53 PM

اضبط هذا الجدول عدد الحصص في الجدول إلى 30 حصة
[imgr]http://c.top4top.net/p_124rv5y1.jpg[/imgr]

عدد الحصص غير مضبوط بعدها
عدل على أنبوتات الحصص من حيث التسمية خليها مرتبة من Input1 إلى غاية Input30

--------------- بعد توضيح عدد الحصص أي انقاص الحصة الزائدة وهذا ضروري
جيد لو ترفع ملفا مقتوحا به فقط الانبوتات معدلة و ComboBox1 مكتوب فيها هذا التعديل أي الجدول المعدل
و سنحاول

**ثامر أبو بلقيس ثامر أبو بلقيس** · 04-05-2016, 07:08 PM

الحل :

كود PHP:


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

my_table = {};

 

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

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

Table.Insert(my_table, y, ComboBox.GetItemText("ComboBox1", g));

end

end

if Table.Count(my_table) <= 30  then

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

vv=Table.Count(my_table);k = {};k[1]= Math.Random(1, vv);n=1----

while Table.Count(k)~= Table.Count(my_table) do-----------------

t=Math.Random(1, vv);for i = 1,Table.Count(k) do---------------

if t==k[i] then------------------------------------------------

n=2;end;end----------------------------------------------------

if n == 1 then-------------------------------------------------

k[Table.Count(k)+1]=t;else-------------------------------------

n=1;end;end;---------------------------------------------------

tamer={}-------------------------------------------------------

for i =1,Table.Count(my_table) do-------------------------------

Table.Insert(tamer, i, k[i]);----------------------------------

end------------------------------------------------------------

for n , p in pairs (tamer) do

Input.SetText("Input"..n, my_table[p]);

end

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

else

 Dialog.Message("انتبه", "  لديك حصص زائدة تقدر بـ   "..(Table.Count(my_table)-30).."  حصة  ");

end

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

عبد الهادي بهاب · 04-05-2016, 10:30 PM

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

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

نضع 8 ليبلات من 1 الى 8 هي اسماء المواد ......
نضع اسفل منها 8 انبوتات فارغة نسميها nput بدون I من 1 الى 8
نضع 30 انبوت موزعة 5 5 5 5 5 5 كما في الصورة اعلاه

لاحظ الكود التالي :

كود PHP:


moide = {};

for i=1,8 do 

   for p = 1, String.ToNumber(Input.GetText("nput"..i)) do

    Table.Insert(moide, p, Label.GetText("Label"..i)); 

   end

end



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

for i=1,30 do

choi = Math.Random(1,#moide);

Input.SetText("Input"..i, moide[choi]);

Table.Remove(moide,choi);

end

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

http://gulf-up.com/do.php?id=90945

تحياتي

**ياسرهتهت ياسرهتهت** · 04-05-2016, 10:57 PM

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

الحل :

كود PHP:


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

my_table = {};

 

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

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

Table.Insert(my_table, y, ComboBox.GetItemText("ComboBox1", g));

end

end

if Table.Count(my_table) <= 30  then

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

vv=Table.Count(my_table);k = {};k[1]= Math.Random(1, vv);n=1----

while Table.Count(k)~= Table.Count(my_table) do-----------------

t=Math.Random(1, vv);for i = 1,Table.Count(k) do---------------

if t==k[i] then------------------------------------------------

n=2;end;end----------------------------------------------------

if n == 1 then-------------------------------------------------

k[Table.Count(k)+1]=t;else-------------------------------------

n=1;end;end;---------------------------------------------------

tamer={}-------------------------------------------------------

for i =1,Table.Count(my_table) do-------------------------------

Table.Insert(tamer, i, k[i]);----------------------------------

end------------------------------------------------------------

for n , p in pairs (tamer) do

Input.SetText("Input"..n, my_table[p]);

end

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

else

 Dialog.Message("انتبه", "  لديك حصص زائدة تقدر بـ   "..(Table.Count(my_table)-30).."  حصة  ");

end

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

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

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

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

http://up.top4top.net/downloadf-124boko1-rar.html

عندي استفسار كيف استطيع تفادي تكرار اسم المادة مرتين في اليوم الواحد؟
الا اذا كان عدد الساعات المخصصه لها اكثر 6 في الاسبوع

كما تلاحط في الصوره

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

**ياسرهتهت ياسرهتهت** · 04-05-2016, 11:01 PM

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

انت تقصد الاحتمالات الممكنة لشرط عذذ الحصص في اليوم
كود يححق الشرط و يضع كل مادة في خانة

هل هذا هو المقصود ؟

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

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

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

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

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

نضع 8 ليبلات من 1 الى 8 هي اسماء المواد ......
نضع اسفل منها 8 انبوتات فارغة نسميها nput بدون I من 1 الى 8
نضع 30 انبوت موزعة 5 5 5 5 5 5 كما في الصورة اعلاه

لاحظ الكود التالي :

كود PHP:


moide = {};
for i=1,8 do 
   for p = 1, String.ToNumber(Input.GetText("nput"..i)) do
    Table.Insert(moide, p, Label.GetText("Label"..i)); 
   end
end

--------------------------------
for i=1,30 do
choi = Math.Random(1,#moide);
Input.SetText("Input"..i, moide[choi]);
Table.Remove(moide,choi);
end

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

http://gulf-up.com/do.php?id=90945

تحياتي

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

بسم الله الرحمن الرحيم
فكره جميلة اخي المحترف
لكن تتكرر المواد في الصف الذي يمثل اليوم

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

عبد الهادي بهاب · 04-05-2016, 11:31 PM

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

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

بسم الله الرحمن الرحيم
فكره جميلة اخي المحترف
لكن تتكرر المواد في الصف الذي يمثل اليوم

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

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

عبد الهادي بهاب · 05-05-2016, 01:25 AM

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

-----------------------------------
بسم الله الرحمن الرحيم
فكره جميلة اخي المحترف
لكن تتكرر المواد في الصف الذي يمثل اليوم

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

http://gulf-up.com/do.php?id=91014

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

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

بالتوفيق للجميع في انتظار ما يجود به الاخوة

**ياسرهتهت ياسرهتهت** · 05-05-2016, 01:46 AM

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

http://gulf-up.com/do.php?id=91014

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

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

بالتوفيق للجميع في انتظار ما يجود به الاخوة

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 05-05-2016, 06:30 PM

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

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

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

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

http://up.top4top.net/downloadf-124boko1-rar.html

عندي استفسار كيف استطيع تفادي تكرار اسم المادة مرتين في اليوم الواحد؟
الا اذا كان عدد الساعات المخصصه لها اكثر 6 في الاسبوع

كما تلاحط في الصوره

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

عني لا أعرف للأسف وإن عرفت سأكتب متابع معكم موفق

**ياسرهتهت ياسرهتهت** · 05-05-2016, 08:15 PM

بسم الله الرحمن الرحيم
شكرا لك استاذي الكريم وبارك الله فيك
كل التقدير والاحترام

**ثامر أبو بلقيس ثامر أبو بلقيس** · 12-05-2016, 01:30 PM

يرفع لقراءة الطلب من جديد

**ثامر أبو بلقيس ثامر أبو بلقيس** · 12-05-2016, 05:46 PM

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

خطوة نحو الحل لهده الاشكالية الصعبة :
قد يكمل الفكرة مبرمج
سيعلن عن الحصص في مصفوفة 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
----------------------------------------

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

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

بالتوفيق

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

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك