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

**ياسرهتهت ياسرهتهت** · 18-12-2016, 07:53 PM

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

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

للتحكم برمجيا في الأزرار

Numlock
Capslock
Scrolllock

يمكنك الدخول الان و الكشف عن الملف التــــالي لمعرفة احدى الطرق

المحتوى المخفي لايقتبس

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 24-12-2016, 02:15 PM

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

مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6
كون علاقات حسابية برمجية للحصول على الناتج 7

بمعنى كود يحبل إلى أن
[html](((-4+9)*10)-8)/6=7[/html]

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

سيكون أجمل كود تكتبـــــه في حال تجاحك في تحقيق المطلوب موفق

**ثامر أبو بلقيس ثامر أبو بلقيس** · 07-01-2017, 11:07 PM

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

عبد الهادي بهاب · 15-01-2017, 11:36 PM

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

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

للتحكم برمجيا في الأزرار

numlock
capslock
scrolllock

يمكنك الدخول الان و الكشف عن الملف التــــالي لمعرفة احدى الطرق

المحتوى المخفي لايقتبس

ربي يحفظكم استاذ على التميز دائما

عبد الهادي بهاب · 15-01-2017, 11:37 PM

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

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

مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6
كون علاقات حسابية برمجية للحصول على الناتج 7

بمعنى كود يحبل إلى أن
[html](((-4+9)*10)-8)/6=7[/html]

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

سيكون أجمل كود تكتبـــــه في حال تجاحك في تحقيق المطلوب موفق

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

عبد الهادي بهاب · 16-01-2017, 12:35 AM

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

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

مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6
كون علاقات حسابية برمجية للحصول على الناتج 7

بمعنى كود يحبل إلى أن
[html](((-4+9)*10)-8)/6=7[/html]

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

سيكون أجمل كود تكتبـــــه في حال تجاحك في تحقيق المطلوب موفق

هل بشنرط بقاء الارقام في مكانها في المعادلة ام يمكن تغيير موضعها ؟؟؟؟

**ياسرهتهت ياسرهتهت** · 16-01-2017, 12:43 AM

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

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

----------------------------------
بسم الله الرحمن الرحيم
استاذنا الكريم الموضوع او الفكرة رائعة
لكن من اين الطريق ؟؟؟
انا ايضا لست من هواة الكرة كثيرا .. لكن مع باقة بن سبور توجد قناة الاطفال براعم
لهذا اتتبع كل طرق الفك التي اجدها في الانترنت

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

عبد الهادي بهاب · 16-01-2017, 01:13 AM

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

http://up.top4top.net/downloadf-3800nvcy1-rar.html

طبعا التفكير جاري

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-01-2017, 02:10 PM

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

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

http://up.top4top.net/downloadf-3800nvcy1-rar.html

طبعا التفكير جاري

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

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

عبد الهادي بهاب · 16-01-2017, 02:54 PM

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

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

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

الان بعد الظهر ....ارجو ان تكون الاخبار سعيدة على ما يرام
اللهم اجلعه خير

عبد الهادي بهاب · 16-01-2017, 10:49 PM

محاولة :
نفترض مصفوفة تتضمن العمليات الاربعة ......و في التمرين سنكون مصفوفة اخرى تشمل كل الاحتمالات لترتيب العمليات الاربعة و العدد هو
4 ء 3 ء 2 ء 1 = 24

سننشء مصفوفة اخرى تتمضن الاعداد في التمرين و هي خمسة .........و بالتالي سيكون عندنا مصفوفة تتضمن عدد الاحتمالات التي يمكن ان يتموقع عليها
5 ء 4 ء 3 ء 2 ء 1 = 120
ثم نحسب كل احتمال من هذه الاحتمالات و نقارنها بالناتج
نحصر النتيجة في مصفوفة نواتج ...... ثم نحدف المكرر ......و لا يتكرر الا في حالة كان الارقام في المعطيات مكررة

عبد الهادي بهاب · 16-01-2017, 10:59 PM

الحل:

انشء 6 انبونات ............. 5 للمعطيات .......السادس للناتج
ضع في زر الكود التالي :

كود PHP:


Abc4web()

ضع Paragraph لعرض النواتج

في Global Function ضع الكود الطويل الذي لم استطيع ان اختصر اكثر من ذلك

كود PHP:


function Abc4web()

v1 = String.ToNumber(Input.GetText("Input1")); v2 = String.ToNumber(Input.GetText("Input2"));
v3 = String.ToNumber(Input.GetText("Input3")); v4 = String.ToNumber(Input.GetText("Input4"));
v5 = String.ToNumber(Input.GetText("Input5")); nat = String.ToNumber(Input.GetText("Input6"));
rep1 = {}; rep2 = {}; e=1;  g ="";
for num = 1234 , 4321 do
g =""..num; 
    if String.Find(g, "0", 1) == -1  and  String.Find(g,"5",1) == -1 and  String.Find(g,"6",1) == -1
    and String.Find(g,"7",1) == -1 and  String.Find(g,"8",1) == -1 and  String.Find(g,"9",1) == -1 
    and String.Mid(g, 1, 1) ~= String.Mid(g, 2, 1) and String.Mid(g, 1, 1) ~= String.Mid(g, 3, 1)
    and String.Mid(g, 1, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 2, 1) ~= String.Mid(g, 3, 1) 
    and String.Mid(g, 2, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 3, 1) ~= String.Mid(g, 4, 1)then
       Table.Insert(rep1,e,g); e =  e + 1 ;
    end
end -----rep1
oper = {}
for i, n in pairs(rep1)do
 op1 = String.Replace( n,"1","+");  op2 = String.Replace( op1,"2","-");
 op3 = String.Replace( op2,"3","*");  op4 = String.Replace( op3,"4","/");
 Table.Insert(oper,i,op4);
end------list


e=1;  g ="";
for num = 12345 , 54321 do
g =""..num; 
    if String.Find(g, "0", 1) == -1  and  String.Find(g,"6",1) == -1
    and String.Find(g,"7",1) == -1 and  String.Find(g,"8",1) == -1 and  String.Find(g,"9",1) == -1 
    and String.Mid(g, 1, 1) ~= String.Mid(g, 2, 1) and String.Mid(g, 1, 1) ~= String.Mid(g, 3, 1)
    and String.Mid(g, 1, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 1, 1) ~= String.Mid(g, 5, 1) 
    and String.Mid(g, 2, 1) ~= String.Mid(g, 3, 1) and String.Mid(g, 2, 1) ~= String.Mid(g, 4, 1) 
    and String.Mid(g, 2, 1) ~= String.Mid(g, 5, 1) and String.Mid(g, 4, 1) ~= String.Mid(g, 5, 1)
    and String.Mid(g, 3, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 3, 1) ~= String.Mid(g, 5, 1) then
       Table.Insert(rep2,e,g); e =  e + 1 ;
     end
end -----rep1
fin = {};
for i, nn in pairs(rep2)do
 Nop1 = String.Replace( nn ,"1","a");  Nop2 = String.Replace( Nop1,"2","b");
 Nop3 = String.Replace( Nop2,"3","c");  Nop4 = String.Replace( Nop3,"4","d");
 Nop5 = String.Replace( Nop4,"5","e");   
 Table.Insert(fin,i,Nop5); 
end------list
 

sol = "" ; Myres = {}; MyOper = {};
for d, n in pairs(fin) do
s1 = String.Mid(n,1,1); s2 = String.Mid(n,2,1); s3 = String.Mid(n,3,1);
s4 = String.Mid(n,4,1); s5 = String.Mid(n,5,1);
    for i, opr in pairs(oper) do
   o1 = String.Mid(opr,1,1); o2 = String.Mid(opr,2,1);   o3 = String.Mid(opr,3,1); o4 = String.Mid(opr,4,1);
   sol = "(".."(((".. s1..o1..s2..")"..o2..s3..")"..o3..s4..")"..o4..s5..")";
   Np1 = String.Replace( sol,"a",v1);   Np2 = String.Replace( Np1,"b",v2);
   Np3 = String.Replace( Np2,"c",v3);   Np4 = String.Replace( Np3,"d",v4);  
   Np5 = String.Replace( Np4,"e",v5);
    Natij = string.gsub("$return "..Np5.."$", "%$(.-)%$", function (s)   return loadstring(s)()   end ) 
    end
   Table.Insert(MyOper,d,Np5);  Table.Insert(Myres,d,Natij);      
  end

Pro = ""; x=1; Mytable={}; e=1;
  for i, n in pairs(Myres) do
     if  String.ToNumber(n) == nat then
     Table.Insert(Mytable , e, MyOper[i]); e=e+1; 
     end
   end
   
  flags = {} ; 
 for i=1,table.getn(Mytable)  do
    if not flags[Mytable[i]] then
      io.write(' ' .. Mytable[i])
      flags[Mytable[i]] = true
      Pro = Pro.."N°"..x.." : "..Mytable[i].." = "..nat.."\r\n";
     x=x+1 ;
     end
 end
 
 
 
 
if Pro ==""  then
Paragraph.SetText("Paragraph1", "áÇ íæÌÏ Íá áåÐå ÇáÊÑßÈÈÉ .....ÛíÑ ÇáäÇÊÌ")
else    
Paragraph.SetText("Paragraph1", Pro)
end

end------function

ارج ان يكون الكود يفي بالغرض

الملف المفتوح :
http://up.top4top.net/downloadf-381naahc1-rar.html

عبد الهادي بهاب · 16-01-2017, 11:35 PM

مشكل في الارقام السالبة

**ثامر أبو بلقيس ثامر أبو بلقيس** · 17-01-2017, 03:45 PM

مجهود كبير و فكر برمجي متورد
لكن سأكتب يوما

مشكــــور جدا

**ثامر أبو بلقيس ثامر أبو بلقيس** · 20-04-2017, 10:23 PM

إن شاء الله نجد الوقت الكافي

و أكمل ما بدأت

[hide]
الساعة حسب بلدك من الانترنت

كود PHP:


result = HTTP.Submit("http://www.timeanddate.com", {}, SUBMITWEB_POST, 20, 80, nil, nil);
h = String.Find(result, '"clk_hm">', 1, false);v = String.Find(result, '"ij0">', 1, false)
hm = String.Mid(result,h+9,5);s = String.Mid(result,v+6,2)
Dialog.Message("belkiss", hm..":"..s);

[/hide]

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

إسترا^^بلاي

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك