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

عبد الهادي بهاب · 25-11-2017, 03:47 PM

ملف مفتوح
https://up.top4top.net/downloadf-694gxz4t1-rar.html
--------------------
ننتظر الكود في زر حساب المقاعد
---------------

**فرح صالحي فرح صالحي** · 25-11-2017, 04:56 PM

موفق بإذن الله ..

. لك مني أجمل تحية .

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

لا لتسييس الاوتوبلاي ...

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

ولم نطلع على شيء

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

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

لا لتسييس الاوتوبلاي ...

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

ولم نطلع على شيء

لا عليك مجرد تحفيز و تفعيل للقسم
ساضع المحاولة التي وجدتها

عبد الهادي بهاب · 27-11-2017, 01:14 AM

اولا القانون الجديد ينص على 7 بالمائة تعتبر قائمة مقصبة بدلا من 5 بالمائة سابقا
ثانيا نضيف paragraph1 لعرض الثائمة الناجحة
ثالثا نضيف paragraph2 للوائم المقصية عوض label...par
في زر عدد المقاعد

كود PHP:


som = 0;
Label.SetText("par", "")
Ns  = tonumber(Input.GetText("Input2"));
max = tonumber(Input.GetText("Np"));
---------sommme ------------------
for i=1,max do
 if Grid.GetCellText("Grid1",i,2) == "" then
 n1 = 0 ;
 Grid.SetCellText("Grid1",i ,2 , 0);
 else
n1 = tonumber(Grid.GetCellText("Grid1",i,2));
end
som = som + n1;
end
Label.SetText("Nsom", som);

-------------- pourcentage ------------
gani={};
for i=1,max do
n1 = tonumber(Grid.GetCellText("Grid1",i,2)); gani[i] = n1;
p = Math.Round(n1*100/som,2);
Grid.SetCellText("Grid1",i ,3 , p);
end

------------ 7% liste eliminiée -------------

min = 7 *som / 100 ;
par ={}; d=1;
for i=1,max do
ng = tonumber(Grid.GetCellText("Grid1",i,2));
part = Grid.GetCellText("Grid1",i,1);
  if ng < min then
  par[d] =  part; 
  else Table.Remove(par,i);
  end d=d+1; 
end

igli ="";
for i,n in pairs(par) do
igli = igli .." - " ..n
end 
Paragraph.SetText("Paragraph2", igli)
------------ nouveau somme -------------

for i=1,max do
n1 = tonumber(Grid.GetCellText("Grid1",i,2));
  if n1 < min then
  som = som - n1 ;
  end
end


Label.SetText("safi", som);
ref = Math.Floor(som / Ns); 
Label.SetText("ref", ref);
gh={}; 
for i=1,max do
n1 = tonumber(Grid.GetCellText("Grid1",i,2));
part = Grid.GetCellText("Grid1",i,1);
num = Math.Floor( n1 / ref) ;
Grid.SetCellText("Grid1",i ,4 , num);
Grid.SetCellText("Grid1",i ,6 , num);
res = n1 - (num * ref);
 if n1 < min then
 Grid.SetCellText("Grid1",i ,7 , 0);
 res = 0 ;
 end
Grid.SetCellText("Grid1",i ,5 , res);
gh[i] = res;
end

Table.Sort(gani, nil); v = Table.Count(gani);
for i=1,max do
nn = tonumber(Grid.GetCellText("Grid1", i, 2));
  if nn == gani[v] then 
part = Grid.GetCellText("Grid1", i, 1);
Paragraph.SetText("Paragraph1",part.. " ÇáÞÇÆãÉ ÇáÊí ÝÇÒÊ ÈÑÆÇÓÉ ÇáãÌáÓ ÇáÔÚÈí ÇáÈáÏí åí ") break
end
end
------------------
Table.Sort(gh, nil);
for i= 1,max do
--------------
repeat
Nsig = 0;

for i=1,max do
num = tonumber(Grid.GetCellText("Grid1",i,6));
Nsig = Nsig + num ;
end


------sige reste--------
if Nsig < Ns then
for i=1,max do
n1 =  tonumber(Grid.GetCellText("Grid1",i,5));
num = tonumber(Grid.GetCellText("Grid1",i,6));
  if n1 == gh[#gh] then num = num+1;
  Grid.SetCellText("Grid1",i ,6 , num);
  gh[i] = 0; 
  Nsig = Nsig+1;
   SF = Math.Floor(num /3); 
    if num == 2 then SF = 1 end  
    Grid.SetCellText("Grid1",i ,7 , SF);
 
  else
  Grid.SetCellText("Grid1",i ,6 , num);
   SF = Math.Floor(num /3); 
    if num == 2 then SF = 1 end  
    Grid.SetCellText("Grid1",i ,7 , SF);
  end
end
end
-----------------
until Nsig >= Ns;
end

**ثامر أبو بلقيس ثامر أبو بلقيس** · 27-11-2017, 01:15 AM

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

لا عليك مجرد تحفيز و تفعيل للقسم
ساضع المحاولة التي وجدتها

أنا كذلك أمزح أخي الكريم ... ومازال 5 سنوات على استعمال الانجاز ( إن أطال الله في أعمارنا) لذلك الشغل في وقته مليح
+
الدلفي لم يترك شيء

عبد الهادي بهاب · 27-11-2017, 01:33 AM

التنفيذي

https://up.top4top.net/downloadf-695lpnr91-rar.html

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

تمرين .......كيف نحسب عدد المقاعد في الانتخابات

تمرين .......كيف نحسب عدد المقاعد في الانتخابات

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك