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

عبد الهادي بهاب · 13-12-2015, 07:51 PM

فيه سؤال للاخوة لمن يردي التعديل
.................
كيف اجعل الدالة random لا تكرر السؤال مرتين
--------------------
حاولت اسغلال هذا الكود
http://sites.ienajah.com/vb2/showthread.php?t=32912
لكن لم افلح فانتظر الرد

**خادم المسلمين خادم المسلمين** · 13-12-2015, 07:52 PM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 13-12-2015, 08:58 PM

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

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

بارك الله فيك

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

كود PHP:


function permute(tab, n, count)

  n = n or #tab

  for i = 1, count or n do

    local j = math.random(i, n)

    tab[i], tab[j] = tab[j], tab[i]

  end

  return tab

end

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

نفترض بأنه لديك إظهار عشوائي للأعداد من 10 الى 25
لكن بدون أن يتكرر ثانية أي رقم الى غاية انتهاء الحلقة
في العادة نستعمل

كود PHP:


result = Math.Random(10, 25);

ولعلك أشرت لعيوبها
جيد لاحظ الكود التالي :

كود PHP:


result = Math.Random(10, 25);

tab = {}

for i = 10,25 do

Table.Insert(tab, 1, i);

end

 g =permute(tab, 25-10, 25-10) 

for n,p in pairs(g) do

 Dialog.Message("Notice",p);

end

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

**admin admin** · 14-12-2015, 01:42 AM

جزاك الله خيرا أخى المحترف على هذا العمل الرائع

والشكر موصول لأخى أبا بلقيس على المتابعة

بارك الله فيكم

**ياسرهتهت ياسرهتهت** · 14-12-2015, 02:41 AM

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

ما شاء الله ابداع وتميز اخي المحترف

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

**azizsoft azizsoft** · 14-12-2015, 04:15 AM

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

بارك الله فيكم جميعا

عبد الهادي بهاب · 14-12-2015, 11:44 AM

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

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

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

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

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

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

بارك الله فيك

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

كود PHP:


function permute(tab, n, count)
  n = n or #tab
  for i = 1, count or n do
    local j = math.random(i, n)
    tab[i], tab[j] = tab[j], tab[i]
  end
  return tab
end
--------------

نفترض بأنه لديك إظهار عشوائي للأعداد من 10 الى 25
لكن بدون أن يتكرر ثانية أي رقم الى غاية انتهاء الحلقة
في العادة نستعمل

كود PHP:


result = Math.Random(10, 25);

ولعلك أشرت لعيوبها
جيد لاحظ الكود التالي :

كود PHP:


result = Math.Random(10, 25);
tab = {}
for i = 10,25 do
Table.Insert(tab, 1, i);
end
 g =permute(tab, 25-10, 25-10) 
for n,p in pairs(g) do
 Dialog.Message("Notice",p);
end

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

شكرا على الكامت الطيبة ......... و هذه شهدة انني تلميذ مجتهد .......

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

تحياتي استاذ بلقيس

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

جزاك الله خيرا أخى المحترف على هذا العمل الرائع

والشكر موصول لأخى أبا بلقيس على المتابعة

بارك الله فيكم

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

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

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

بارك الله فيكم جميعا

اهلا استاذ عزيز .........شكرا جزيلا و حياك الله و رفع شانك

**المـهاجر المـهاجر** · 14-12-2015, 12:51 PM

اليك حل أخر من المنتدى بتعديل طفيف
عشوائى من الى

كود PHP:


function Randomise_range(Start,End)

Numbers = {}

Moh =0

for i = Start,End do

Moh=Moh+1

Table.Insert(Numbers, Moh, i);

end

  local c = #Numbers

   while c >= 2 do

        local s = math.random(c) 

          Numbers[c], Numbers[s] = Numbers[s], Numbers[c]

         c = c - 1

      end

  return Numbers

end

إستغلال الدالة

كود PHP:


Randomise_range(10,15)

لمشاهدة النتائج

كود PHP:


for k, v in ipairs (Numbers) do

Dialog.Message("Notice", v, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

يمكنك وضعها كلها فى زر واحد ثم شاهد

عبد الهادي بهاب · 14-12-2015, 01:27 PM

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

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

ما شاء الله ابداع وتميز اخي المحترف

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

ابداع في الرد .........و جمال في التصوير ......و ورعة في الاختيار .........ربي يجمل لك اخرتك بجميل رضاه

عبد الهادي بهاب · 14-12-2015, 01:28 PM

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

اليك حل أخر من المنتدى بتعديل طفيف
عشوائى من الى

كود PHP:


function Randomise_range(Start,End)

Numbers = {}

Moh =0

for i = Start,End do

Moh=Moh+1

Table.Insert(Numbers, Moh, i);

end

  local c = #Numbers

   while c >= 2 do

        local s = math.random(c) 

          Numbers[c], Numbers[s] = Numbers[s], Numbers[c]

         c = c - 1

      end

  return Numbers

end

إستغلال الدالة

كود PHP:


Randomise_range(10,15)

لمشاهدة النتائج

كود PHP:


for k, v in ipairs (Numbers) do

Dialog.Message("Notice", v, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

يمكنك وضعها كلها فى زر واحد ثم شاهد

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

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

مشروع مفتوح .... تعلم الحروف بالعربية و الفرنسية و الانجليزية

مشروع مفتوح .... تعلم الحروف بالعربية و الفرنسية و الانجليزية

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك